Changeset 8d4e4fb for fedkit/gateway_lib.pm

Timestamp:

Feb 10, 2010 10:29:18 AM (14 years ago)

Author:

Ted Faber <faber@…>

Branches:

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

Children:

bbd0039

Parents:

b73cc45

Message:

Add support for parameters via files in a standard emulab location

Also moved combo_active.pl to combo.pl and added support for passive gateways.

File:

• fedkit/gateway_lib.pm (modified) (3 diffs)

fedkit/gateway_lib.pm

@@ -9 +9 @@
 @EXPORT_OK=qw(set_sshd_params import_key wait_for_DNS deter_tunnelip 
     configure_outgoing_iface add_route bind_tap_to_iface iface_to_addr
-    dest_to_iface addr_to_iface);
+    dest_to_iface addr_to_iface read_config emulab_config_filename);
+
 
 use strict;
@@ -24 +25 @@
 my $TMCC = "/usr/local/etc/emulab/tmcc";
 my $FINDIF = "/usr/local/etc/emulab/findif";
+my $TMCC = "/usr/local/etc/emulab/tmcc";
 
 # Takes an ssh config file and a reference to a hash of keys whose values must
@@ -242 +244 @@
 }
 
+# untested
+sub read_config {
+    my($file, $map) = @_;
+    my %param;
+    my %keywords;
+    my $f;
+
+    foreach my $k (keys %{$map}) {
+        if ( $k =~ /(\S+)=[si]/ ) {
+            $keywords{$1} = $map->{$k};
+            $param{$1}++;
+        }
+        else {
+            $keywords{$k} = $map->{$k};
+        }
+    }
+
+    $f = new IO::File($file) || die "Can't open $file: $!\n";
+    while (<$f>) {
+        /^\s*([^:]+):\s*(.*)/ && do {
+            my $keyw = $1;
+            my $val = $2;
+
+            $keyw =~ tr [A-Z] [a-z];
+
+            if ($keywords{$keyw} ) {
+                if ( $param{$keyw} ) { 
+                    if ( ref($keywords{$keyw}) eq 'SCALAR') {
+                        ${$keywords{$keyw}} = $val;
+                    }
+                    elsif( ref($keywords{$keyw}) eq 'ARRAY') {
+                        push(@{$keywords{$keyw}}, $val);
+                    }
+                    else {
+                        die "Unknown variable type for $keyw\n";
+                    }
+                }
+                else  { ${$keywords{$keyw}}++; }
+            }
+            next;
+        };
+    }
+    $f->close();
+}
+
+
+sub emulab_config_filename {
+    # Find the configuration file in the usual place, which depends on what
+    # experiment and project we're in.
+    my $pid;
+    my $eid;
+    my $filename;
+    my $tmcd = new IO::Pipe() || die "Can't create pipe: $!\n";
+
+    $tmcd->reader("$TMCC status");
+
+    while (<$tmcd>) {
+        chomp;
+        /ALLOCATED=([^\/]+)\/(\S+)/ && do {
+            $pid = $1;
+            $eid = $2;
+        };
+    }
+    $tmcd->close();
+    my $hn = `hostname`;
+    chomp $hn;
+    $hn =~ s/\..*//;
+    $filename = "/proj/$pid/exp/$eid/tmp/$hn.gw.conf"
+        if $pid and $eid;
+
+    return $filename;
+}
+
 1;