Changeset 55779d4 for fedkit/active_config.pl

Timestamp:

Feb 22, 2010 4:40:21 AM (15 years ago)

Author:

Ted Faber <faber@…>

Branches:

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

Children:

2b11a1d

Parents:

238db1e

Message:

Supporting nodes connected by transit networks

File:

• fedkit/active_config.pl (modified) (2 diffs)

fedkit/active_config.pl

@@ -42 +42 @@
 exit(20) if $?;
 
-my $f = new IO::File($iface_file) || die "Can't open $iface_file: $!\n";
-my $ifnum = 0;
 
 print "Waiting for ssh on $peer\n";
@@ -52 +50 @@
     "-i $ssh_privkey $peer ls", 5*60);
 
-while (<$f>) {
-    /([[:alnum:]]+)\s+([\d\.]+)/ && do {
-        my ($iface, $addr) = ($1, $2);
+if (my $f = new IO::File($iface_file)) {
+    my $ifnum = 0;
+    while (<$f>) {
+        /([[:alnum:]]+)\s+([\d\.]+)/ && do {
+            my ($iface, $addr) = ($1, $2);
 
-        my $cmd = "$ssh -w $ifnum:$ifnum -o \"Tunnel ethernet\" " . 
-            "-o \"StrictHostKeyChecking no\" -i $ssh_privkey " .
-            "$peer perl -I$fedkit_dir/lib $fedkit_dir/bin/setup_bridge.pl " .
-            "--tapno=$ifnum --dest=$addr &";
-        system($cmd);
-        die if $?;
-        gateway_lib::bind_tap_to_iface($ifnum, $iface, $addr);
-        $ifnum++;
-    };
+            my $cmd = "$ssh -w $ifnum:$ifnum -o \"Tunnel ethernet\" " . 
+                "-o \"StrictHostKeyChecking no\" -i $ssh_privkey " .
+                "$peer perl -I$fedkit_dir/lib $fedkit_dir/bin/setup_bridge.pl " .
+                "--tapno=$ifnum --dest=$addr &";
+            system($cmd);
+            die if $?;
+            gateway_lib::bind_tap_to_iface($ifnum, $iface, $addr);
+            $ifnum++;
+        };
+    }
+    $f->close();
 }
-$f->close();
+else {
+    warn "Can't open $iface_file: $!\n";
+}
 exit(0);