From 27a8e524914e6837b6088c2d29e6a0d186d17ce3 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Wed, 17 Oct 2012 17:09:15 +0000 Subject: perl_checker cleanups --- client_wizard/Bind_client.pm | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'client_wizard') diff --git a/client_wizard/Bind_client.pm b/client_wizard/Bind_client.pm index 396260e2..fc3ddc2a 100755 --- a/client_wizard/Bind_client.pm +++ b/client_wizard/Bind_client.pm @@ -44,9 +44,9 @@ my $o = { defaultimage => "$ENV{__WIZ_HOME__}client_wizard/images/DNS.png", init => sub { if (! -f "/var/named/$wiz_domain_name.db") { - return (0, N("You must first run the DNS server wizard")) + return (0, N("You must first run the DNS server wizard")); } - 1 + 1; } }; @@ -163,7 +163,7 @@ sub do_it { my $file="/var/named/$wiz_domain_name.db"; my $client_name = $o->{var}{client_name}; $client_name =~ s/\.$wiz_domain_name$//; - MDK::Common::cp_af($file, $file.".orig"); + MDK::Common::cp_af($file, $file . ".orig"); local *NEW; open(NEW, ">> $file") or die "can not open $file"; print NEW "\n$client_name IN A $o->{var}{client_ip} ; $date\n\n"; @@ -171,15 +171,15 @@ sub do_it { up_serial($file); $file="/var/named/$s_trunc.rev"; - MDK::Common::cp_af($file, $file.".orig"); + MDK::Common::cp_af($file, $file . ".orig"); open(NEW, ">> $file") or die "can not open $file"; print NEW "\n$dc IN PTR $o->{var}{client_name}. ; $date\n\n"; close(NEW) or die "can not close $file"; up_serial($file); if (services::is_service_running('named')) { - services::restart('named') + services::restart('named'); } else { - services::start('named') + services::start('named'); } } -- cgit v1.2.1