Changeset c8c45ee for fedkit

Timestamp:

Sep 18, 2007 1:15:31 PM (17 years ago)

Author:

Ted Faber <faber@…>

Branches:

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

Children:

d501c38

Parents:

a835df7

Message:

add script dir

Location:

fedkit

Files:

• fed-tun.pl (modified) (3 diffs)
• splitter.pl (modified) (1 diff)

fedkit/fed-tun.pl

@@ -51 +51 @@
 my $tunnelcfg;
 my $ssh_port_fwds = "";
+my $remote_script_dir;          # location of the other sides fed-tun.pl
 
 if ($#ARGV != 0 && !getopts('df:r', \%opts)) {
@@ -86 +87 @@
     $type = $opts{'type'};
     $type =~ tr/A-Z/a-z/;
+    $remote_script_dir = $opts{'remotescriptdir'} || ".";
 
     if (defined($opts{'fsname'})) {
@@ -153 +155 @@
         # the expected single line of output when the tunnel is connected.
 
-        open($SSHCMD[$count], "$SSH -w $count:$count $ssh_port_fwds -o \"StrictHostKeyChecking no\" $opts{'peer'}  \"./fed-tun.pl -r $addr $count\" |") or die "Failed to run ssh";
+        open($SSHCMD[$count], "$SSH -w $count:$count $ssh_port_fwds -o \"StrictHostKeyChecking no\" $opts{'peer'}  \"$remote_script_dir/fed-tun.pl -r $addr $count\" |") or die "Failed to run ssh";
 
         my $check = <$SSHCMD[$count]>;  # Make sure something ran...

fedkit/splitter.pl

@@ -453 +453 @@
         print $gwconfig "FsName: $fs{$master}$domain{$master}\n";
         print $gwconfig "Type: $type\n";
+        print $gwconfig "RemoteScriptDir: /proj/$project{$dtb}/exp/$eid/tmp\n";
         print $gwconfig "Peer: $desthost$ddomain\n";
         print $gwconfig "Pubkeys: " .