summaryrefslogtreecommitdiffstats
path: root/client_wizard/scripts
diff options
context:
space:
mode:
authorFlorent Villard <warly@mandriva.com>2003-10-20 10:51:59 +0000
committerFlorent Villard <warly@mandriva.com>2003-10-20 10:51:59 +0000
commit306951e28791b261f894a8b71255b4c45d105661 (patch)
tree9fa88f156c8a6fa200986dc52b42ab43047e81f6 /client_wizard/scripts
parenteacbbd06a147d56f4edfaf008cc667b55577b3be (diff)
downloaddrakwizard-306951e28791b261f894a8b71255b4c45d105661.tar
drakwizard-306951e28791b261f894a8b71255b4c45d105661.tar.gz
drakwizard-306951e28791b261f894a8b71255b4c45d105661.tar.bz2
drakwizard-306951e28791b261f894a8b71255b4c45d105661.tar.xz
drakwizard-306951e28791b261f894a8b71255b4c45d105661.zip
change copyright
remove old xml related files
Diffstat (limited to 'client_wizard/scripts')
-rw-r--r--client_wizard/scripts/Clientconf.pm116
-rwxr-xr-xclient_wizard/scripts/do_it_client.sh80
2 files changed, 0 insertions, 196 deletions
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