diff options
author | ivan <ivan> | 2003-03-20 03:42:51 +0000 |
---|---|---|
committer | ivan <ivan> | 2003-03-20 03:42:51 +0000 |
commit | e95b8c2e1138594f6bc3715fd9c24a06636311d8 (patch) | |
tree | 479556539b1510b6567dbe127b6cf9eb2d294423 /bin/bind.export | |
parent | 9ba9f5252cceb2385c914127062e1ca3954b6d60 (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 943aefbb0..055782a20 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; |