diff options
Diffstat (limited to 'dns_wizard')
| -rw-r--r-- | dns_wizard/Bind.pm | 16 |
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*$//; |