Changeset 4087 in genesis


Ignore:
Timestamp:
Mar 17, 2005, 12:28:41 PM (20 years ago)
Author:
rick
Message:

Fixed some error's, make more generic

Location:
tools
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • tools/g_list.pl

    r4086 r4087  
    2222
    2323#path variablen
    24 my $home="/home/wleiden/genesis";
     24my $home="/home/genesis";
    2525my $ndir="$home/nodes";
    2626my $toolfile="$home/tools/wleiden.pl";
     
    4444#REQUEST parsen
    4545$request=$ENV{'REQUEST_URI'};
    46 if ($request=~/cgi-bin\/g_list.pl\/(.*)$/) {
     46if( $request=~/cgi-bin\/g_list.pl\/(.*)$/) {
    4747  ($node,$file)=split(/\//,$1);
    4848  $title="$node $file";
     
    5656#en zorgen dan er de nodige tags geprint worden
    5757$browser=$ENV{'HTTP_USER_AGENT'};
    58 if ($browser=~/curl|wget|fetch/i) {
     58if( $browser=~/curl|wget|fetch/i) {
    5959  $HTML=0;
    6060  printline("Content-type: text/html\n\n");
     
    7070
    7171#als geen node gespecificeerd dan kijken of svn geupdate is gevraagd
    72 if ($node eq '') {
    73   if ($ENV{"QUERY_STRING"}=~/update/i) {
     72if( $node eq '') {
     73  if( $ENV{"QUERY_STRING"}=~/update/i) {
    7474    select(STDERR); $| = 1;     # make unbuffered
    7575    select(STDOUT); $| = 1;     # make unbuffered
     
    8888}
    8989else {
    90   if ($file eq '') {
     90  if( $file eq '') {
    9191    foreach $file ( sort @filelist) {
    92       if ($HTML) {
     92      if( $HTML) {
    9393        print "$file<BR>\n";
    9494      }
     
    9898    };
    9999  }
    100   elsif ($file eq 'config') {
     100  elsif( $file eq 'config') {
    101101    g_print($hostname);
    102102  }
     
    111111
    112112#plaats de sluit HTML tags
    113 if ($HTML) {
     113if( $HTML) {
    114114  print <<EOF;
    115115</BODY>
     
    121121#Het opbouwen van het begin scherm
    122122sub g_list {
    123   if ($HTML) {
     123  if( $HTML) {
    124124    my $svn_version=svn_version("$ndir");
    125     if ($svn_version=~/Last Changed Rev: (\d+)/) {
     125    if( $svn_version=~/Last Changed Rev: (\d+)/) {
    126126      $revision=$1;
    127127    };
     
    139139  closedir DIR;
    140140  foreach $dir (sort @dirs) {
    141     if ($dir=~/attic/) {
     141    if( $dir=~/attic/ ) {
    142142      next;
    143143    };
    144144    my $node = $dir;
    145     if (! $HTML) {
     145    if( ! $HTML ) {
    146146      print "$node\n";
    147147    }
     
    151151        printline("<TD><A HREF=g_list.pl/$node/$file>$file</A></TD>\n");
    152152      };
    153       printline("</TABLE><P>");
    154     };
     153    };
     154  };
     155  if( $HTML ) {
     156    printline("</TABLE><P>");
    155157  };
    156158};
     
    163165  local($svn_version);
    164166  $svn_version=`$svn info $file`;
    165   if ($char ne '') {
     167  if( $char ne '' ) {
    166168    $svn_version=~s/^([^$char].*)/$char $1/mgi;
    167169  };
     
    181183
    182184 my $TP='';
    183  if ($tproxy !~ m/no/i) {
     185 if( $tproxy !~ m/no/i ) {
    184186   $TP .= "\n";
    185187   $TP .= "Tproxy on cidr range $tproxy";
     
    210212 printline("</PRE></TD></TR>");
    211213
    212  foreach $if (sort keys %config) {
    213    if ($if=~/^(.*):\d+/) {
     214 foreach $if( sort keys %config) {
     215   if( $if=~/^(.*):\d+/ ) {
    214216     $subs{$1}++;
    215217   };
    216218 };
    217219
    218  foreach $if (sort keys %config) {
    219    if ($if=~/^([^:]+)/) {
     220 foreach $if( sort keys %config) {
     221   if( $if=~/^([^:]+)/ ) {
    220222     $mymain=$1;
    221223   }
     
    224226   };
    225227   
    226    if ($if!~/:\d+/) {
     228   if( $if!~/:\d+/ ) {
    227229     $main=1;$cc='66'
    228230   }
     
    232234   };
    233235   
    234    if (! ($ip=$IP{$if})) {
     236   if(! ($ip=$IP{$if}) ) {
    235237     $ip='dhcp?';
    236238   };
    237    if ($TYPE{$if}=~/wireless/) {
     239   if( $TYPE{$if}=~/wireless/ ) {
    238240     $color="#${cc}FFFF";
    239241   };
    240    if ($TYPE{$if}=~/ethernet/) {
     242   if( $TYPE{$if}=~/ethernet/) {
    241243     $color="#FFFF${cc}";
    242244   };
     
    248250   $cfg=~s/(.*PASS.*=).*/${1}***********/;
    249251
    250    if ($main) {
     252   if( $main) {
    251253     printf "<TR bgcolor=$color><TD ROWSPAN=%d VALIGN=TOP><B>$if</TD>\n",(1+$subs{$if})*3,$subs{$if};
    252254     $c=4;
     
    277279  $svn_versionc=svn_version($config,$char);
    278280
    279   if ($svn_versiont=~/Last Changed Rev: (\d+)/) {
     281  if( $svn_versiont=~/Last Changed Rev: (\d+)/ ) {
    280282    $tool_rev=$1;
    281283  };
    282   if ($svn_versionc=~/Last Changed Rev: (\d+)/) {
     284  if( $svn_versionc=~/Last Changed Rev: (\d+)/ ) {
    283285  $config_rev=$1;
    284286  };
    285287
    286   if ($tool_rev >= $config_rev) {
     288  if( $tool_rev >= $config_rev) {
    287289    $svn_version=$svn_versiont . $svn_versionc;
    288290  }
     
    291293  };
    292294
    293   if ($HTML) {
     295  if( $HTML) {
    294296    printline("<H1>Genesis $file voor: $hostname</H1><P>");
    295297  };
     
    299301
    300302
    301   if ($HTML) {
     303  if( $HTML ) {
    302304    $pr=~s/</&lt;/gi;
    303305    printline("<PRE>$pr</PRE>");
  • tools/wleiden.pl

    r4084 r4087  
    88my $author="feb 2003 jasper\@WirelessLeiden.NL \| maart 2005 rick\@WirelessLeiden.NL";
    99my $wicontrol='/usr/sbin/wicontrol';
    10 my $IP_pmPath='/home/rick/svn/genesis/tools/IP.pm';
    11 my $dnsheader_confPath='/home/rick/svn/genesis/dns/dnsheader.conf';
     10my $IP_pmPath='/home/genesis/tools/IP.pm';
     11my $dnsheader_confPath='/home/genesis/dns/dnsheader.conf';
    1212
    1313
Note: See TracChangeset for help on using the changeset viewer.