open(NAMED_CONF,">$prefix/named.conf")
or die "can't open $prefix/named.conf: $!";
- open(CONF_HEADER,"<$prefix/named.conf.HEADER"); #or die
+ open(CONF_HEADER,"<$prefix/named.conf.HEADER")
+ or die "can't open $prefix/named.conf.HEADER: $!";
while (<CONF_HEADER>) { print NAMED_CONF $_; }
close CONF_HEADER;
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;
open(NAMED_CONF,">$prefix/named.conf")
or die "can't open $prefix/named.conf: $!";
- open(CONF_HEADER,"<$prefix/named.conf.HEADER"); #or die
+ open(CONF_HEADER,"<$prefix/named.conf.HEADER")
+ or die "can't open $prefix/named.conf.HEADER: $!";
while (<CONF_HEADER>) { print NAMED_CONF $_; }
close CONF_HEADER;