Changeset c8c45ee for fedkit


Ignore:
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:
2 edited

Legend:

Unmodified
Added
Removed
  • fedkit/fed-tun.pl

    ra835df7 rc8c45ee  
    5151my $tunnelcfg;
    5252my $ssh_port_fwds = "";
     53my $remote_script_dir;          # location of the other sides fed-tun.pl
    5354
    5455if ($#ARGV != 0 && !getopts('df:r', \%opts)) {
     
    8687    $type = $opts{'type'};
    8788    $type =~ tr/A-Z/a-z/;
     89    $remote_script_dir = $opts{'remotescriptdir'} || ".";
    8890
    8991    if (defined($opts{'fsname'})) {
     
    153155        # the expected single line of output when the tunnel is connected.
    154156
    155         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";
     157        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";
    156158
    157159        my $check = <$SSHCMD[$count]>;  # Make sure something ran...
  • fedkit/splitter.pl

    ra835df7 rc8c45ee  
    453453        print $gwconfig "FsName: $fs{$master}$domain{$master}\n";
    454454        print $gwconfig "Type: $type\n";
     455        print $gwconfig "RemoteScriptDir: /proj/$project{$dtb}/exp/$eid/tmp\n";
    455456        print $gwconfig "Peer: $desthost$ddomain\n";
    456457        print $gwconfig "Pubkeys: " .
Note: See TracChangeset for help on using the changeset viewer.