diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2004-01-22 20:00:06 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2004-01-22 20:00:06 +0000 |
| commit | 568cc7c168e09ca61e6a6652ad0ab597fa5b6421 (patch) | |
| tree | 7ae6b93d322db1543350608f9dba88007fa23f14 /dns_wizard/Bind.pm | |
| parent | 1d8f4f1511ffe1a3e499e089b126397f1d9d0af4 (diff) | |
| download | drakwizard-568cc7c168e09ca61e6a6652ad0ab597fa5b6421.tar drakwizard-568cc7c168e09ca61e6a6652ad0ab597fa5b6421.tar.gz drakwizard-568cc7c168e09ca61e6a6652ad0ab597fa5b6421.tar.bz2 drakwizard-568cc7c168e09ca61e6a6652ad0ab597fa5b6421.tar.xz drakwizard-568cc7c168e09ca61e6a6652ad0ab597fa5b6421.zip | |
perl_checker fixes
Diffstat (limited to 'dns_wizard/Bind.pm')
| -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; |