Changeset dc803a7 for fedkit/config_from_tunnelip.pl

Timestamp:

Mar 12, 2010 2:37:32 AM (14 years ago)

Author:

Ted Faber <faber@…>

Branches:

axis_example, compt_changes, info-ops, master, version-3.01, version-3.02

Children:

7e50f69

Parents:

310d419

Message:

Set up all routing daemons from the fedkit and note interfaces we've added in a way that SEER's federated testbed will grok them.

File:

• fedkit/config_from_tunnelip.pl (modified) (4 diffs)

fedkit/config_from_tunnelip.pl

@@ -2 +2 @@
 
 use strict;
+use IO::File;
 use IO::Pipe;
 use Getopt::Long;
@@ -19 +20 @@
 my $router;                     # Router for the internet
 my $routedest;                  # Add host route to this address (if given)
+my $recordfile;                 # Record interfaces
 
 # Linux and FreeBSD use slightly different route syntax, so get the OS
@@ -25 +27 @@
 
 # Option parsing, --destination sets $routedest
-GetOptions('destination=s' => \$routedest);
+GetOptions('destination=s' => \$routedest, "record=s" => \$recordfile);
 
 # Parse out the info about tunnelips
@@ -71 +73 @@
 }
 else { warn "Destination but no router\n" if $routedest; }
+if ($recordfile) {
+    $netmask = "255.255.255.0" unless $netmask;
+    my $rf = new IO::File(">>$recordfile") || 
+        die "Can't open $recordfile:$!\n";
+    print $rf "$ip:$interface:$mac:$netmask\n";
+    $rf->close();
+}
 exit(0);