From 306951e28791b261f894a8b71255b4c45d105661 Mon Sep 17 00:00:00 2001 From: Florent Villard Date: Mon, 20 Oct 2003 10:51:59 +0000 Subject: change copyright remove old xml related files --- client_wizard/Bind_client.pm | 6 +- client_wizard/client.wiz | 368 ---------------------------------- client_wizard/scripts/Clientconf.pm | 116 ----------- client_wizard/scripts/do_it_client.sh | 80 -------- 4 files changed, 4 insertions(+), 566 deletions(-) delete mode 100644 client_wizard/client.wiz delete mode 100644 client_wizard/scripts/Clientconf.pm delete mode 100755 client_wizard/scripts/do_it_client.sh (limited to 'client_wizard') 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 -# 2003 Florent Villard +# Copyright (C) 2002,2003 Mandrakesoft +# +# Authors: Arnaud Desmons +# Florent Villard # # 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 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 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 -# -# 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 -# 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 -- cgit v1.2.1