Changeset 4a02274 for fedkit

Timestamp:

Mar 10, 2014 11:12:49 AM (11 years ago)

Author:

Ted Faber <faber@…>

Branches:

master

Children:

a2ca699

Parents:

26821ac (diff), dffa585 (diff)
Note: this is a merge changeset, the changes displayed below correspond to the merge itself.
Use the (diff) links above to see all the changes relative to each parent.

Message:

Merge branch 'master' into shared_nat

Location:

fedkit

Files:

• gateway_lib.pm (modified) (1 diff)
• prep_gateway.pl (modified) (1 diff)
• setup_bridge.pl (modified) (3 diffs)

fedkit/gateway_lib.pm

@@ -434 +434 @@
 }
 
+# Fling a few ping packets at the peer in the hopes that it opens doors through
+# NATs and other filters.  Practically speaking this can make a big difference.
+sub ping_peer {
+    my($peer) = @_;
+    system("ping -c 5 $peer");
+}
+
 sub testcmd_repeat {
     my($cmd, $timeout, $sleep) = @_;

fedkit/prep_gateway.pl

@@ -89 +89 @@
     # appear in the DNS.
     foreach my $p (split(/\s*,\s*/, $peer)) {
-        gateway_lib::add_route($p, $router, 1, 60 *60) 
-            if $p && $router;
+        if ($p && $router ) {
+            gateway_lib::add_route($p, $router, 1, 60 *60);
+            # grease the skids
+            gateway_lib::ping_peer($p);
+        }
     }
 }

fedkit/setup_bridge.pl

@@ -13 +13 @@
 my $fedkit_dir= "/usr/local/federation";
 my $perl = "/usr/bin/perl";
+my $peer;
 my $use_file;
 my %opts = (
@@ -18 +19 @@
     'addr=s' => \$addr,
     'dest=s' => \$dest,
+    'peer=s' => \$peer,
     'use_file', \$use_file,
 );
 
 exit(20) unless GetOptions(%opts);
-gateway_lib::read_config(gateway_lib::emulab_config_filename(), \%opts)
+gateway_lib::read_config(gateway_lib::config_filename(), \%opts)
     if $use_file;
 
@@ -34 +36 @@
 
 gateway_lib::bind_tap_to_iface($tapno, $iface);
+gateway_lib::ping_peer($peer)
+    if $peer;
 
 exit(0);