diff options
| -rw-r--r-- | dns_wizard/scripts/Dnsconf.pm | 35 |
1 files changed, 28 insertions, 7 deletions
diff --git a/dns_wizard/scripts/Dnsconf.pm b/dns_wizard/scripts/Dnsconf.pm index f5a00abb..f789f20c 100644 --- a/dns_wizard/scripts/Dnsconf.pm +++ b/dns_wizard/scripts/Dnsconf.pm @@ -1,5 +1,23 @@ #!/usr/bin/perl +# DNS Config Parser + +# Copyright (C) 2002 MandrakeSoft Arnaud Desmons <adesmons@mandrakesoft.com> +# +# This program is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 2, or (at your option) +# any later version. +# +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with this program; if not, write to the Free Software +# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. + package Dnsconf; require "__WIZ_HOME__/common/scripts/Vareqval.pm"; require "__WIZ_HOME__/common/scripts/DrakconnectConf.pm"; @@ -44,8 +62,6 @@ sub do_it { $file = "/etc/named.conf"; MDK::Common::cp_af($file, $file.".orig"); - standalone::explanations("Now putting $file configuration"); - my $ispns1 = $ENV{wiz_ext_dns1} || "// __ISPN1__"; my $ispns2 = $ENV{wiz_ext_dns2} || "// __ISPN2__"; @@ -57,6 +73,8 @@ sub do_it { s|__net__|$s_trunc|g; $_; } cat_("__WIZ_HOME__/dns_wizard/scripts/named.conf.default")); + + standalone::explanations("$file : DNS1: $ispns1 DNS2: $ispns2"); # Bug fix for bind 9: if (! -f "/etc/rndc.key") { system("touch /etc/rndc.key") or die "can not touch /etc/rndc.key"}; @@ -64,7 +82,7 @@ sub do_it { $file="/var/named/root.hints"; -f $file and MDK::Common::cp_af($file, $file . ".orig"); MDK::Common::cp_af("__WIZ_HOME__/dns_wizard/scripts/root.hints.default", $file); - + standalone::explanations("$file clobbered"); # 127.0.0.rev $file="/var/named/127.0.0.rev"; -f $file and MDK::Common::cp_af($file, $file . ".orig"); @@ -72,6 +90,7 @@ sub do_it { s|__hname__|$wiz_host_name|g; $_; } cat_("__WIZ_HOME__/dns_wizard/scripts/127.0.0.rev.default")); + standalone::explanations("$file : hostname: $wiz_host_name"); up_serial($file); # $ipnet.rev @@ -85,7 +104,8 @@ sub do_it { $_; } cat_("__WIZ_HOME__/dns_wizard/scripts/ipnet.rev.default")); up_serial($file); - + standalone::explanations("$file : domain: $wiz_domain_name hostname: $wiz_host_name revnet: $reversnet +nb: $ds"); # $domain.db $file = "/var/named/$wiz_domain_name.db"; -f $file and MDK::Common::cp_af($file, $file.".orig"); @@ -98,16 +118,17 @@ sub do_it { $_; } cat_("__WIZ_HOME__/dns_wizard/scripts/domain.db.default")); up_serial($file); - -#resolv.conf + standalone::explanations("$file : domain: $wiz_domain_name hostname: $wiz_host_name revnet: $reversnet +nb: $ds"); +# resolv.conf $file = "/etc/resolv.conf"; -f $file and MDK::Common::cp_af($file, $file.".orig"); open(NEW, "> $file"); print NEW "domain $wiz_domain_name\n"; print NEW "nameserver $wiz_ip_server\n"; + standalone::explanations("$file : domain: $wiz_domain_name nameserver: $wiz_ip_server"); system("/sbin/chkconfig --level 235 named on"); system("/etc/rc.d/init.d/named restart"); 10; } - 1; |