#! /usr/bin/perl -w # # # # eerst even een subje om ervoor te zorgen dat de hostname + file bekend # is $filelist[0]="txtconfig"; $filelist[1]="dhcpd.conf"; $filelist[2]="rc.local"; $filelist[3]="rc.node.local"; $filelist[4]="resolv.conf"; $filelist[5]="named.conf"; $filelist[6]="snmpd.local.conf"; $request=$ENV{'REQUEST_URI'}; if ($request=~/cgi-bin\/g_list.pl\/(.*)$/) { ($hostname,$file)=split(/\//,$1); $title="$hostname $file"; } else { $title="listing"; }; #(inter)net env $cgi_dir="$hostname/cgi-bin"; $source="$cgi_dir/g_list.pl"; #path variablen $home="/home/rick/svn/genesis/"; $ndir="$home/nodes"; $toolfile="$home/tools/wleiden.pl"; #exec vars $svn='/usr/local/bin/svn'; $html=1; $functions_only=1; do $toolfile || die; #gebruik van simple subje om ervoor te zorgen dat de print netjes in het #programma gestopt kan worden sub printline { print "$_[0] \n"; }; $browser=$ENV{'HTTP_USER_AGENT'}; if ($browser=~/curl|wget|fetch/i) { $HTML=0; printline("Content-type: text/html\n\n"); } else { $HTML=1; printline("Content-type: text/html\n\n"); printline(""); printline("Genesis $title"); printline(""); printline(""); }; if ($hostname eq '') { if ($ENV{"QUERY_STRING"}=~/update/i) { select(STDERR); $| = 1; # make unbuffered select(STDOUT); $| = 1; # make unbuffered printline("

Please wait while updating svn...

");
      system("$svn update $home");
      close(SVN);
    printline("
"); printline("

Done.

"); printline("Click here"); printline("if you're not forwarded automaticly in 5 seconds.

"); printline(""); } else { g_list( ); }; } else { $dir="$ndir/$hostname"; if (! -d $dir ) { if ($HTML) { print "

Host $hostname not found: $dir

\n"; } else { print "Host $hostname not found: $dir\n"; }; } elsif ($file eq '') { foreach $file (@filelist) { if ($HTML) { print "$file
\n"; } else { print "$file\n"; }; }; } elsif ($file eq 'config') { g_print($hostname); } elsif ($file eq 'txtconfig') { $HTML=0;g_print($hostname); } else { foreach my $tmpFile (@filelist) { if( $file eq $tmpFile ) { g_generate($file,$hostname); }; }; }; }; if ($HTML) { print < EOF } sub g_list { if ($HTML) { $svn_version=svn_version("$ndir"); if ($svn_version=~/Last Changed Rev: (\d+)/) { $revision=$1; }; printline("

Genesis config (revision: $revision):

\n

");
    printline("$svn_version");
    printline("
"); printline("
"); printline(''); printline("
"); printline(""); }; opendir(DIR, $ndir) || die "can't opendir $home: $!"; @dirs = grep { /^[^\.]/ && -d "$ndir/$_" } readdir(DIR); closedir DIR; foreach $dir (sort @dirs) { if ($dir=~/attic/) { next; }; $hostname=$dir; if (! $HTML) { print "$hostname\n"; } else { printline(""); foreach $file (@filelist) { printline("\n"); }; }; }; printline("
$hostname$file

"); }; sub svn_version { local($file,$char)=@_; local($svn_version); $svn_version=`$svn info $file`; if ($char ne '') { $svn_version=~s/^([^$char].*)/$char $1/mgi; }; return($svn_version); }; sub g_print { local($hostname)=@_; $config="$ndir/$hostname/wleiden.conf"; if (! $HTML) { print svn_version($config,'#'); open (CFG,$config) || die; while () {print $_;} close(CFG); } else { printline("

Genesis configuratie voor: $hostname

"); printline("

" . svn_version($config) . "

"); do($config) || die; parse_config(); $TP=''; if ($tproxy !~ m/no/i) { $TP .= "\n"; $TP .= "Tproxy on cidr range $tproxy"; $TP .= "WARNING - specification propably wrong - should be a cidr" unless $tproxy =~ m/\d+\.\d+\.\d+\.\d+\/\d+/; }; printline(""); foreach $if (sort keys %config) { if ($if=~/^(.*):\d+/) { $subs{$1}++; }; }; foreach $if (sort keys %config) { if ($if=~/^([^:]+)/) { $mymain=$1; } else { $mymain=''; }; if ($if!~/:\d+/) { $main=1;$cc='66' } else { $main=0; $cc='cc'; }; if (! ($ip=$IP{$if})) { $ip='dhcp?'; }; if ($TYPE{$if}=~/wireless/) { $color="#${cc}FFFF"; }; if ($TYPE{$if}=~/ethernet/) { $color="#FFFF${cc}"; }; $cfg=$config{$if}; $cfg=~s/(.*KEY.*=).*/${1}***********/; $cfg=~s/(.*PWD.*=).*/${1}***********/; $cfg=~s/(.*CODE.*=).*/${1}***********/; $cfg=~s/(.*PASS.*=).*/${1}***********/; if ($main) { printf "\n",(1+$subs{$if})*3,$subs{$if}; $c=4; } else { $c=3; print ""; }; $cfg=~s//>/gi; printline(""); printline(""); printline(""); }; printline("
");
    printline("master_ip=$master_ip");
    printline("AGGREGATE=$AGGREGATE");
    printline("");
    printline("gw_open=$gw_open");
    printline("nodetype=$nodetype");
    printline("nodename=$nodename");
    printline("");
    printline("NS_forward=$NS_forward");
    printline("NS_resolv=$NS_resolv");
    printline("");
    printline("location=$location");
    printline("DISK=$DISK");
    printline("");
    printline("X=$X");
    printline("Y=$Y");
    printline("");
    printline("OS=$OS");
    printline("");
    printline("$TP");
    printline("
$if
$if$ip$DESC{$if}($SDESC{$if})
");
      printline("$cfg");
      printline("
 
"); }; }; sub g_generate { ($file,$hostname)=@_; $config="$ndir/$hostname/wleiden.conf"; if (! -r $config) { if ($HTML) { printline("

File $file not found: $config

"); } else { printline("File $file not found: $config"); }; } else { $svn_versiont=svn_version($toolfile,$char); $svn_versionc=svn_version($config,$char); if ($svn_versiont=~/Last Changed Rev: (\d+)/) { $tool_rev=$1; }; if ($svn_versionc=~/Last Changed Rev: (\d+)/) { $config_rev=$1; }; if ($tool_rev >= $config_rev) { $svn_version=$svn_versiont . $svn_versionc; } else { $svn_version=$svn_versionc; }; if ($HTML) { printline("

Genesis $file voor: $hostname

"); }; parse_config($config); $pr=do_it($file); if ($HTML) { $pr=~s//>/gi; printline("

$pr
"); } else { print $pr; }; }; };