From 195d056cf68a4278e88d2181a0963f683077512c Mon Sep 17 00:00:00 2001
From: Antoine Ginies <aginies@mandriva.com>
Date: Wed, 21 Jan 2004 16:12:07 +0000
Subject: perl_checker recommendation

---
 dns_wizard/Bind.pm | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

(limited to 'dns_wizard/Bind.pm')

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*$//;
-- 
cgit v1.2.1