#!/usr/bin/perl -w use Cwd; # # Variable file $NG = 0; #debugging variable $debug=0; #author credits $author="feb 2003 jasper\@WirelessLeiden.NL \| maart 2005/jul 2009 rick\@WirelessLeiden.NL"; #filelist @filelist = (); #$filelist[0]="dhcpd.conf"; $filelist[1]="rc.conf.local"; $filelist[2]="resolv.conf"; #$filelist[3]="named.conf"; $filelist[4]="txtconfig"; $filelist[5]="authorized_keys"; $filelist[6]="dnsmasq.conf"; $filelist[7]="wleiden.conf"; #Ignore this node diretories %removefromnodelist = ( 'retired' => 'YES', 'obsolete' => 'YES', ); #(inter)net env if( defined $ENV{'SERVER_NAME'} ) { $hostname=$ENV{'SERVER_NAME'}; } else { # $hostname=`hostname`; $hostname='sunfire.wirelessleiden.nl'; }; chomp($hostname); $uri='/config/iris/node/FreeBSD/8.0-RELEASE/g_list.pl/'; $cgi_dir="$uri"; $source="$cgi_dir"; #path variablen $home=getcwd; $ndir="/usr/local/www/wlconfig/nodes/"; $toolfile="$home/wleiden.pl"; #exec vars $svn="/usr/local/bin/svn"; $wicontrol='/usr/sbin/wicontrol'; #naming vars $configfile="wleiden.conf"; #module IP.pm $IP_pmPath="$home/IP.pm"; #dnsheader.conf $dnsheader_confPath="$home/dns/dnsheader.conf"; ## ssh key variablen ## #global ssh_keys $global_keyPath="$home/../../../../../nodes/global_keys"; #node specific $ssh_file='ssh_key'