From 79843e9711f1e21823df989c9200031514e8e0fc Mon Sep 17 00:00:00 2001 From: Florent Villard Date: Wed, 5 Nov 2003 16:57:20 +0000 Subject: fix ftp anonymous mode fix ntp wizard fix bind config --- client_wizard/Bind_client.pm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'client_wizard') 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); -- cgit v1.2.1