diff options
author | ivan <ivan> | 2007-07-20 19:58:35 +0000 |
---|---|---|
committer | ivan <ivan> | 2007-07-20 19:58:35 +0000 |
commit | 7c583cfe5adf794d7d52fabc26ed497300121371 (patch) | |
tree | d11e208720ca151c32f43939377564a610a5b433 /bin | |
parent | 2c253fc98455f44c9f45d03da6100b3f0f24d26d (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}; |