Changeset 4081 in genesis for tools/wleiden.pl

Timestamp:

Mar 16, 2005, 6:10:04 PM (20 years ago)

Author:

rick

Message:

CLeaned g_list.pl
Fixed wleiden.pl

File:

• tools/wleiden.pl (modified) (9 diffs)

tools/wleiden.pl

@@ +1 @@
+#!/usr/bin/perl -w
 #
 #
 #  maart 2004 rick@wirelessleiden.nl
 #
-
 
 my $debug=0;
@@ -13 +13 @@
 
 #variablen
-my $workingfile = "";
 my $time=gmtime();
 my $source=`/bin/hostname -s`;
@@ -20 +19 @@
 
 #slurp IP berekeningen info
-do ($IP_pmPath) || die ("Cann't open $IP_pmPath");
+do ("$IP_pmPath") || die ("Cann't open $IP_pmPath");
 #slurp dns info
-do ($dnsheader_confPath) || die ("Cann't open $dnsheader_confPath");
+do ("$dnsheader_confPath") || die ("Cann't open $dnsheader_confPath");
 
 
@@ -35 +34 @@
       if( $1 eq $master_ip ) {
         return(0);
-        break;
       };
     };
@@ -59 +57 @@
 
 
-
 sub txtconfig {
-  my $output = `cat $workingfile`;
-  return($output);
-};
-
+  my $output = "";
+  foreach $interface (keys %config) {
+    $output .= $config{$interface};
+  };
+  return($output);
+};
 
 
@@ -169 +168 @@
 
 
-sub rc_conf {
+sub rc_local {
   my $output = genHeader("#");
   my $masterNotUsed = master_ipNotUsed();
-  print $masterNotUsed;
   $output.=
   "hostname=\"$nodetype$nodename.wLeiden.NET\"\n" .
@@ -298 +296 @@
 
 sub parse_config {
-  $workingfile = $_[0];
+  my $workingfile = $_[0];
   do($workingfile) || die("Cann't open/parse $workingfile");
-  foreach $if (keys %config) {
-    $cfg=$config{$if};
+  foreach my $if (keys %config) {
+    my $cfg=$config{$if};
     while ($cfg) {
       $cfg=~s/^([^\n\r]+)[\r\n]*//m;
-      $line=$1;
+      my $line=$1;
       $line=~s/\s*#.*//;
-      if ((($name,$value)=split(/=/,$line)) eq 2) {
-        $doit="if (exists(\$$name\{\"$if\"\})) {\$$name\{\"$if\"\}.=\"$separator$value\";} else {\$$name\{\"$if\"\}.=\"$value\";}";
+      if (((my $name, my $value)=split(/=/,$line)) eq 2) {
+        my $doit="if (exists(\$$name\{\"$if\"\})) {\$$name\{\"$if\"\}.=\";$value\";} else {\$$name\{\"$if\"\}.=\"$value\";}";
         eval($doit);
       };
@@ -324 +322 @@
 };
 
-if( $debug ) {
+if( exists $ARGV[0] ) {
   if( exists $ARGV[1] ) {
     parse_config($ARGV[0]);
@@ -333 +331 @@
   };
 };
+
+1;