#!/usr/bin/perl -w # # Variable file #debugging variable $debug=0; #author credits $author="feb 2003 jasper\@WirelessLeiden.NL \| maart 2005 rick\@WirelessLeiden.NL"; #filelist @filelist = (); $filelist[0]="dhcpd.conf"; $filelist[1]="rc.local"; $filelist[2]="rc.node.local"; $filelist[3]="resolv.conf"; $filelist[4]="named.conf"; $filelist[5]="snmpd.local.conf"; $filelist[6]="txtconfig"; $filelist[7]="authorized_keys"; #(inter)net env if( defined $ENV{'SERVER_NAME'} ) { $hostname=$ENV{'SERVER_NAME'}; } else { $hostname=`hostname`; }; chomp($hostname); $cgi_dir="http://$hostname/cgi-bin"; $source="$cgi_dir/g_list.pl"; #path variablen $home="/home/genesis"; $ndir="$home/nodes"; $toolfile="$home/tools/wleiden.pl"; #exec vars $svn="/usr/local/bin/svn"; $wicontrol='/usr/sbin/wicontrol'; #naming vars $configfile="wleiden.conf"; #module IP.pm $IP_pmPath='/home/genesis/tools/IP.pm'; #dnsheader.conf $dnsheader_confPath='/home/genesis/dns/dnsheader.conf'; ## ssh key variablen ## #global ssh_keys $global_keyPath='/home/genesis/nodes/global_keys'; #node specific $ssh_file='ssh_key'