diff options
author | ivan <ivan> | 2007-07-20 19:58:34 +0000 |
---|---|---|
committer | ivan <ivan> | 2007-07-20 19:58:34 +0000 |
commit | c66327f25bf2323b29e0cb51b33569277bddcd39 (patch) | |
tree | 763d1bc0975fdf0e06cb0426dab871df927438c3 /bin | |
parent | 2af3df50fe02e8558ebdf94c426fa3dc6cb246b1 (diff) |
apache export: don't bomb out when svc_www records aren't associated with an svc_acct, just leave those subsitution vars blank
Diffstat (limited to 'bin')
-rwxr-xr-x | bin/apache.export | 12 |
1 files changed, 9 insertions, 3 deletions
diff --git a/bin/apache.export b/bin/apache.export index d1ee9e78c..da2d73c1c 100755 --- a/bin/apache.export +++ b/bin/apache.export @@ -45,10 +45,16 @@ foreach my $export ( @exports ) { 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}; |