Changeset 2c16731 for fedkit/gateway_lib.pm

Timestamp:

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

Author:

Ted Faber <faber@…>

Branches:

master

Children:

51d3aa0

Parents:

ea0e8cb

Message:

Ping hosts on tap establishment

File:

• fedkit/gateway_lib.pm (modified) (1 diff)

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) = @_;