Changeset 4702322

Timestamp:

Sep 25, 2009 1:51:15 PM (15 years ago)

Author:

Ted Faber <faber@…>

Branches:

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

Children:

6c1981f

Parents:

0fa1729

Message:

Add config to make file.

Remove remoteconfigfile from fed-tun.pl as well as removing the need to call
with a config file name.

Do not attempt to set up routes on nodes without a router parameter.

Location:

fedkit

Files:

• Makefile (modified) (1 diff)
• fed-tun.pl (modified) (7 diffs)

fedkit/Makefile

@@ -1 +1 @@
 BINARIES=federate.sh smbmount.FreeBSD.pl smbmount.Linux.pl \
-         make_hosts fed-tun.pl fed_evrepeater rc.fedaccounts
+         make_hosts fed-tun.pl fed_evrepeater rc.fedaccounts \
+         config_from_tunnelip.pl
 
 fedkit.tgz:     ${BINARIES} ${PATCHES}

fedkit/fed-tun.pl

@@ -76 +76 @@
 my $remote_script_dir;          # location of the other sides fed-tun.pl
 my $event_repeater;             # The pathname of the event repeater
-my $remote_config_file;         # Config file for the other side
 
 if ($#ARGV != 0 && !getopts('df:rn', \%opts)) {
@@ -135 +134 @@
     $remote_script_dir = $opts{'remotescriptdir'} || ".";
     $event_repeater = $opts{'eventrepeater'};
-    $remote_config_file = $opts{'remoteconfigfile'};
-    $remote_config_file = "-f $remote_config_file" if $remote_config_file;
+    my $listen_on = $opts{'sshlisten'};
 
     if (defined($opts{'fsname'})) {
-        push(@ssh_port_fwds,"-R :$SMBFS_PORT:$opts{'fsname'}:$SMBFS_PORT");
+        push(@ssh_port_fwds,"-R $listen_on:$SMBFS_PORT:$opts{'fsname'}:$SMBFS_PORT");
     }
 
     if (defined($opts{'bossname'})) {
-        push(@ssh_port_fwds, "-R :$TMCD_PORT:$opts{'bossname'}:$TMCD_PORT");
+        push(@ssh_port_fwds, "-R $listen_on:$TMCD_PORT:$opts{'bossname'}:$TMCD_PORT");
     }
 
     if (defined($opts{'eventservername'})) {
         push(@ssh_port_fwds,"-R ". 
-            ":$remote_pubsub_port:$opts{'eventservername'}:$PUBSUB_PORT");
+            "$listen_on:$remote_pubsub_port:$opts{'eventservername'}:$PUBSUB_PORT");
     }
     if (defined($opts{'remoteeventservername'})) {
@@ -157 +155 @@
     # Forward connections to seer from remote TBs to control in this TB
     if (defined($opts{'seercontrol'})) {
-        push(@ssh_port_fwds,"-R :$SEER_PORT:$opts{seercontrol}:$SEER_PORT");
+        push(@ssh_port_fwds,"-R $listen_on:$SEER_PORT:$opts{seercontrol}:$SEER_PORT");
     }
 
@@ -241 +239 @@
     if ($type eq "control") {
         foreach my $fwd (@ssh_port_fwds) {
-            system("$SSH -N $fwd -Nno \"StrictHostKeyChecking no\" ". 
+            system("$SSH -N $fwd -o \"StrictHostKeyChecking no\" ". 
                 "$opts{'peer'} &"); #or die "Failed to run ssh";
         }
@@ -279 +277 @@
             "-o \"StrictHostKeyChecking no\" " . 
             "$opts{'peer'}  \"$remote_script_dir/fed-tun.pl " . 
-            "$remote_config_file -r $addr $count\" & |";
+            "-r $addr $count\" & |";
 
         print "$cmd\n" if $debug;
@@ -415 +413 @@
     close(TMCD);
 
-    die "Unable to determine tunnel node configuration information"
-        if (!defined($tunnel_router) || !$tunnel_router);
-
     print "tunnel options:  ip=$tunnel_ip mask=$tunnel_mask mac=$tunnel_mac router=$tunnel_router\n" if ($debug);
 
@@ -433 +428 @@
     warn "configuration of tunnel interface failed" if ($?);
 
-    # Sometimes the insertion of DNS names lags a bit.  Retry this
-    # configuration a few times to let DNS catch up.  Might want to really
-    # check the DNS name before we try this...
-    my $config_succeeded = 0;
-    my $tries = 0;
-    my $max_retries = 300;
-
-    do {
-        system("route add $opts{'peer'} $tunnel_router");
-        if ( $? ) {
-            warn "configuration routes via tunnel interface failed";
-            $tries++;
-            sleep(10);
-        }
-        else { $config_succeeded = 1; }
-    } until ( $config_succeeded || $tries > $max_retries );
+    if ($tunnel_router) {
+
+        # Sometimes the insertion of DNS names lags a bit.  Retry this
+        # configuration a few times to let DNS catch up.  Might want to really
+        # check the DNS name before we try this...
+        my $config_succeeded = 0;
+        my $tries = 0;
+        my $max_retries = 300;
+
+        do {
+            system("route add $opts{'peer'} $tunnel_router");
+            if ( $? ) {
+                warn "configuration routes via tunnel interface failed";
+                $tries++;
+                sleep(10);
+            }
+            else { $config_succeeded = 1; }
+        } until ( $config_succeeded || $tries > $max_retries );
+    }
 
     print "setup_tunnel_cfg done\n" if ($debug);