Branch for updates

11 files changed, 1383 insertions, 0 deletions

diff --git a/dns_wizard/.perl_checker b/dns_wizard/.perl_checker
new file mode 100644
index 00000000..725f44b4
--- /dev/null
+++ b/dns_wizard/.perl_checker
@@ -0,0 +1 @@
+Basedir ..
\ No newline at end of file
diff --git a/dns_wizard/Bind.pm b/dns_wizard/Bind.pm
new file mode 100644
index 00000000..29e2d766
--- /dev/null
+++ b/dns_wizard/Bind.pm
@@ -0,0 +1,930 @@
+#!/usr/bin/perl -w
+#
+# version 0.4
+# Copyright (C) 2004 Mandrakesoft
+# Author: Antoine Ginies <aginies _ateuh _ 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 MDK::Wizard::Bind;
+use lib qw(/usr/lib/libDrakX);
+
+use strict;
+use services;
+use common;
+use MDK::Wizard::Varspaceval;
+use MDK::Wizard::Wizcommon;
+use network::network;
+
+my $wiz = new MDK::Wizard::Wizcommon;
+my $in = interactive->vnew;
+my $SERIAL = chomp_(`date +20%y%m%d`);
+my $HOSTNAME = $wiz->{net}->network_get("HOSTNAME");
+my $BIND_CHROOT = "/var/lib/named";
+
+my $IPSERVER = $wiz->{net}->itf_get("IPADDR");
+my $sys_wizard_dns = "/etc/sysconfig/drak_dns_wiz";
+if (-f $sys_wizard_dns) {
+  our ($interface) = cat_($sys_wizard_dns) =~ /INTERFACE=(.*)/;
+  ($IPSERVER) = `/sbin/ip addr show dev $interface` =~ /^\s*inet\s+(\d+\.\d+\.\d+\.\d+)/m;
+} else {
+  our $interface = "eth0";
+  ($IPSERVER) = `/sbin/ip addr show dev $interface` =~ /^\s*inet\s+(\d+\.\d+\.\d+\.\d+)/m;
+}
+
+my $DOMAINNAME = chomp_(`dnsdomainname`);
+my $CLIENTIP = get_spe_ip("ipnor", $IPSERVER) . ".";
+my $WDIR = "/tmp/dnstest";
+my $NAMED_DIR = $BIND_CHROOT . "/var/named";
+my $DNSKEY = "";
+my $SHORTHOSTNAME = chomp_(`hostname -s`);
+my $TEXTINFO = "dns Wizard";
+my $REP_SAVE = "/tmp/bck";
+my $ZONE_DIR = $NAMED_DIR . "/zone";
+my $DATE = `date +%d-%m-20%y`;
+
+my $o = {
+	 name => 'DNS Configuration Wizard',
+	 var => {
+		 IPOFFORWARDER => '',
+		 ADDSEARCH => '',
+		 DOMAINNAME => $DOMAINNAME,
+		 SHORTHOSTNAME => $SHORTHOSTNAME,
+		 IPMASTER => '',
+		 CLIENTNAME => '',
+		 CLIENTIP => $CLIENTIP,
+		},
+	 init => sub {
+	   my ($err, $msg) = test_host_domain($SHORTHOSTNAME, $DOMAINNAME);
+	   if (!$err) {
+	     $in->ask_warn(N('Error'), $msg);
+	     die 'wizcancel';
+	   }
+	   ($err, $msg)
+	 },
+	 needed_rpm => [ 'bind' ],
+	 defaultimage => "/usr/share/mcc/themes/default/dns_server-mdk.png",
+	};
+
+my %level = (
+	     1 => N("Master DNS server"),
+	     2 => N("Slave DNS server"),
+	     3 => N("Add host in DNS"),
+	     4 => N("Remove host in DNS"),
+	     );
+
+my @list_hosts;
+
+sub list_hosts {
+  my $iprev = get_spe_ip('iprev', $IPSERVER);
+  my $db = "$ZONE_DIR/db.$iprev.hosts";
+  #my $ipnor = get_spe_ip('iprev', $IPSERVER);
+#  push @list_hosts, "";
+  foreach (cat_($db)) {
+    my ($h) = /\d{1,3}\tIN\tPTR\t(.*)/;
+    !$h or push @list_hosts,$h;
+  }
+  @list_hosts;
+}
+
+$o->{pages} = {
+	       welcome => {
+			   name => N("DNS Master configuration wizard") . "\n\n" . N("DNS (Domain Name Server) is the service that maps an IP address of a machine with an internet host name.") . "\n\n" . N("This wizard will help you configuring the DNS services of your server. This configuration will provide a local DNS service for local computers names, with non-local requests forwarded to an outside DNS."),
+			   no_back => 1,
+			   pre => sub {
+			     $o->{var}{wiz_level} ||= 1;
+			   },
+			   post => sub {
+			     if ($o->{var}{wiz_level} == 2) {
+			       return 'slave' }
+			     elsif ($o->{var}{wiz_level} == 1) {
+			       return 'interface' }
+			     elsif ($o->{var}{wiz_level} == 3) { 
+			       if (-f $sys_wizard_dns) { return 'addhost' } else { return 'error_notmaster' } }
+			     elsif ($o->{var}{wiz_level} == 4) {
+			       if (-f $sys_wizard_dns) { return 'removehost' } else { return 'error_notmaster' } }
+			   },
+			   data => [
+				    { label => '', val => \$o->{var}{wiz_level}, type => 'list', list => [ sort keys %level ], format => sub { $level{$_[0]} } },
+				   ],
+			   next => 'interface',
+			  },
+	       interface => {
+			     name => N("DNS server Interface"),
+			     data => [
+				      { list => [ keys %{$wiz->{net}{itf}} ],  val => \$o->{var}{interface} },
+				     ],
+			     no_back => 1,
+			     next => 'ipforward'
+			    },
+	       addhost => {
+			   name => N("Client identification:") . "\n\n" . N("Your client on the network will be identified by name, as in clientname.company.net. Every machine on the network must have a (unique) IP address, in the usual dotted syntax.") . "\n\n" . N("(You don't need to add the domain after the name)") . "\n\n" . N("Note that the given IP address and client name should be unique in the network."),
+			   data => [
+				    { label => N("Server:"), val_ref => \$o->{var}{SHORTHOSTNAME} },
+				    { label => N("DNS Domainname:"), val_ref => \$o->{var}{DOMAINNAME} },
+				    { label => N("Name of the machine:"), val => \$o->{var}{CLIENTNAME} },
+				    { label => N("IP address of the machine:"), val => \$o->{var}{CLIENTIP} },
+				   ],
+			       complete => sub {
+				   if ($o->{var}{CLIENTIP}) {
+				       if (!is_ip($o->{var}{CLIENTIP})) {
+					   #$in->ask_warn(N('Error'), N('This is not a valid IP address.')); 
+					   return 1;
+				       } else { return 0; }
+				   }
+			       },
+			   no_back => 1,
+			   next => 'summaryadd', no_back => 1,
+			  },
+	       removehost => {
+			      name => N("Remove host:") . "\n\n" . N("Remove a host in existing DNS configuration.") . "\n\n" . N("Choose the host you want to remove in the following list."),
+			      data => [
+				       { label => N("Computer Name:"), val => \$o->{var}{CLIENTNAME}, list_ref => \@list_hosts },
+				      ],
+			      post => \&list_hosts,
+			      next => 'summaryremove', no_back => 1,
+			     },
+	       slave => {
+			 name => N("Slave DNS server") . "\n\n" . N("A slave name server will take some of the burden away from your primary name server, and will also function as a backup server, in case your master server is unreachable."),
+			 data => [
+				  { label => N("IP Address of the master DNS server:"), val => \$o->{var}{IPMASTER} },
+				 ],
+ 			     complete => sub {
+				 if ($o->{var}{IPMASTER}) {
+				     if (!is_ip($o->{var}{IPMASTER})) {
+					 #$in->ask_warn(N('Error'), N('This is not a valid IP address.')); 
+					 return 1;
+				     } else { return 0; }
+				 }
+			     },
+			 no_back => 1,
+			 next => 'summaryslave',
+			},
+
+	       ipforward => {
+			     name => N("IP of your forwarder") . "\n\n" . N("Forwarding occurs on only those queries for which the server is not authoritative and  does not have the answer in its cache.") . "\n\n" . N("If you need it and know your IP forwarder enter IP address of it, if you dont know leave it blank"),
+			   pre => sub {
+			     ($IPSERVER) = `/sbin/ip addr show dev $o->{var}{interface}` =~ /^\s*inet\s+(\d+\.\d+\.\d+\.\d+)/m;
+			     output($sys_wizard_dns, "INTERFACE=$o->{var}{interface}\n");
+			   },
+			     data => [
+				      { label => N("External DNS:"), val => \$o->{var}{IPOFFORWARDER} },
+				     ],
+				 complete => sub {
+				     if ($o->{var}{IPOFFORWARDER}) {
+					 if (!is_ip($o->{var}{IPOFFORWARDER})) {
+					     #$in->ask_warn(N('Error'), N('This is not a valid IP address for your forwarder.')); 
+					     return 1;
+					 } else { return 0; }
+				     }
+				 },
+                             no_back => 1,
+			     next => 'addsearch',
+			    },
+	       addsearch => {
+			     name => N("Add search domain") . "\n\n" . N("Search list for host-name lookup.  The search list is normally determined from the local domain name; by default, it contains only the local domain name. This may be changed by listing the desired domain search path following the search keyword") . "\n\n" . N("Domainname of this server is automatically added, and you dont need to add it here."),
+
+			     data => [
+				      { label => N("Default domain name to search:"), val => \$o->{var}{ADDSEARCH} },
+				     ],
+			     next => 'summary',
+			    },
+	       error_ipf => {
+			     name => N("This is not a valid IP address for your forwarder... press next to continue"),
+			     ignore => 1,
+			     next => 'ipforward',
+			    },
+	       error_ipm => {
+			     name => N("This is not a valid Master DNS IP address... press next to continue"),
+			     ignore => 1,
+			     next => 'slave',
+			    },
+	       error_iph => {
+			     name => N("This is not a valid IP address... press next to continue"),
+			     ignore => 1,
+			     next => 'addhost',
+			    },
+	       dhcp_warning => {
+				name => N("Warning") . "\n\n" . N("You are in dhcp, server may not work with your configuration."),
+				ignore => 1,
+				next => 'client_id'
+			       },
+	       error_add => {
+			     name => N("Error.") . "\n\n" . N("It seems that host is already in your DNS configuration... press next to continue"),
+			     ignore => 1,
+			     next => 'addhost',
+			    },
+	       error_remove => {
+				name => N("Error:") . "\n\n" . N("It seems that this is not present in your DNS configuration... press next to continue"),
+				ignore => 1,
+				next => 'removehost',
+			       },
+	       error_nosrv => {
+			       name => N("It seems that no DNS server has been set through wizard. Please run DNS wizard: Master DNS server."),
+			       end => 1,
+			      },
+	       error_notmaster => {
+				   name => N("It seems that you are not a master DNS server, so I can't add/remove host."),
+				   end => 1,
+				  },
+	       summaryslave => {
+				name => N("Wizard will Now build your DNS slave configuration") . "\n\n" . N("with this configuration:"),
+				data => [
+					 { label => N("IP Address of the master DNS server:"), val_ref => \$o->{var}{IPMASTER} },
+					],
+				post => \&do_it_slave,
+				next => 'end',
+			       },
+	       summaryadd => {
+			      name => N("Client with this identification will be added to your DNS"),
+			      data => [
+				       { label => N("Server:"), val_ref => \$o->{var}{SHORTHOSTNAME} },
+				       { label => N("DNS Domainname:"), val_ref => \$o->{var}{DOMAINNAME} },
+				       { label => N("Computer name:"), val_ref => \$o->{var}{CLIENTNAME} },
+				       { label => N("Computer IP address:"), val_ref => \$o->{var}{CLIENTIP} },
+				      ],
+			      post => \&do_it_add,
+			     },
+	       summaryremove => {
+				 name => N("Client with this identification will be removed from your DNS"),
+				 data => [
+					  { label => N("Computer name:"), val => \$o->{var}{CLIENTNAME}, list_ref => \@list_hosts },
+					 ],
+				 post => \&do_it_remove,
+				 next => 'endremove',
+				},
+	       summary => {
+			   name => N("The DNS server is about to be configured with the following configuration"),
+			   data => [
+				    { label => N("Server Hostname:"), val_ref => \$o->{var}{SHORTHOSTNAME} },
+				    { label => N("Domainname:"), val_ref => \$o->{var}{DOMAINNAME} },
+				    { label => N("External DNS:"), val_ref => \$o->{var}{IPOFFORWARDER} },
+				    { label => N("Default domain name to search:"), val_ref => \$o->{var}{ADDSEARCH} },
+				   ],
+			   post => \&do_it_master,
+			   next => 'end',
+			  },
+	       endadd => {
+			  name => N("Congratulations"),
+			  data => [ { label => N("The wizard successfully added the host in your DNS.") } ],
+			  no_back => 1,
+			  end => 1,
+			 },
+	       endremove => {
+			     name => N("Congratulations"),
+			     data => [ { label => N("The wizard successfully removed the host from your DNS.") } ],
+			     no_back => 1,
+			     end => 1,
+			 },
+	       end => {
+		       name => N("Congratulations"),
+		       data => [ { label => N("The wizard successfully configured the DNS service of your server.") } ],
+		       no_back => 1,
+		       end => 1,
+		      },
+	       error_end => {
+			     name => N("Failed"),
+			     data => [ { label => N("Please Relaunch drakwizard, and try to change some parameters.") } ],
+			     no_back => 1,
+			     end => 1,
+			    },
+	      };
+
+sub test_srv {
+  my $dir = $BIND_CHROOT . "/var/named/zone";
+  -d $dir or return 'error_nosrv';
+}
+
+sub interface_to_ip {
+  my ($interface) = @_;
+  my ($ip) = `/sbin/ip addr show dev $interface` =~ /^\s*inet\s+(\d+\.\d+\.\d+\.\d+)/m;
+  $ip;
+}
+
+sub crea_wdir {
+  if (-e $WDIR) { system("rm -rf $WDIR") }
+  mkdir_p($WDIR);
+}
+
+sub resolv_ip {
+  my ($ip) = @_;
+  gethostbyaddr(Socket::inet_aton($ip), Socket::AF_INET());
+}
+
+sub resolv_name {
+  my ($name) = @_;
+  join(".", unpack "C4", (gethostbyname $name)[4]);
+}
+
+
+sub get_spe_ip {
+  # waiting iprev, ipnorm or ipend
+  my ($att, $ip) = @_;
+  my @o = split(/\./, $ip);
+  if ($att =~ /iprev/) {
+    my $iprev = $o[2] . "." . $o[1] . "." . $o[0];
+    return $iprev;
+  } elsif ($att =~ /ipnor/) {
+    my $ipnor = $o[0] . "." . $o[1] . "." . $o[2];
+    return $ipnor;
+  } elsif ($att =~ /ipend/) {
+    my $ipend = $o[3];
+    return $ipend;
+  }
+}
+
+sub increment_serial {
+  my ($iprev) = @_;
+  my ($SERIAL) = cat_("$ZONE_DIR/db.$DOMAINNAME.hosts") =~ m/\s+(.*?)\s+;\s+Serial/;
+  $SERIAL = chomp_($SERIAL+1);
+  substInFile {
+      s/\s+\d+\s+;\s+Serial/     $SERIAL ; Serial/;
+  } "$ZONE_DIR/db.$DOMAINNAME.hosts";
+
+  substInFile {
+      s/\s+\d+\s+;\s+Serial/     $SERIAL ; Serial/;
+  } "$ZONE_DIR/db.$iprev.hosts"; 
+}
+
+
+sub crea_db_local {
+    output($WDIR . "/db.localhost", <<EOF);
+\$TTL 3D
+\@       IN      SOA     $HOSTNAME. root.$HOSTNAME. (
+         $SERIAL  ; Serial
+	 8H  ; Refresh
+	 2H  ; Retry
+	 4W  ; Expire
+	 1D) ; Minimum TTL
+         NS      $HOSTNAME.
+1        IN PTR   localhost.
+EOF
+}
+# end of db.local
+
+
+# create named.conf file
+sub crea_named_common {
+    output($WDIR . "/named.conf", <<EOF);
+// (oe) Loosely based on the document below and from production server configurations.
+// http://www.cymru.com/Documents/secure-bind-template.html
+
+// secret must be the same as in /etc/rndc.conf
+include "/etc/rndc.key";
+
+controls {
+    inet 127.0.0.1 port 953
+    allow { 127.0.0.1; } keys { mykey; };
+};
+
+options {
+    version "";
+    directory "/var/named";
+    dump-file "/var/tmp/named_dump.db";
+    pid-file "/var/run/named.pid";
+    statistics-file "/var/tmp/named.stats";
+    zone-statistics yes;
+//    datasize 256M;
+    coresize 100M; 
+//    fetch-glue no;
+//    recursion no;
+//    recursive-clients 10000;
+    auth-nxdomain yes;
+    query-source address * port *;
+    listen-on port 53 { any; };
+    cleaning-interval 120;
+    transfers-in 20;
+    transfers-per-ns 2;
+    lame-ttl 0;
+    max-ncache-ttl 10800;
+
+//    forwarders { first_public_nameserver_ip; second_public_nameserver_ip; };
+EOF
+    !$o->{var}{IPOFFORWARDER} or append_to_file($WDIR . "/named.conf", "\tforwarders { $o->{var}{IPOFFORWARDER}; };\n");
+    append_to_file($WDIR . "/named.conf", <<EOF);
+
+//    allow-update { none; };
+//    allow-transfer { any; };
+// Prevent DoS attacks by generating bogus zone transfer 
+// requests.  This will result in slower updates to the 
+// slave servers (e.g. they will await the poll interval 
+// before checking for updates). 
+    notify no; 
+//    notify explicit; 
+//    also-notify { secondary_name_server };
+
+// Generate more efficient zone transfers.  This will place 
+// multiple DNS records in a DNS message, instead of one per 
+// DNS message. 
+    transfer-format many-answers; 
+
+// Set the maximum zone transfer time to something more 
+// reasonable.  In this case, we state that any zone transfer 
+// that takes longer than 60 minutes is unlikely to ever 
+// complete.  WARNING:  If you have very large zone files, 
+// adjust this to fit your requirements. 
+    max-transfer-time-in 60; 
+
+// We have no dynamic interfaces, so BIND shouldn't need to 
+// poll for interface state {UP|DOWN}. 
+    interface-interval 0; 
+
+// Uncoment these to enable IPv6 connections support
+// IPv4 will still work
+//      listen-on { none; };
+//      listen-on-v6 { any; };
+
+    allow-query { any; };
+    allow-recursion { any; };
+
+// Deny anything from the bogon networks as
+// detailed in the "bogon" ACL.
+//    blackhole { bogon; };
+};
+
+// workaround stupid stuff... (OE: Wed 17 Sep 2003)
+zone "ac" { type delegation-only; };
+zone "cc" { type delegation-only; };
+zone "com" { type delegation-only; };
+zone "cx" { type delegation-only; };
+zone "lv" { type delegation-only; };
+zone "museum" { type delegation-only; };
+zone "net" { type delegation-only; };
+zone "nu" { type delegation-only; };
+zone "ph" { type delegation-only; };
+zone "sh" { type delegation-only; };
+zone "tm" { type delegation-only; };
+zone "ws" { type delegation-only; };
+
+zone "." IN {
+        type hint;
+        file "named.ca";
+};
+
+zone "localdomain" IN {
+        type master;
+        file "master/localdomain.zone";
+        allow-update { none; };
+};
+
+zone "localhost" IN {
+        type master;
+        file "master/localhost.zone";
+        allow-update { none; };
+};
+
+zone "0.0.127.in-addr.arpa" IN {
+        type master;
+        file "reverse/named.local";
+        allow-update { none; };
+};
+
+zone "0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.ip6.arpa" IN {
+        type master;
+        file "reverse/named.ip6.local";
+        allow-update { none; };
+};
+
+zone "255.in-addr.arpa" IN {
+        type master;
+        file "reverse/named.broadcast";
+        allow-update { none; };
+};
+
+zone "0.in-addr.arpa" IN {
+        type master;
+        file "reverse/named.zero";
+        allow-update { none; };
+};
+
+EOF
+}
+# end named.conf
+
+sub crea_named_master {
+  my ($ip, $d) = @_;
+  my $iprev = get_spe_ip('iprev', $ip);
+  append_to_file($WDIR . "/named.conf", <<EOF);
+zone "$iprev.in-addr.arpa" {
+    type master;
+    file "zone/db.$iprev.hosts";
+    forwarders { };
+};
+
+zone "$d" {
+    type master;
+    file "zone/db.$d.hosts";
+    forwarders { };
+};
+EOF
+}
+
+sub crea_named_slave {
+  my ($ip, $d, $IPM) = @_;
+  my $iprev = get_spe_ip('iprev', $ip);
+  append_to_file($WDIR . "/named.conf", <<EOF);
+zone "$iprev.in-addr.arpa" {
+    type slave;
+    masters { $IPM; };
+    file "bak.db.$iprev.hosts";
+};
+
+zone "$d" {
+    type slave;
+    masters { $IPM; };
+    file "bak.db.$d.hosts";
+};
+EOF
+}
+
+# create hints
+sub crea_hints {
+    output($WDIR . "/root.hints", <<EOF);
+; <<>> DiG 8.1 <<>> \@A.ROOT-SERVERS.NET.
+; (1 server found)
+;; res options: init recurs defnam dnsrch
+;; got answer:
+;; ->>HEADER<<- opcode: QUERY, status: NOERROR, id: 10
+;; flags: qr aa rd; QUERY: 1, ANSWER: 13, AUTHORITY: 0, ADDITIONAL: 13
+;; QUERY SECTION:
+;;      ., type = NS, class = IN
+
+;; ANSWER SECTION:
+.                       6D IN NS        G.ROOT-SERVERS.NET.
+.                       6D IN NS        J.ROOT-SERVERS.NET.
+.                       6D IN NS        K.ROOT-SERVERS.NET.
+.                       6D IN NS        L.ROOT-SERVERS.NET.
+.                       6D IN NS        M.ROOT-SERVERS.NET.
+.                       6D IN NS        A.ROOT-SERVERS.NET.
+.                       6D IN NS        H.ROOT-SERVERS.NET.
+.                       6D IN NS        B.ROOT-SERVERS.NET.
+.                       6D IN NS        C.ROOT-SERVERS.NET.
+.                       6D IN NS        D.ROOT-SERVERS.NET.
+.                       6D IN NS        E.ROOT-SERVERS.NET.
+.                       6D IN NS        I.ROOT-SERVERS.NET.
+.                       6D IN NS        F.ROOT-SERVERS.NET.
+
+;; ADDITIONAL SECTION:
+G.ROOT-SERVERS.NET.     5w6d16h IN A    192.112.36.4
+J.ROOT-SERVERS.NET.     5w6d16h IN A    198.41.0.10
+K.ROOT-SERVERS.NET.     5w6d16h IN A    193.0.14.129
+L.ROOT-SERVERS.NET.     5w6d16h IN A    198.32.64.12
+M.ROOT-SERVERS.NET.     5w6d16h IN A    202.12.27.33
+A.ROOT-SERVERS.NET.     5w6d16h IN A    198.41.0.4
+H.ROOT-SERVERS.NET.     5w6d16h IN A    128.63.2.53
+B.ROOT-SERVERS.NET.     5w6d16h IN A    128.9.0.107
+C.ROOT-SERVERS.NET.     5w6d16h IN A    192.33.4.12
+D.ROOT-SERVERS.NET.     5w6d16h IN A    128.8.10.90
+E.ROOT-SERVERS.NET.     5w6d16h IN A    192.203.230.10
+I.ROOT-SERVERS.NET.     5w6d16h IN A    192.36.148.17
+F.ROOT-SERVERS.NET.     5w6d16h IN A    192.5.5.241
+;; Total query time: 215 msec
+;; FROM: roke.uio.no to SERVER: A.ROOT-SERVERS.NET.  198.41.0.4
+;; WHEN: Sun Feb 15 01:22:51 1998
+;; MSG SIZE  sent: 17  rcvd: 436
+EOF
+}
+# end roots.hints
+
+# create ipreverse
+sub crea_iprev {
+  my ($ip, $d) = @_;
+  my $iprev = get_spe_ip('iprev', $ip);
+  my $ipend = get_spe_ip('ipend', $ip);
+  output($WDIR . "/db." . $iprev . ".hosts", <<EOF);
+\$TTL 3D
+@       IN      SOA     $SHORTHOSTNAME.$d.        $SHORTHOSTNAME.$d. (
+		$SERIAL ; Serial
+                10800   ; Refresh
+                3600    ; Retry
+                604800  ; Expire
+                86400) ; Minimum TTL
+                NS      $SHORTHOSTNAME.$d.
+$ipend       IN      PTR     $SHORTHOSTNAME.$d.
+; use tab to retrieve data in drakwizard bind
+; 34      IN      PTR     xp2400.guibland.com.
+EOF
+
+}
+# end create iprev
+
+# create  ipnormal
+sub crea_ipnorm {
+  my ($ip, $d) = @_;
+  output($WDIR . "/db.$d.hosts", <<EOF);
+\$TTL 3D
+@       IN      SOA     $SHORTHOSTNAME.$d. root.$SHORTHOSTNAME.$d. (
+               $SERIAL       ; Serial
+               8H   ; Refresh
+               2H   ; Retry
+               4W  ; Expire
+               1D)  ; Minimum TTL
+               TXT     $TEXTINFO
+               IN      NS      $SHORTHOSTNAME.$d.
+localhost              A       127.0.0.1
+dnsmaster                   IN      CNAME   $SHORTHOSTNAME.$d.
+$SHORTHOSTNAME.$d.        IN      A      $ip
+; use tab to retrieve data in drakwizard bind
+; xp2400.guibland.com.        IN      A      10.0.1.34
+EOF
+}
+# end of ipnorm
+
+
+# create 127.0.
+sub crea_127 {
+  my $d = $DOMAINNAME;
+  output($WDIR . "/db.127.0.0.1", <<EOF);
+\$TTL 3D
+\@               IN      SOA     $d. root.$d. (
+                $SERIAL ; Serial
+                28800   ; Refresh
+                7200    ; Retry
+                604800  ; Expire
+                86400)  ; Minimum TTL
+                NS      $HOSTNAME.
+localhost      IN       A     127.0.0.1
+EOF
+}
+# end create 127
+
+# create rndc.conf
+sub crea_rndc {
+  output($WDIR . "/rndc.conf", <<EOF);
+/*
+* Copyright (C) 2000, 2001  Internet Software Consortium.
+*
+* Permission to use, copy, modify, and distribute this software for any
+* purpose with or without fee is hereby granted, provided that the above
+* copyright notice and this permission notice appear in all copies.
+*
+* THE SOFTWARE IS PROVIDED "AS IS" AND INTERNET SOFTWARE CONSORTIUM
+* DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE INCLUDING ALL
+* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL
+* INTERNET SOFTWARE CONSORTIUM BE LIABLE FOR ANY SPECIAL, DIRECT,
+* INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING
+* FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT,
+* NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION
+* WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
+*/
+/* Id: dns_cluster.pm,v 1.18 2003/04/10 16:01:47 aginies Exp */
+/*
+* Sample rndc configuration file.
+*/
+
+options {
+    default-server  localhost;
+    default-key     "mykey";
+};
+
+server localhost {
+    key     "mykey";
+};
+
+key "mykey" {
+    algorithm       hmac-md5;
+    secret "$DNSKEY";
+};
+EOF
+}
+# end of create rndc
+
+# save old config files
+
+sub save_old_config {
+  if (-d $ZONE_DIR) {
+    print " - Backup of current configuration in " . $REP_SAVE . "\n";
+  }
+  if (-d "$REP_SAVE/dns") { rm_rf("$REP_SAVE/dns") }
+  mkdir_p($REP_SAVE . '/dns');
+  system("cp -avf $ZONE_DIR/* $REP_SAVE/dns/");
+#  cp_af($_, "$REP_SAVE/dns/$_" . '-' . $DATE . '.sauv') foreach glob_($ZONE_DIR . "/*");
+  if (-e "$BIND_CHROOT/etc/named.conf") {
+    cp_af("$BIND_CHROOT/etc/named.conf", "$REP_SAVE/dns/named.conf-$DATE");
+  }
+}
+# end save old config
+
+sub generate_rndc {
+  mkdir_p($WDIR);
+  system("rndc-confgen -a -c $WDIR/rndc.key");
+  my ($key) = cat_("$WDIR/rndc.key") =~ /secret "(\S*)";/;
+  $key;
+}
+
+
+# reinit resolv.conf
+sub set_resolv {
+    output($WDIR . "/resolv.conf", <<EOF);
+domain $DOMAINNAME
+search $DOMAINNAME
+nameserver $IPSERVER
+EOF
+
+    !$o->{var}{IPMASTER} or return append_to_file($WDIR . "/resolv.conf", "nameserver $o->{var}{IPMASTER}\n");
+    !$o->{var}{ADDSEARCH} or return append_to_file($WDIR . "/resolv.conf", "search $o->{var}{ADDSEARCH}\n");
+    !$o->{var}{IPOFFORWARDER} or return append_to_file($WDIR . "/resolv.conf", "nameserver $o->{var}{IPOFFORWARDER}\n");
+}
+# end set resolv.conf
+
+# set /etc/hosts
+sub set_hosts {
+  my ($ip, $h) = @_;
+  if (!any { /$ip\s* $h/ } cat_($WDIR . "/hosts")) {
+    append_to_file($WDIR . "/hosts", <<EOF);
+$ip        $h
+EOF
+  }
+}
+# end set hosts
+
+# check config of dns
+sub check_config {
+  system('named-checkconf', $WDIR . '/named.conf');
+}
+# end check config
+
+# copy file correct place
+sub copy_good {
+  mkdir_p($ZONE_DIR);
+  mkdir_p("$BIND_CHROOT/etc");
+  cp_af($WDIR . '/named.conf', "$BIND_CHROOT/etc/named.conf");
+  cp_af($WDIR . '/rndc.conf', "$BIND_CHROOT/etc/rndc.conf");
+  cp_af($WDIR . '/hosts', '/etc/hosts');
+  cp_af($WDIR . '/resolv.conf', '/etc/resolv.conf');
+  cp_af($WDIR . '/root.hints', $ZONE_DIR . '/');
+  cp_af(glob($WDIR . '/db*'), $ZONE_DIR . '/');
+}
+# end copy goodplace
+
+my $ip_regexp = qr/^(\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3})$/;
+sub check_ipm {
+    my $ip = $o->{var}{IPMASTER};
+    $ip or return 'slave';
+    my @fields = $ip =~ $ip_regexp or return 'error_ipm';
+    every { 0 <= $_ && $_ <= 255 } @fields or return 'error_ipm';
+}
+
+sub check_ipf {
+    my $ip = $o->{var}{IPOFFORWARDER};
+    $ip or return 'addsearch';
+    my @fields = $ip =~ $ip_regexp or return 'error_ipf';
+    every { 0 <= $_ && $_ <= 255 } @fields or return 'error_ipf';
+}
+
+
+sub check_iph {
+  my $ip = $o->{var}{CLIENTIP};
+  my @fields = $ip =~ $ip_regexp or return 'error_iph';
+  every { 0 <= $_ && $_ <= 255 } @fields or return 'error_iph';
+}
+
+sub do_it {
+    $::testing and return;
+    #my ($st) = @_;
+    crea_wdir($WDIR);
+    # create files
+    crea_db_local();
+    crea_127();
+    crea_named_common();
+    # set host configuration
+    if (-f $WDIR . '/hosts')  { rm_rf($WDIR . '/hosts') }
+    set_hosts('127.0.0.1', 'localhost.localdomain localhost');
+    set_hosts($IPSERVER, $HOSTNAME);
+}
+
+sub end_it {
+  crea_hints();
+  crea_rndc();
+  # set configuration files on server
+  set_resolv();
+  # check generated config file are good
+  check_config();
+  # create backup
+  save_old_config();
+  # copy in correct place
+  copy_good();
+  # start or restart the service
+  if (services::is_service_running('named')) {
+    services::restart('named')
+    } else {
+      services::start('named')
+    }
+}
+
+sub do_it_master {
+  return if $::testing;
+  my $in = 'interactive'->vnew('su', 'dns');
+  check_starts_on_boot($in, 'named');
+  my $w = $in->wait_message(N("Master DNS server"), N("Configuring your system as Master DNS server ..."));
+  output($sys_wizard_dns, "INTERFACE=$o->{var}{interface}\n");
+  do_it();
+  crea_iprev($IPSERVER, $DOMAINNAME);
+  crea_ipnorm($IPSERVER, $DOMAINNAME);
+  crea_named_master($IPSERVER, $DOMAINNAME);
+  end_it();
+  undef $w;
+  check_started('named');
+}
+
+sub do_it_slave {
+  return if $::testing;
+  my $in = 'interactive'->vnew('su', 'dns');
+  check_starts_on_boot($in, 'named');
+  my $w = $in->wait_message(N("Slave DNS server"), N("Configuring your system as Slave DNS server ..."));
+  if (-f $sys_wizard_dns) { unlink $sys_wizard_dns }
+  do_it();
+  rm_rf(glob("$NAMED_DIR/bak*"));
+  crea_named_slave($IPSERVER, $DOMAINNAME, $o->{var}{IPMASTER});
+  end_it();
+  undef $w;
+  check_started('named');
+}
+
+sub get_shortname {
+# sure someone can find a better method to do that
+  my ($name) = @_;
+  my @DT = split(/\./, $DOMAINNAME);
+  my $NB = $#DT;
+  if (any { /$DOMAINNAME$/x } $name) {
+    my @shortname = split(/\./, $name);
+    splice(@shortname, -$NB);
+    my $shortn;
+    foreach (@shortname) {
+      $shortn or return $shortn = $_;
+      !$shortn or return $shortn . "." . $_;
+    }
+  } else { return $name }
+}
+
+sub do_it_add {
+  return if $::testing;
+  test_srv();
+  my $iprev = get_spe_ip('iprev', $IPSERVER);
+  my $ipend = get_spe_ip('ipend', $o->{var}{CLIENTIP});
+  my $SNAME = get_shortname($o->{var}{CLIENTNAME});
+  if (any { /$ipend\tIN/ } cat_("$ZONE_DIR/db.$iprev.hosts")) {
+    return 'error_add';
+  } elsif (any { /$SNAME.$DOMAINNAME.$/ } cat_("$ZONE_DIR/db.$iprev.hosts")) {
+    return 'error_add';
+  } else {
+    append_to_file("$ZONE_DIR/db.$DOMAINNAME.hosts",
+		   "$SNAME.$DOMAINNAME.\tIN\tA\t$o->{var}{CLIENTIP}\n");
+    append_to_file("$ZONE_DIR/db.$iprev.hosts",
+		   "$ipend\tIN\tPTR\t$SNAME.$DOMAINNAME.\n");
+  }
+  increment_serial($iprev);
+  system("service named reload");
+  return 'endadd'
+}
+
+sub do_it_remove {
+  return if $::testing;
+  test_srv();
+  my $iprev = get_spe_ip('iprev', $IPSERVER);
+  my $NAME = $o->{var}{CLIENTNAME};
+  substInFile {
+    s/^\b$NAME.\b.*//;
+    s/^\s*$//;
+  } "$ZONE_DIR/db.$DOMAINNAME.hosts";
+  substInFile {
+    s/^\d+\tIN\tPTR\t$NAME.*//;
+    s/^\s*$//;
+  } "$ZONE_DIR/db.$iprev.hosts";
+  increment_serial($iprev);
+  system("service named reload");
+}
+
+
+#34       IN      PTR     xp2400.guibland.com.
+sub do_it_list {
+  return if $::testing;
+  my $iprev = get_spe_ip('iprev', $IPSERVER);
+  my $db = "$ZONE_DIR/db.$iprev.hosts";
+  #my $ipnor = get_spe_ip('ipnor', $IPSERVER);
+  my @hosts; my @ip;
+  foreach (cat_($db)) {
+    my ($ipend, $h) = /(\d{1,3})\tIN\tPTR\t(.*)/;
+    if (!$h) { push @hosts, $h; push @ip, $ipend }
+  }
+}
+
+
+sub new {
+    my ($class) = @_;
+    bless $o, $class;
+}
+
+1;
diff --git a/dns_wizard/Makefile b/dns_wizard/Makefile
new file mode 100644
index 00000000..ddb080e3
--- /dev/null
+++ b/dns_wizard/Makefile
@@ -0,0 +1,15 @@
+
+install2:
+	su -c 'make install'
+
+install:
+	mkdir -p --mode=u=rwx,g=rx,o=rx  ${prefix}/share/wizards
+	mkdir -p --mode=u=rwx,g=rx,o=rx  ${prefix}/share/wizards/dns_wizard
+	mkdir -p --mode=u=rwx,g=rx,o=rx  ${prefix}/share/wizards/dns_wizard/scripts
+	mkdir -p --mode=u=rwx,g=rx,o=rx  ${prefix}/share/wizards/dns_wizard/images
+	install --mode=u=rw,g=r,o=r -p dns.wiz ${prefix}/share/wizards/dns_wizard
+	install --mode=a=r -p ./images/DNS.png    ${prefix}/share/wizards/dns_wizard/images
+	install --mode=u=rw,g=r,o=r -p scripts/Dnsconf.pm ${prefix}/share/wizards/dns_wizard/scripts
+	install --mode=u=rwx,g=rx,o=rx -p scripts/*.sh ${prefix}/share/wizards/dns_wizard/scripts
+	install --mode=u=rwx,g=rx,o=rx -p scripts/*.default ${prefix}/share/wizards/dns_wizard/scripts
+
diff --git a/dns_wizard/scripts/127.0.0.rev.default b/dns_wizard/scripts/127.0.0.rev.default
new file mode 100644
index 00000000..97bf97bb
--- /dev/null
+++ b/dns_wizard/scripts/127.0.0.rev.default
@@ -0,0 +1,17 @@
+; default file for 127.0.0.rev (to be used by bind8)
+;
+; setting a local DNS server for a local Class C network
+; with an external DNS referee for non locally resolved address
+;
+; Don't forget to upgrade the Serial number after a change
+;
+@       IN      SOA     localhost. root.localhost. (
+                                           1999070401 ; Serial
+                                           28800      ; Refresh
+                                           14400      ; Retry
+                                           3600000    ; Expire
+                                           86400 )    ; Minimum
+                 IN  NS      127.0.0.1
+		 IN  NS      __hname__.
+		 
+     1           IN PTR     localhost.
diff --git a/dns_wizard/scripts/check_ext_dns.sh b/dns_wizard/scripts/check_ext_dns.sh
new file mode 100755
index 00000000..e30ce409
--- /dev/null
+++ b/dns_wizard/scripts/check_ext_dns.sh
@@ -0,0 +1,82 @@
+#!/bin/bash
+# 
+# Wizard
+#
+# Copyright (C) 2000 Mandrakesoft.
+# 
+# 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
+# of the License, or (at your option) any later version.
+# See file LICENSE for further informations on licensing terms.
+# 
+# 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.
+# 
+# Authors: Jerome Dumonteil, Maurizio De Cecco, Enzo Maggi
+# icons: Helene Durosini <ln@mandrakesoft.com>
+# <corporate@mandrakesoft.com> http://www.mandrakesoft.com
+
+# script for wizard external dns configuration
+#
+# checking if the provided network address is correct
+
+# ip is tested as ip=a.b.c.d
+
+if [ -n "${wiz_ext_dns1}" ]; then
+
+a=${wiz_ext_dns1%%.*}
+b=`echo ${wiz_ext_dns1}|/bin/sed -n -e 's/^[0-9]\{1,3\}\.\([0-9]\{1,3\}\)\..*$/\1/p'`
+c=`echo ${wiz_ext_dns1}|/bin/sed -n -e 's/^[0-9]\{1,3\}\.[0-9]\{1,3\}\.\([0-9]\{1,3\}\)\..*$/\1/p'`
+d=${wiz_ext_dns1##*.}
+
+echo_debug "ip1 -$a-$b-$c-$d-"
+
+if [ -z "$a" -o -z "$b" -o -z "$c" -o -z "$d" ]; then
+	echo_debug "incomplete ip"
+	exit 1
+fi 
+
+if [ $a -gt 255 -o $b -gt 255 -o $c -gt 255 -o $d -gt 255 ]; then
+	echo_debug "not a network ip"
+	exit 1
+fi
+
+fi
+
+
+if [ -n "${wiz_ext_dns2}" ]; then
+
+a=${wiz_ext_dns2%%.*}
+b=`echo ${wiz_ext_dns2}|/bin/sed -n -e 's/^[0-9]\{1,3\}\.\([0-9]\{1,3\}\)\..*$/\1/p'`
+c=`echo ${wiz_ext_dns2}|/bin/sed -n -e 's/^[0-9]\{1,3\}\.[0-9]\{1,3\}\.\([0-9]\{1,3\}\)\..*$/\1/p'`
+d=${wiz_ext_dns2##*.}
+
+echo_debug "ip2 -$a-$b-$c-$d-"
+
+if [ -z "$a" -o -z "$b" -o -z "$c" -o -z "$d" ]; then
+	echo_debug "incomplete ip"
+	exit 1
+fi 
+
+if [ $a -gt 255 -o $b -gt 255 -o $c -gt 255 -o $d -gt 255 ]; then
+	echo_debug "not a network ip"
+	exit 1
+fi
+
+fi
+
+if [ -z "${wiz_ext_dns1}" -a -z "${wiz_ext_dns2}" ]; then
+	echo_debug "warning, no DNS address"
+	exit 2
+fi
+	
+
+# all seems to be ok
+exit 10
diff --git a/dns_wizard/scripts/do_it_dns.sh b/dns_wizard/scripts/do_it_dns.sh
new file mode 100755
index 00000000..84807609
--- /dev/null
+++ b/dns_wizard/scripts/do_it_dns.sh
@@ -0,0 +1,177 @@
+#!/bin/bash
+# 
+# Wizard
+#
+# Copyright (C) 2000 Mandrakesoft.
+# 
+# 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
+# of the License, or (at your option) any later version.
+# See file LICENSE for further informations on licensing terms.
+# 
+# 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.
+# 
+# Authors: Jerome Dumonteil, Maurizio De Cecco, Enzo Maggi
+# icons: Helene Durosini <ln@mandrakesoft.com>
+# <corporate@mandrakesoft.com> http://www.mandrakesoft.com
+
+# script for wizard dns configuration
+#
+# install default dns configuration for server
+# assuming all dependencies are ok
+
+wiz_ip_net=`get_var wiz_ip_net`
+wiz_ip_server=`get_var wiz_ip_server`
+wiz_domain_name=`get_var wiz_domain_name`
+wiz_host_name=`get_var wiz_host_name`
+s_trunc=${wiz_ip_net%.*}
+ds=${wiz_ip_server##*.}
+host=${wiz_host_name%%.*}
+
+
+# change serial number
+# $1 : file
+up_serial(){
+TMPFILE=`mktemp /tmp/temp.XXXXXX` || exit 1
+cat $1 > ${TMPFILE}
+serial_nbm=$(date "+%Y%m%d00")
+serial_f=`sed -ne "s/^\([[:space:]]*\)\([0-9]*\)\([[:space:]]*;[[:space:]]*Serial.*$\)/\2/p" ${TMPFILE}`
+serial_f=$((${serial_f}+1))
+if [ ${serial_f} -le ${serial_nbm} ]; then
+	serial_f=${serial_nbm}
+fi
+
+cat ${TMPFILE}\
+|sed -e "s/^\([[:space:]]*\)\([0-9]*\)\([[:space:]]*;[[:space:]]*Serial.*$\)/\1${serial_f}\3/"\
+> $1
+rm -f ${TMPFILE}
+}
+
+
+
+
+
+
+
+# host.conf
+bck_file /etc/host.conf
+cat ${CWD}/scripts/host.conf.default > /etc/host.conf
+
+# named.conf
+file=/etc/named.conf
+bck_file ${file}
+
+echo_debug "now putting ${file} configuration"
+
+reversenet=`echo ${wiz_ip_net}|sed -e 's/^\([0-9]*\)\.\([0-9]*\)\.\([0-9]*\)\.[0-9]*$/\3\.\2\.\1/'`
+echo_debug "reversenet : ${reversenet}"
+
+cat ${CWD}/scripts/named.conf.default > /var/tmp/named.conf.default
+
+if [ -z "${wiz_ext_dns1}" ]; then
+	TMPFILE=`mktemp /tmp/temp.XXXXXX` || exit 1
+	cat /var/tmp/named.conf.default > ${TMPFILE}
+	cat ${TMPFILE}|sed -e "s/^.*__ISPNS1__.*$/\/\/&/" >/var/tmp/named.conf.default
+	rm -f ${TMPFILE}
+fi
+if [ -z "${wiz_ext_dns2}" ]; then
+	TMPFILE=`mktemp /tmp/temp.XXXXXX` || exit 1
+	cat /var/tmp/named.conf.default > ${TMPFILE}
+	cat ${TMPFILE}|sed -e "s/^.*__ISPNS2__.*$/\/\/&/" >/var/tmp/named.conf.default
+	rm -f ${TMPFILE}
+fi
+
+cat /var/tmp/named.conf.default \
+|sed "s|__ISPNS1__|${wiz_ext_dns1}|g" \
+|sed "s|__ISPNS2__|${wiz_ext_dns2}|g" \
+|sed "s|__dname__|${wiz_domain_name}|g" \
+|sed "s|__revnet__|${reversenet}|g" \
+|sed "s|__net__|${s_trunc}|g" \
+> ${file}
+
+# Bug fix for bind 9:
+touch /etc/rndc.key
+
+# root.hints
+file=/var/named/root.hints
+bck_file ${file}
+
+cat ${CWD}/scripts/root.hints.default > ${file}
+
+# 127.0.0.rev
+file=/var/named/127.0.0.rev
+bck_file ${file}
+
+cat ${CWD}/scripts/127.0.0.rev.default \
+|sed "s|__hname__|${wiz_host_name}|g" \
+> ${file}
+
+up_serial ${file}
+
+# ipnet.rev
+
+file=/var/named/${s_trunc}.rev
+echo_debug "config about ${file}"
+bck_file ${file}
+
+cat ${CWD}/scripts/ipnet.rev.default > /var/tmp/ipnet.rev.default
+
+cat /var/tmp/ipnet.rev.default \
+|sed "s|__dname__|${wiz_domain_name}|g" \
+|sed "s|__hname__|${wiz_host_name}|g" \
+|sed "s|__revnet__|${reversenet}|g" \
+|sed "s|__nb__|${ds}|g" \
+> ${file}
+
+up_serial ${file}
+
+# domain.db
+file=/var/named/${wiz_domain_name}.db
+bck_file ${file}
+echo_debug "config ${file}"
+
+cat ${CWD}/scripts/domain.db.default > /var/tmp/domain.db.default
+
+cat /var/tmp/domain.db.default \
+|sed "s|__dname__|${wiz_domain_name}|g" \
+|sed "s|__hname__|${wiz_host_name}|g" \
+|sed "s|__ip__|${wiz_ip_server}|g" \
+|sed "s|__host__|${host}|g" \
+> ${file}
+
+up_serial ${file}
+
+# resolv.conf
+file=/etc/resolv.conf
+bck_file ${file}
+echo_debug "config ${file}"
+
+echo -e "\
+domain ${wiz_domain_name}\n\
+nameserver ${wiz_ip_server}\n\
+" > ${file}
+
+
+
+
+# restarting bind
+/sbin/chkconfig --level 235 named on
+/etc/rc.d/init.d/named restart
+
+
+file=/etc/sysconfig/mdk_serv
+wiz_caching_dns="1"
+chg_val ${file} wiz_caching_dns ${wiz_caching_dns} s
+# all is ok
+exit 10
+
+
+
diff --git a/dns_wizard/scripts/domain.db.default b/dns_wizard/scripts/domain.db.default
new file mode 100644
index 00000000..3624df67
--- /dev/null
+++ b/dns_wizard/scripts/domain.db.default
@@ -0,0 +1,31 @@
+$ORIGIN .
+$TTL 86400      ; 1 day
+__dname__ IN SOA __dname__.  root.__dname__. (
+            20000101        ; Serial number
+            3600            ; 1 hour refresh
+            300             ; 5 minutes retry
+            172800          ; 2 days expiry
+            43200 )         ; 12 hours minimum
+
+; List the name servers in use.  Unresolved (entries in other zones)
+; will go to our ISP's name server isp.domain.name.com
+            IN NS           __hname__.
+
+
+            IN MX 10        __hname__.
+
+$ORIGIN __dname__.
+$TTL 86400      ; 1 day
+
+__host__	IN A    __ip__  	
+
+localhost	IN A       127.0.0.1
+	
+    ; Alias (canonical) names
+ftp         IN CNAME        __hname__.
+www         IN CNAME        __hname__.
+mail        IN CNAME        __hname__.
+	
+    ; List of machine names & addresses
+;box2    IN A    192.168.0.2   ; comment
+;box3    IN A    192.168.0.3   ; comment
diff --git a/dns_wizard/scripts/host.conf.default b/dns_wizard/scripts/host.conf.default
new file mode 100644
index 00000000..1a8c1e15
--- /dev/null
+++ b/dns_wizard/scripts/host.conf.default
@@ -0,0 +1,2 @@
+order hosts,bind
+multi on
diff --git a/dns_wizard/scripts/ipnet.rev.default b/dns_wizard/scripts/ipnet.rev.default
new file mode 100644
index 00000000..6d93cba0
--- /dev/null
+++ b/dns_wizard/scripts/ipnet.rev.default
@@ -0,0 +1,30 @@
+$ORIGIN .
+$TTL 86400      ; 1 day
+; default file for 192.168.0.rev (to be used by bind8)
+;
+; setting a local DNS server for a local Class C network
+; with an external DNS referee for non locally resolved address
+;
+; replace the __xxx__ values by the real ones
+;
+; Don't forget to upgrade the Serial number after a change
+;
+__revnet__.in-addr.arpa       IN      SOA     __dname__. root.__dname__.  (
+                                           1999070401 ; Serial
+                                           28800      ; Refresh
+                                           14400      ; Retry
+                                           3600000    ; Expire
+                                           86400 )    ; Minimum
+            IN NS           __hname__.
+
+$ORIGIN __revnet__.in-addr.arpa.
+$TTL 3600       ; 1 hour
+
+__nb__		IN PTR	__hname__.
+
+
+;1	IN PTR	box1.     
+;2	IN PTR	box2.     
+
+;  	254	IN PTR	box254.
+    
diff --git a/dns_wizard/scripts/named.conf.default b/dns_wizard/scripts/named.conf.default
new file mode 100644
index 00000000..4c2dd2c5
--- /dev/null
+++ b/dns_wizard/scripts/named.conf.default
@@ -0,0 +1,54 @@
+options {
+             // DNS tables are located in the /var/named directory
+	     directory "/var/named";
+		 pid-file "/var/run/named/named.pid";
+
+            // Forward any unresolved requests to our ISP's name server
+            forwarders {
+	                       __ISPNS1__;
+			       __ISPNS2__;
+            };
+             /*
+              * If there is a firewall between you and nameservers you want
+              * to talk to, you might need to uncomment the query-source
+              * directive below.  Previous versions of BIND always asked
+              * questions using port 53, but BIND 8.1 uses an unprivileged
+              * port by default.
+              */
+             // query-source address * port 53;
+     };
+
+
+    zone "." {
+            type hint;
+            file "root.hints";
+    };
+    // All our DNS information is stored in /var/named/domain.name.db
+
+    zone "__dname__" {
+            type master;
+            file "__dname__.db";
+	    // some security
+            allow-transfer { 127.0.0.1; };
+    };
+
+
+
+    zone "0.0.127.in-addr.arpa" {
+             notify no;
+             type master;
+             file "127.0.0.rev";
+             allow-transfer { 127.0.0.1; };
+     };
+
+
+     zone "__revnet__.in-addr.arpa" {
+             notify no;
+             type master;
+             file "__net__.rev";
+             allow-transfer { 127.0.0.1; };
+     };
+     
+     
+    
+     
diff --git a/dns_wizard/scripts/root.hints.default b/dns_wizard/scripts/root.hints.default
new file mode 100644
index 00000000..a97a5e89
--- /dev/null
+++ b/dns_wizard/scripts/root.hints.default
@@ -0,0 +1,44 @@
+
+; <<>> DiG 8.2 <<>> 
+;; res options: init recurs defnam dnsrch
+;; got answer:
+;; ->>HEADER<<- opcode: QUERY, status: NOERROR, id: 4
+;; flags: qr rd ra; QUERY: 1, ANSWER: 13, AUTHORITY: 0, ADDITIONAL: 13
+;; QUERY SECTION:
+;;	., type = NS, class = IN
+
+;; ANSWER SECTION:
+.			2d11h37m30s IN NS  I.ROOT-SERVERS.NET.
+.			2d11h37m30s IN NS  E.ROOT-SERVERS.NET.
+.			2d11h37m30s IN NS  D.ROOT-SERVERS.NET.
+.			2d11h37m30s IN NS  A.ROOT-SERVERS.NET.
+.			2d11h37m30s IN NS  H.ROOT-SERVERS.NET.
+.			2d11h37m30s IN NS  C.ROOT-SERVERS.NET.
+.			2d11h37m30s IN NS  G.ROOT-SERVERS.NET.
+.			2d11h37m30s IN NS  F.ROOT-SERVERS.NET.
+.			2d11h37m30s IN NS  B.ROOT-SERVERS.NET.
+.			2d11h37m30s IN NS  J.ROOT-SERVERS.NET.
+.			2d11h37m30s IN NS  K.ROOT-SERVERS.NET.
+.			2d11h37m30s IN NS  L.ROOT-SERVERS.NET.
+.			2d11h37m30s IN NS  M.ROOT-SERVERS.NET.
+
+;; ADDITIONAL SECTION:
+I.ROOT-SERVERS.NET.	3d11h37m30s IN A  192.36.148.17
+E.ROOT-SERVERS.NET.	3d11h37m30s IN A  192.203.230.10
+D.ROOT-SERVERS.NET.	3d11h37m30s IN A  128.8.10.90
+A.ROOT-SERVERS.NET.	3d11h37m30s IN A  198.41.0.4
+H.ROOT-SERVERS.NET.	3d11h37m30s IN A  128.63.2.53
+C.ROOT-SERVERS.NET.	3d11h37m30s IN A  192.33.4.12
+G.ROOT-SERVERS.NET.	3d11h37m30s IN A  192.112.36.4
+F.ROOT-SERVERS.NET.	3d11h37m30s IN A  192.5.5.241
+B.ROOT-SERVERS.NET.	3d11h37m30s IN A  128.9.0.107
+J.ROOT-SERVERS.NET.	3d11h37m30s IN A  198.41.0.10
+K.ROOT-SERVERS.NET.	3d11h37m30s IN A  193.0.14.129
+L.ROOT-SERVERS.NET.	3d11h37m30s IN A  198.32.64.12
+M.ROOT-SERVERS.NET.	3d11h37m30s IN A  202.12.27.33
+
+;; Total query time: 7 msec
+;; FROM: keima.mandrakesoft.com to SERVER: default -- 192.168.1.11
+;; WHEN: Fri Mar 24 21:01:57 2000
+;; MSG SIZE  sent: 17  rcvd: 436
+