Changeset 6463 in genesis for nodes/genesis-to-py.pl

Timestamp:

Dec 16, 2008, 9:57:39 AM (16 years ago)

Author:

andrea

Message:

use exodus-compliant 'labels' when building output

File:

• nodes/genesis-to-py.pl (modified) (5 diffs)

nodes/genesis-to-py.pl

@@ -13 +13 @@
 do($ARGV[0]) || die;
 
+my %status_labels = ( up => 'up', down => 'dw', planned => 'pl' );
+
 $interfaces = join(',',keys %config);
 if ( ($X =~ /\d+/) and ($Y =~ /\d+/) and ($X > 10) and ($Y > 10)) {
@@ -19 +21 @@
     $lat = $lon = $h = 0;
 }
+
+$status = $status_labels{$status} || 'up'; # ensure reporting a correct status
 
 print <<EOF;
@@ -29 +33 @@
 x = $X
 y = $Y
-master_ip = $master_ip
+masterip = $master_ip
 nodetype = $nodetype
-nodename = $nodename
+name = $nodename
 configtype = node
 
@@ -45 +49 @@
         'dhcp' => 'no',
         'polar' => 'ver',
-        'type' => 'wireless',
+        'type' => '11b',
         'antenna' => 'omni',
         'essid' => 'essid-unused',
@@ -53 +57 @@
         if ($key and (lc($key) =~ /^[a-z].*/)) {
             #print "$key : $value\n";
-            $tmp{lc($key)} = lc($value);
+            $value = lc($value);
+            if ($key =~ /^type$/i) {
+                if ($value eq 'ethernet') {
+                    $value = 'eth';
+                } else {
+                    $value = '11b';
+                }
+            } elsif ($key =~ /^mode$/i) {
+                if ($value eq 'master') {
+                    $value = 'ms';
+                } else { # managed
+                    $value = 'mn';
+                }
+            }
+            $tmp{lc($key)} = $value;
         }
     }