diff options
author | ivan <ivan> | 2003-03-20 03:41:03 +0000 |
---|---|---|
committer | ivan <ivan> | 2003-03-20 03:41:03 +0000 |
commit | 9aec22e5fd00800c6e7952ae5b85cc639d4b1e78 (patch) | |
tree | 11544ec21fa991b75933bc55c73bcc354e4cfd98 /bin/bind.export | |
parent | 6609285a50f6c9110ae8d5a26a767fd895f1e325 (diff) |
apache export!
Diffstat (limited to 'bin/bind.export')
-rwxr-xr-x | bin/bind.export | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/bin/bind.export b/bin/bind.export index 943aefb..055782a 100755 --- a/bin/bind.export +++ b/bin/bind.export @@ -46,12 +46,7 @@ foreach my $export ( @exports ) { my $zonepath = $export->option('zonepath'); $zonepath =~ s/\/$//; - #false laziness with freeside-sqlradius-reset and shell.export - my @svc_domain = - map { qsearchs('svc_domain', { 'svcnum' => $_->svcnum } ) } - map { qsearch('cust_svc', { 'svcpart' => $_->svcpart } ) } - grep { qsearch('cust_svc', { 'svcpart' => $_->svcpart } ) } - $export->export_svc; + my @svc_domain = $export->svc_x; foreach my $svc_domain ( @svc_domain ) { my $domain = $svc_domain->domain; |