Changeset 2c16731 for fedkit

Timestamp:

Mar 10, 2014 10:16:01 AM (11 years ago)

Author:

Ted Faber <faber@…>

Branches:

master

Children:

51d3aa0

Parents:

ea0e8cb

Message:

Ping hosts on tap establishment

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,
 );
@@ -34 +36 @@
 
 gateway_lib::bind_tap_to_iface($tapno, $iface);
+gateway_lib::ping_peer($peer)
+    if $peer;
 
 exit(0);