summaryrefslogtreecommitdiffstats
path: root/client_wizard
diff options
context:
space:
mode:
Diffstat (limited to 'client_wizard')
-rwxr-xr-xclient_wizard/Bind_client.pm6
-rw-r--r--client_wizard/client.wiz368
-rw-r--r--client_wizard/scripts/Clientconf.pm116
-rwxr-xr-xclient_wizard/scripts/do_it_client.sh80
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