Changeset fde165c for fedkit

Timestamp:

Sep 22, 2009 1:05:50 PM (15 years ago)

Author:

Ted Faber <faber@…>

Branches:

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

Children:

8c9933c

Parents:

e26c240

Message:

comments

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;
 
+# Commands to use below.  These all seem to be in the same place on FreeBSD and
+# Lunix
 my $TMCC = "/usr/local/etc/emulab/tmcc";
 my $FINDIF = "/usr/local/etc/emulab/findif";
@@ -11 +12 @@
 my $ROUTE = "/sbin/route";
 
-my $tmcc = new IO::Pipe || die "Can't create tmcc pipe: $!\n";
-my $interface;
-my $ip;
-my $mac;
-my $netmask ="255.255.255.0";
-my $router;
-my $routedest;
+my $tmcc = new IO::Pipe || die "Can't create tmcc pipe: $!\n";  # To parse tmcc
+my $interface;                  # Interface with external address
+my $ip;                         # IP address of external interface
+my $mac;                        # MAC address
+my $netmask;                    # Netmask
+my $router;                     # Router for the internet
+my $routedest;                  # Add host route to this address (if given)
 
+# Linux and FreeBSD use slightly different route syntax, so get the OS
 my $os = `uname`;
 chomp $os;
 
+# Option parsing, --destination sets $routedest
 GetOptions('destination=s' => \$routedest);
 
+# Parse out the info about tunnelips
 $tmcc->reader("$TMCC tunnelip");
 while (<$tmcc>) {
@@ -36 +40 @@
 die "No MAC information for tunnel.\n" unless $mac;
 
+# Use the emulab findif command to get the right interface to configure
 $interface = `$FINDIF $mac`;
 chomp $interface;
 die "Can't get interface for mac address $mac: $?" if $? || !$interface;
 
+# Do the ifconfig
 my @ifconfig = ($IFCONFIG, $interface, $ip);
 push(@ifconfig, 'netmask', $netmask) if $netmask;
@@ -46 +52 @@
 die join(" ", @ifconfig) . " failed: $!\n" if $?;
 
+# Add the host route, if needed
 if ($routedest ) {
     if ($router) {