foreach my $export ( @exports ) {
- my $machine = $export->machine;
- my $file = "$spooldir/$machine.conf";
+ my $machine = $export->machine;
+ my $exportnum = $export->exportnum;
+ my $file = "$spooldir/$machine.exportnum$exportnum.conf";
warn "exporting apache configuration for $machine to $file\n"
if $opt{d};
foreach my $svc_www ( @svc_www ) {
use vars qw($zone $username $dir $email $config);
$zone = $svc_www->domain_record->zone;
- $username = $svc_www->svc_acct->username;
- $dir = $svc_www->svc_acct->dir;
- $email = $svc_www->svc_acct->email;
$config = $svc_www->config;
+ if ( $svc_www->svc_acct ) {
+ $username = $svc_www->svc_acct->username;
+ $dir = $svc_www->svc_acct->dir;
+ $email = $svc_www->svc_acct->email;
+ } else {
+ $username = '';
+ $dir = '';
+ $email = '';
+ }
warn " adding configuration section for $zone\n"
if $opt{d};