summaryrefslogtreecommitdiffstats
path: root/dns_wizard/Bind.pm
diff options
context:
space:
mode:
authorAntoine Ginies <aginies@mandriva.com>2004-01-21 16:12:07 +0000
committerAntoine Ginies <aginies@mandriva.com>2004-01-21 16:12:07 +0000
commit195d056cf68a4278e88d2181a0963f683077512c (patch)
tree93f21847d94aa44480de705e413acdcbeef28468 /dns_wizard/Bind.pm
parent0d5a6c9d48ceedbb482dcfce1f64bacfcbd46937 (diff)
downloaddrakwizard-195d056cf68a4278e88d2181a0963f683077512c.tar
drakwizard-195d056cf68a4278e88d2181a0963f683077512c.tar.gz
drakwizard-195d056cf68a4278e88d2181a0963f683077512c.tar.bz2
drakwizard-195d056cf68a4278e88d2181a0963f683077512c.tar.xz
drakwizard-195d056cf68a4278e88d2181a0963f683077512c.zip
perl_checker recommendation
Diffstat (limited to 'dns_wizard/Bind.pm')
-rw-r--r--dns_wizard/Bind.pm16
1 files changed, 8 insertions, 8 deletions
diff --git a/dns_wizard/Bind.pm b/dns_wizard/Bind.pm
index e5d210b4..d722c2b7 100644
--- a/dns_wizard/Bind.pm
+++ b/dns_wizard/Bind.pm
@@ -68,10 +68,10 @@ my $o = {
defaultimage => "/usr/share/wizards/dns_wizard/images/DNS.png",
init => sub {
if ($SHORTHOSTNAME =~ /localhost/) {
- return (0, N("You need to readjust your hostname."))
+ return 0, N("You need to readjust your hostname.")
}
if (member($DOMAINNAME, qw(localdomain (none)))) {
- return (0, N("You need to readjust your domainname. For a DNS server you need a correct domainname, not egal to localdomain or none. Launch drakconnect to adjust it."))
+ return 0, N("You need to readjust your domainname. For a DNS server you need a correct domainname, not egal to localdomain or none. Launch drakconnect to adjust it.")
}
1
},
@@ -259,7 +259,7 @@ $o->{pages} = {
};
sub check_dhcp {
- $wiz->{net}->is_dhcp() and return 'dhcp_warning';
+ $wiz->{net}->is_dhcp and return 'dhcp_warning';
}
sub test_srv {
@@ -696,7 +696,7 @@ sub do_it_slave {
my $w = $in->wait_message(N("Slave DNS server"), N("Configuring your system as Slave DNS server ..."));
do_it();
rm_rf(glob("$NAMED_DIR/bak*"));
- crea_named_slave($IPSERVER, $DOMAINNAME ,$o->{var}{IPMASTER});
+ crea_named_slave($IPSERVER, $DOMAINNAME, $o->{var}{IPMASTER});
end_it();
undef $w;
}
@@ -723,7 +723,7 @@ sub do_it_add {
test_srv();
my $iprev = get_spe_ip('iprev', $IPSERVER);
my $ipend = get_spe_ip('ipend', $o->{var}{CLIENTIP});
- my $SNAME= get_shortname($o->{var}{CLIENTNAME});
+ my $SNAME = get_shortname($o->{var}{CLIENTNAME});
if (any { /$ipend\tIN/ } cat_("$ZONE_DIR/db.$iprev.hosts")) {
return 'error_add';
} elsif (any { /$SNAME.$DOMAINNAME.$/ } cat_("$ZONE_DIR/db.$iprev.hosts")) {
@@ -731,9 +731,9 @@ sub do_it_add {
} else {
print "good add\n";
append_to_file("$ZONE_DIR/db.$DOMAINNAME.hosts",
- "$SNAME.$DOMAINNAME\.\tIN\tA\t$o->{var}{CLIENTIP}\n");
+ "$SNAME.$DOMAINNAME\tIN\tA\t$o->{var}{CLIENTIP}\n");
append_to_file("$ZONE_DIR/db.$iprev.hosts",
- "$ipend\tIN\tPTR\t$SNAME.$DOMAINNAME\.\n");
+ "$ipend\tIN\tPTR\t$SNAME.$DOMAINNAME\n");
}
system("service named reload");
}
@@ -743,7 +743,7 @@ sub do_it_remove {
test_master();
test_srv();
my $iprev = get_spe_ip('iprev', $IPSERVER);
- my $NAME= $o->{var}{CLIENTNAME};
+ my $NAME = $o->{var}{CLIENTNAME};
substInFile {
s/^\b$NAME.\b.*//;
s/^\s*$//;