change copyright

remove old xml related files

4 files changed, 4 insertions, 566 deletions

diff --git a/client_wizard/Bind_client.pm b/client_wizard/Bind_client.pm
index 9bf84eaa..b7d065a9 100755
--- a/client_wizard/Bind_client.pm
+++ b/client_wizard/Bind_client.pm
@@ -2,8 +2,10 @@
 
 # Drakwizard
 
-# Copyright (C) 2002 Arnaud Desmons <adesmons@mandrakesoft.com>
-#               2003 Florent Villard <warly@mandrakesoft.com>
+# Copyright (C) 2002,2003 Mandrakesoft
+# 
+# Authors: Arnaud Desmons <adesmons@mandrakesoft.com>
+#          Florent Villard <warly@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
diff --git a/client_wizard/client.wiz b/client_wizard/client.wiz
deleted file mode 100644
index e0695bce..00000000
--- a/client_wizard/client.wiz
+++ /dev/null
@@ -1,368 +0,0 @@
-<?xml version="1.0"?>
-
-
-<Wizard
-	name="general"
-	libScript="__WIZ_HOME__/common/scripts/functions.sh"
-	wizardTitle="DNS Wizard (add client)"
-	imagePosition="top"
-	defaultImage="__WIZ_HOME__/client_wizard/images/DNS.png"
-	perlModule="__WIZ_HOME__/client_wizard/scripts/Clientconf.pm"
-	rpm="bind"
->
-
-	<Variable
-		name="wiz_client_ip"
-		shellVariable="wiz_client_ip"
-	>
-	</Variable>
-
-	<Variable
-		name="wiz_client_name"
-		shellVariable="wiz_client_name"
-	>
-	</Variable>
-
-	<Page
-		helpURL="file:/usr/share/doc/mandrake/${LANG}/ref.html/wiz.html"
-		name="Welcome"
-		executionLevel="NORMAL"
-		nextFinish="false"
-		canBack="true"
-		canCancel="true"
-		func="check"
-	>
-
-		<Target
-			targetName="CLIENT"
-			jumpIndex="0"
-		>
-		</Target>
-
-		<Target
-			targetName="error_need_root"
-			jumpIndex="1"
-		>
-		</Target>
-
-		<Target
-			targetName="error_dhcp"
-			jumpIndex="2"
-		>
-		</Target>
-
-		<Info
-			helpText="DNS Client Wizard"
-		>
-		</Info>
-
-
-		<Info
-			helpText="A client of your local network is a machine connected to the network having its own name and IP number."
-		>
-		</Info>
-
-
-		<Info
-			helpText="This wizard will help you in adding a new client in your local DNS."
-		>
-		</Info>
-
-		<Info
-			helpText="The server will use the informations you enter here to make the name of the client available to other machines into your network."
-		>
-		</Info>
-
-		<Info
-			helpText="Press next to begin, or Cancel to leave this wizard."
-		>
-		</Info>
-	</Page>
-	<Page
-		helpURL="file:/usr/share/doc/mandrake/${LANG}/ref.html/wiz-web.html"
-		name="error_dhcp"
-		jumpPage="CLIENT"
-		executionLevel="NORMAL"
-		nextFinish="false"
-		canBack="true"
-		canCancel="true"
-	>
-
-		<Info
-			helpText="Warning\nYou are in dhcp, server may not work with your configuration."
-		>
-		</Info>
-	</Page>
-
-	<Page
-		helpURL="file:/usr/share/doc/mandrake/${LANG}/ref.html/wiz.html"
-		name="CLIENT"
-		func="test"
-		executionLevel="NORMAL"
-		nextFinish="false"
-		canBack="true"
-		canCancel="true"
-	>
-
-		<Target
-			targetName="doit"
-			jumpIndex="10"
-		>
-		</Target>
-
-		<Target
-			targetName="Error"
-			jumpIndex="1"
-		>
-		</Target>
-
-		<Target
-			targetName="warning"
-			jumpIndex="2"
-		>
-		</Target>
-
-		<Info
-			helpText="Client identification:"
-		>
-		</Info>
-
-
-		<Info
-			helpText="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."
-		>
-		</Info>
-
-		<Info
-			helpText="(you don't need to type the domain after the name)"
-		>
-		</Info>
-
-
-		<Freetext
-			name="wiz_client_name"
-			variableName="wiz_client_name"
-			helpText="Name of the machine:"
-			fillfunc="name"
-			editable="true"
-		>
-		</Freetext>
-
-		<Freetext
-			name="wiz_client_ip"
-			variableName="wiz_client_ip"
-			helpText="IP number of the machine:"
-			fillfunc="ip"
-			editable="true"
-		>
-		</Freetext>
-
-
-		<Info
-			helpText="Note that the given IP number and client name should be unique in the network."
-		>
-		</Info>
-	</Page>
-
-	<Page
-		helpURL="file:/usr/share/doc/mandrake/${LANG}/ref.html/wiz.html"
-		name="warning"
-		jumpPage="doit"
-		executionLevel="NORMAL"
-		nextFinish="false"
-		canBack="true"
-		canCancel="true"
-	>
-
-		<Info
-			helpText="Warning:"
-		>
-		</Info>
-
-
-		<Info
-			helpText="You have entered a machine name or an IP number already used."
-		>
-		</Info>
-
-		<Info
-			helpText="Press next if you want to change the already existing value, or back to correct your choice."
-		>
-		</Info>
-	</Page>
-
-	<Page
-		helpURL="file:/usr/share/doc/mandrake/${LANG}/ref.html/wiz.html"
-		name="Error"
-		jumpPage="CLIENT"
-		executionLevel="NORMAL"
-		nextFinish="false"
-		canBack="true"
-		canCancel="true"
-	>
-
-
-		<Info
-			helpText="This is not a valid address... press next to continue"
-		>
-		</Info>
-	</Page>
-
-	<Page
-		helpURL="file:/usr/share/doc/mandrake/${LANG}/ref.html/wiz.html"
-		name="error_need_net"
-		subWizard="__WIZ_HOME__/server_wizard/server.wiz"
-		executionLevel="NORMAL"
-		nextFinish="false"
-		canBack="false"
-		canCancel="true"
-	>
-
-		<Info
-			helpText="Network not configured yet"
-		>
-		</Info>
-
-
-		<Info
-			helpText="You have to configure the basic network parameters before launching this wizard."
-		>
-		</Info>
-
-		<Info
-			helpText="Press next to configure these parameters now, or Cancel to exit this wizard."
-		>
-		</Info>
-
-
-		<Info
-			helpText="If you choose to configure now, you will automatically continue with the Client configuration"
-		>
-		</Info>
-	</Page>
-
-	<Page
-		helpURL="file:/usr/share/doc/mandrake/${LANG}/ref.html/wiz.html"
-		name="server launcher"
-		jumpPage="CLIENT"
-		executionLevel="DEBUG"
-		nextFinish="false"
-		canBack="true"
-		canCancel="true"
-	>
-	</Page>
-
-	<Page
-		helpURL="file:/usr/share/doc/mandrake/${LANG}/ref.html/wiz.html"
-		name="doit"
-		func="do_it"
-		nextButtonText="Configure"
-		executionLevel="NORMAL"
-		nextFinish="false"
-		canBack="true"
-		canCancel="true"
-	>
-
-		<Target
-			targetName="done"
-			jumpIndex="10"
-		>
-		</Target>
-
-		<Target
-			targetName="system_error"
-			jumpIndex="1"
-		>
-		</Target>
-
-		<Info
-			helpText="Adding a new client to your network"
-		>
-		</Info>
-
-
-		<Info
-			helpText="The wizard collected the following parameters
-needed to add a client to your network:"
-		>
-		</Info>
-
-
-		<Freetext
-			name="wiz_client_name"
-			variableName="wiz_client_name"
-			helpText="Client name"
-			editable="false"
-		>
-		</Freetext>
-
-		<Freetext
-			name="wiz_client_ip"
-			variableName="wiz_client_ip"
-			helpText="Client IP:"
-			editable="false"
-		>
-		</Freetext>
-
-
-		<Info
-			helpText="To accept these values, and add your client, click the Next button or use the Back button to correct them."
-		>
-		</Info>
-	</Page>
-
-	<Page
-		helpURL="file:/usr/share/doc/mandrake/${LANG}/ref.html/wiz.html"
-		name="done"
-		nextButtonText="Quit"
-		executionLevel="NORMAL"
-		nextFinish="true"
-		canBack="false"
-		canCancel="false"
-	>
-
-		<Info
-			helpText="Congratulations"
-		>
-		</Info>
-
-
-		<Info
-			helpText="The wizard successfully added the client."
-		>
-		</Info>
-
-	</Page>
-
-	<Page
-		helpURL="file:/usr/share/doc/mandrake/${LANG}/ref.html/wiz.html"
-		name="error_need_root"
-		nextButtonText="OK"
-		executionLevel="NORMAL"
-		nextFinish="true"
-		canBack="false"
-		canCancel="true"
-	>
-
-		<Info
-			helpText="You need to be root to run this wizard"
-		>
-		</Info>
-	</Page>
-
-	<Page
-		helpURL="file:/usr/share/doc/mandrake/${LANG}/ref.html/wiz.html"
-		name="system_error"
-		nextButtonText="OK"
-		executionLevel="NORMAL"
-		nextFinish="true"
-		canBack="false"
-		canCancel="true"
-	>
-
-		<Info
-			helpText="System error, no configuration done"
-		>
-		</Info>
-	</Page>
-</Wizard>
diff --git a/client_wizard/scripts/Clientconf.pm b/client_wizard/scripts/Clientconf.pm
deleted file mode 100644
index b148cec8..00000000
--- a/client_wizard/scripts/Clientconf.pm
+++ /dev/null
@@ -1,116 +0,0 @@
-#!/usr/bin/perl
-
-# Drakwizard
-
-# 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 Clientconf;
-require "__WIZ_HOME__/common/scripts/Vareqval.pm";
-require "__WIZ_HOME__/common/scripts/IFCFG.pm";
-use MDK::Common;
-use strict;
-use standalone;
-
-my $o = IFCFG->new();
-my $wiz_domain_name = $o->network_get("DOMAINNAME");
-my $wiz_ip_server = $o->itf_get("IPADDR");
-
-sub	name {
-    $o->network_get("HOSTNAME");
-}
-
-sub	ip {
-    $wiz_ip_server;
-}
-
-sub	check {
-    $> and return 1;
-    $o->is_dhcp() and return 2;
-    0;
-}
-
-sub	get_root {
-    my	$file = "/etc/sysconfig/named";
-    if (-f $file) {
-	my %mdk = Vareqval->get($file);
-	return $mdk{ROOTDIR};
-    }
-    "";
-}
-
-sub	up_serial {
-    my	($file) = @_;
-
-    my (undef, undef, undef, $mday, $mon, $year) = gmtime(time);
-    $year += 1900;
-    my	$serial_nbm = sprintf "%4dY%2dm%2d00", $year, $mon, $mday;
-    output($file, map {
-	my $line = $_;
-	if (/^(\s*)(\d*)(\s*;\s*Serial.*)$/) {
-	    my $serial_f = $2;
-	    $serial_f++;
-	    if ($serial_f <= $serial_nbm) {
-		$serial_f = $serial_nbm;
-		chomp($serial_f);
-		$line = "$1$serial_f$3\n";
-	    }
-	}
-	$line;
-    } cat_($file));
-}
-
-sub	test {
-    !$ENV{wiz_client_name} and return 1;
-    !$ENV{wiz_client_ip} and return 1;
-    my $s_trunc = "$1.$2.$3" if $wiz_ip_server =~ /(\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3})/;
-    my $ds = "$4" if $wiz_ip_server =~ /(\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3})/;
-    my $dc = "$4" if $ENV{wiz_client_ip} =~ /(\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3})/;
-    my $sc_trunc = "$1.$2.$3" if $ENV{wiz_client_ip} =~ /(\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3})/;
-    !$sc_trunc and return 1;
-    !$dc and return 1;
-    !$ds and return 1;
-    !$s_trunc and return 1;
-    ($s_trunc != $sc_trunc) and return 1;
-    ($dc == $ds || $dc < 0 || $dc > 255) and return 1;
-    10;
-}
-
-sub	do_it {
-    my $date = `date`;
-    chomp($date);
-    my $wiz_ip_net = "$1.$2.$3.0" if $wiz_ip_server =~ /(\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3})/;
-    my $s_trunc = "$1.$2.$3" if $wiz_ip_server =~ /(\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3})/;
-    my $ds = "$4" if $wiz_ip_server =~ /(\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3})/;
-    my $dc = "$4" if $ENV{wiz_client_ip} =~ /(\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3})/;
-
-    my $file="/var/named/$wiz_domain_name.db";
-    MDK::Common::cp_af($file, $file.".orig");
-    open(NEW, ">> $file")	or die "can not open $file";
-    print NEW "\n$ENV{wiz_client_name}	IN A $ENV{wiz_client_ip} ; $date";
-    close(NEW)			or die "can not close $file";
-    up_serial($file);
-
-    my $file="/var/named/$s_trunc.rev";
-    MDK::Common::cp_af($file, $file.".orig");
-    open(NEW, ">> $file")	or die "can not open $file";
-    print NEW "\n$dc IN PTR $ENV{wiz_client_name}. ; $date";
-    close(NEW)			or die "can not close $file";
-    up_serial($file);
-    system("/etc/rc.d/init.d/named restart");
-    10;
-}
-1;
diff --git a/client_wizard/scripts/do_it_client.sh b/client_wizard/scripts/do_it_client.sh
deleted file mode 100755
index 4a2ec587..00000000
--- a/client_wizard/scripts/do_it_client.sh
+++ /dev/null
@@ -1,80 +0,0 @@
-#!/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
-
-echo_debug "in $0"
-
-wiz_ip_net=`get_var wiz_ip_net`
-wiz_ip_server=`get_var wiz_ip_server`
-wiz_domain_name=`get_var wiz_domain_name`
-s_trunc=${wiz_ip_net%.*}
-ds=${wiz_ip_server##*.}
-sc_trunc=${wiz_client_ip%.*}
-dc=${wiz_client_ip##*.}
-
-wiz_client_name=${wiz_client_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}
-}
-
-
-
-file="/var/named/${wiz_domain_name}.db"
-
-bck_file ${file}
-
-echo "${wiz_client_name}        IN A  ${wiz_client_ip}  ; $(date)" >> ${file}
-
-up_serial ${file}
-
-
-
-file="/var/named/${s_trunc}.rev"
-
-bck_file ${file}
-
-echo "${dc}        IN PTR  ${wiz_client_name}.  ; $(date)" >> ${file}
-
-up_serial ${file}
-
-
-/etc/rc.d/init.d/named restart
-
-# all seems to be ok
-exit 10