summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rwxr-xr-xclient_wizard/Bind_client.pm12
1 files changed, 6 insertions, 6 deletions
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');
}
}