summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--dns_wizard/scripts/Dnsconf.pm35
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;