diff options
Diffstat (limited to 'dns_wizard')
| -rw-r--r-- | dns_wizard/Bind.pm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/dns_wizard/Bind.pm b/dns_wizard/Bind.pm index 5e5d2fe4..5d67de3a 100644 --- a/dns_wizard/Bind.pm +++ b/dns_wizard/Bind.pm @@ -90,7 +90,7 @@ my @list_hosts; sub list_hosts { my $iprev = get_spe_ip('iprev', $IPSERVER); my $db = "$ZONE_DIR/db.$iprev.hosts"; - my $ipnor = get_spe_ip('iprev', $IPSERVER); + #my $ipnor = get_spe_ip('iprev', $IPSERVER); # push @list_hosts, ""; foreach (cat_($db)) { my ($h) = /\d{1,3}\tIN\tPTR\t(.*)/; @@ -574,7 +574,7 @@ sub save_old_config { sub generate_rndc { mkdir_p($WDIR); system("rndc-confgen -a -c $WDIR/rndc.key"); - my ($key) = cat_("$WDIR/rndc.key") =~ /secret \"(\S*)\";/; + my ($key) = cat_("$WDIR/rndc.key") =~ /secret "(\S*)";/; $key; } @@ -646,7 +646,7 @@ sub check_iph { sub do_it { $::testing and return; - my ($st) = @_; + #my ($st) = @_; crea_wdir($WDIR); # create files crea_db_local(); @@ -755,7 +755,7 @@ sub do_it_list { return if $::testing; my $iprev = get_spe_ip('iprev', $IPSERVER); my $db = "$ZONE_DIR/db.$iprev.hosts"; - my $ipnor = get_spe_ip('ipnor', $IPSERVER); + #my $ipnor = get_spe_ip('ipnor', $IPSERVER); my @hosts; my @ip; foreach (cat_($db)) { my ($ipend, $h) = /(\d{1,3})\tIN\tPTR\t(.*)/; @@ -765,7 +765,7 @@ sub do_it_list { sub new { - my ($class, $conf) = @_; + my ($class) = @_; bless { o => $o, }, $class; |