summaryrefslogtreecommitdiffstats
path: root/client_wizard
diff options
context:
space:
mode:
Diffstat (limited to 'client_wizard')
-rwxr-xr-xclient_wizard/Bind_client.pm4
1 files changed, 3 insertions, 1 deletions
diff --git a/client_wizard/Bind_client.pm b/client_wizard/Bind_client.pm
index b7d065a9..44b692e8 100755
--- a/client_wizard/Bind_client.pm
+++ b/client_wizard/Bind_client.pm
@@ -162,9 +162,11 @@ sub do_it {
my $dc = "$4" if $o->{var}{client_ip} =~ /(\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3})/;
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");
open(NEW, ">> $file") or die "can not open $file";
- print NEW "\n$o->{var}{client_name} IN A $o->{var}{client_ip} ; $date\n\n";
+ print NEW "\n$client_name IN A $o->{var}{client_ip} ; $date\n\n";
close(NEW) or die "can not close $file";
up_serial($file);