|
Last change
on this file since 8802 was 8802, checked in by richardvm, 14 years ago |
|
New file which prints all proxies in a variable (needed for lvrouted)
|
-
Property svn:executable
set to
*
|
|
File size:
1.3 KB
|
| Line | |
|---|
| 1 | #!/usr/bin/perl -w
|
|---|
| 2 | use Cwd;
|
|---|
| 3 | #
|
|---|
| 4 | # Variable file
|
|---|
| 5 |
|
|---|
| 6 | $NG = 0;
|
|---|
| 7 |
|
|---|
| 8 | #debugging variable
|
|---|
| 9 | $debug=0;
|
|---|
| 10 |
|
|---|
| 11 | #author credits
|
|---|
| 12 | $author="feb 2003 jasper\@WirelessLeiden.NL \| maart 2005/jul 2009 rick\@WirelessLeiden.NL";
|
|---|
| 13 |
|
|---|
| 14 | #filelist
|
|---|
| 15 | @filelist = ();
|
|---|
| 16 | #$filelist[0]="dhcpd.conf";
|
|---|
| 17 | $filelist[1]="rc.conf.local";
|
|---|
| 18 | $filelist[2]="resolv.conf";
|
|---|
| 19 | #$filelist[3]="named.conf";
|
|---|
| 20 | $filelist[4]="txtconfig";
|
|---|
| 21 | $filelist[5]="authorized_keys";
|
|---|
| 22 | $filelist[6]="dnsmasq.conf";
|
|---|
| 23 | $filelist[7]="wleiden.conf";
|
|---|
| 24 |
|
|---|
| 25 |
|
|---|
| 26 | #Ignore this node diretories
|
|---|
| 27 | %removefromnodelist = (
|
|---|
| 28 | 'retired' => 'YES',
|
|---|
| 29 | 'obsolete' => 'YES',
|
|---|
| 30 | );
|
|---|
| 31 |
|
|---|
| 32 | #(inter)net env
|
|---|
| 33 | if( defined $ENV{'SERVER_NAME'} ) {
|
|---|
| 34 | $hostname=$ENV{'SERVER_NAME'};
|
|---|
| 35 | }
|
|---|
| 36 | else {
|
|---|
| 37 | # $hostname=`hostname`;
|
|---|
| 38 | $hostname='sunfire.wirelessleiden.nl';
|
|---|
| 39 | };
|
|---|
| 40 |
|
|---|
| 41 | chomp($hostname);
|
|---|
| 42 | $uri='/config/iris/node/FreeBSD/8.0-RELEASE/g_list.pl/';
|
|---|
| 43 | $cgi_dir="$uri";
|
|---|
| 44 | $source="$cgi_dir";
|
|---|
| 45 |
|
|---|
| 46 | #path variablen
|
|---|
| 47 | $home=getcwd;
|
|---|
| 48 | $ndir="/usr/local/www/wlconfig/nodes/";
|
|---|
| 49 | $toolfile="$home/wleiden.pl";
|
|---|
| 50 |
|
|---|
| 51 |
|
|---|
| 52 | #exec vars
|
|---|
| 53 | $svn="/usr/local/bin/svn";
|
|---|
| 54 | $wicontrol='/usr/sbin/wicontrol';
|
|---|
| 55 |
|
|---|
| 56 | #naming vars
|
|---|
| 57 | $configfile="wleiden.conf";
|
|---|
| 58 |
|
|---|
| 59 | #module IP.pm
|
|---|
| 60 | $IP_pmPath="$home/IP.pm";
|
|---|
| 61 |
|
|---|
| 62 | #dnsheader.conf
|
|---|
| 63 | $dnsheader_confPath="$home/dns/dnsheader.conf";
|
|---|
| 64 |
|
|---|
| 65 |
|
|---|
| 66 | ## ssh key variablen ##
|
|---|
| 67 | #global ssh_keys
|
|---|
| 68 | $global_keyPath="$home/../../../../../nodes/global_keys";
|
|---|
| 69 | #node specific
|
|---|
| 70 | $ssh_file='ssh_key'
|
|---|
| 71 |
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
