diff options
author | ivan <ivan> | 2003-04-22 04:39:40 +0000 |
---|---|---|
committer | ivan <ivan> | 2003-04-22 04:39:40 +0000 |
commit | 60527016538d1794227983d99ce3b77c8fcd7426 (patch) | |
tree | 47b306b3542ef8c822c922ffad2b33a6eabfda0b /FS/FS/part_export/domain_shellcommands.pm | |
parent | 579c95a605ba3eeacd28e965d9c1ed7ad6f03374 (diff) |
- mysql 4.1 is available; update documentation
- remove last vestiges of 1.3-style qmail/vpopmail exports from svc_domain and
svc_forward; add appropriate exports (closes: Bug#299)
Diffstat (limited to 'FS/FS/part_export/domain_shellcommands.pm')
-rw-r--r-- | FS/FS/part_export/domain_shellcommands.pm | 18 |
1 files changed, 8 insertions, 10 deletions
diff --git a/FS/FS/part_export/domain_shellcommands.pm b/FS/FS/part_export/domain_shellcommands.pm index 5b3cd5d79..5b100e8c6 100644 --- a/FS/FS/part_export/domain_shellcommands.pm +++ b/FS/FS/part_export/domain_shellcommands.pm @@ -28,17 +28,15 @@ sub _export_command { no strict 'refs'; ${$_} = $svc_domain->getfield($_) foreach $svc_domain->fields; } + ( $qdomain = $domain ) =~ s/\./:/g; #see dot-qmail(5): EXTENSION ADDRESSES -# my $domain_record = $svc_www->domain_record; # or die ? -# my $zone = $domain_record->reczone; # or die ? -# unless ( $zone =~ /\.$/ ) { -# my $svc_domain = $domain_record->svc_domain; # or die ? -# $zone .= '.'. $svc_domain->domain; -# } - -# my $svc_acct = $svc_www->svc_acct; # or die ? -# my $username = $svc_acct->username; -# my $homedir = $svc_acct->dir; # or die ? + if ( $svc_domain->catchall ) { + no strict 'refs'; + my $svc_acct = $svc_domain->catchall_svc_acct; + ${$_} = $svc_acct->getfield($_) foreach qw(uid gid dir); + } else { + ${$_} = '' foreach qw(uid gid dir); + } #done setting variables for the command |