#!/usr/bin/perl - # # Variable file $NG = 0; #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.node.local"; $filelist[2]="resolv.conf"; $filelist[3]="named.conf"; $filelist[4]="txtconfig"; $filelist[5]="authorized_keys"; #Ignore this node diretories %removefromnodelist = ( 'retired' => 'YES', 'obsolete' => 'YES', ); #naming vars $configfile="wleiden.conf"; #module IP.pm $IP_pmPath="$home/tools/IP.pm"; #dnsheader.conf $dnsheader_confPath="$home/dns/dnsheader.conf"; #node dir $ndir="$home/nodes"; #wleiden.pl Path $toolfile="$home/tools/FreeBSD6_x/wleiden.pl"; ## ssh key variablen ## #global ssh_keys $global_keyPath="$home/nodes/global_keys"; #node specific $ssh_file='ssh_key'