Changeset 6964 in genesis

Timestamp:

Jun 13, 2009, 4:13:56 PM (16 years ago)

Author:

rick

Message:

• Tired of all warnings in httpd log. Fixed a few and disabled the warnings

File:

• tools/FreeBSD7_x/g_list.pl (modified) (8 diffs)

tools/FreeBSD7_x/g_list.pl

@@ -1 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
 #
 # Copyright 2005 Stichting Wireless Leiden
@@ -39 +39 @@
   closedir DIR;
   foreach $dir (sort @tmpdirs) {
+    no warnings "once";
     if( not exists($removefromnodelist{$dir}) )
     {
@@ -47 +48 @@
     if ( $debug ) { print "'$dir' removed from list\n"; }
     }
+    use warnings "once";
   };
   return @nodelist;
@@ -180 +182 @@
 #ophalen svn versie
 sub svn_version {
-  local($file,$char)=@_;
+  local($file)=@_;
   local($svn_version);
   $svn_version=`$svn info $file`;
-  if( $char ne '' ) {
-    $svn_version=~s/^([^$char].*)/$char $1/mgi;
-  };
   return($svn_version);
 };
@@ -200 +199 @@
 
 
+ no warnings "once";
  my $TP='';
  if( $tproxy !~ m/no/i ) {
@@ -286 +286 @@
  };
  printline("</TABLE>");
+ no warnings "once";
 };
 
@@ -294 +295 @@
   my $file=$_[0];
   $config="$ndir/$node/$configfile";
-  $svn_versiont=svn_version($toolfile,$char);
-  $svn_versionc=svn_version($config,$char);
+  $svn_versiont=svn_version($toolfile);
+  $svn_versionc=svn_version($config);
 
   if( $svn_versiont=~/Last Changed Rev: (\d+)/ ) {
@@ -322 +323 @@
     $pr=~s/</&lt;/gi;
     printline("<PRE>$pr</PRE>");
-  }
-
-  $output = join('',@HTTP_BODY);
-  print "Content-Length: " . length($output) . " \n";
-  print "Content-type: text/html\n\n";
-  print $output;
-};
+  } else {
+    @HTTP_BODY = $pr;
+  };
+};