Changeset 8270 in genesis for nodes/genesis-to-yaml.pl

Timestamp:

Aug 8, 2010, 7:38:01 PM (14 years ago)

Author:

rick

Message:

• Useless entries deleted

File:

• nodes/genesis-to-yaml.pl (modified) (4 diffs)

nodes/genesis-to-yaml.pl

@@ -8 +8 @@
   Geo::Coordinates::RDNAP->import(qw/from_rd to_rd dms/);
 } else {
-  print STDERR "[WARN] Geo::Coordinates::RDNAP not installed\n";
   sub from_rd {
     return (0,0,0);
@@ -72 +71 @@
 foreach $if (keys %config) {
     ($iflabel, $alias) = split(':',$if);
-    $iflabel .= "_alias${alias}" if ($alias);
+    $iflabel .= "_alias${alias}" if ($alias =~ m/[0-9]/);
     
     print <<EOF;
@@ -78 +77 @@
 EOF
     %tmp = (
-        'configtype' => 'interface',
         'dhcp' => 'False',
         'compass_direction' => 'None',
-        'nodename' => $nodename,
         'interface' => $if,
         );
@@ -138 +135 @@
 
     foreach $key (sort keys %tmp) {
-        printf "  %-11s: $tmp{$key}\n", $key;
+        printf "  %-11s: '$tmp{$key}'\n", $key;
     }
     print "\n";