diff options
Diffstat (limited to 'client_wizard/Bind_client.pm')
| -rwxr-xr-x | client_wizard/Bind_client.pm | 4 |
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); |