Changeset 8034579 for fedkit/splitter.pl

Timestamp:

Apr 10, 2008 5:00:03 PM (16 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:

33e3537

Parents:

f64fa81

Message:

event repeater starts remotely

File:

• fedkit/splitter.pl (modified) (5 diffs)

fedkit/splitter.pl

@@ -10 +10 @@
 
 my @scripts = ("fed_bootstrap", "federate.sh", "smbmount.pl", 
-    "make_hosts", "fed-tun.pl");
+    "make_hosts", "fed-tun.pl", "fed_evrepeater" );
 my $local_script_dir = ".";
 my($pid, $gid);                 # Process and group IDs for calling parse.tcl
@@ -638 +638 @@
         my $ddomain =                           # domain for the destination
             $tbparams->{$dtb}->{'domain'};
-        my $sproject =                          # Project of the destination
+        my $sproject =                          # Project of the source
             $tbparams->{$gateways}->{'project'};
+        my $dproject =                          # Project of the destination
+            $tbparams->{$dtb}->{'project'};
         my $fs =                                # Master fs node (FQDN)
             $tbparams->{$master}->{'fs'} .  $tbparams->{$master}->{'domain'};
@@ -648 +650 @@
             $tbparams->{$master}->{'domain'};
         my $remote_script_dir =                 # Remote fed script location
-            "/proj/" . $tbparams->{$dtb}->{'project'} . "/exp/$eid/tmp";
+            "/proj/" . $dproject . "/exp/$eid/tmp";
+        my $local_script_dir =                  # Local fed script location
+            "/proj/" . $sproject . "/exp/$eid/tmp";
         my $active;                             # Is this the active side of
                                                 # the connector?
@@ -656 +660 @@
 
         my $conf_file = "$myname$sdomain.gw.conf";
+        my $remote_conf_file = "$desthost$ddomain.gw.conf";
         # translate to lower case so the `hostname` hack for specifying
         # configuration files works.
         $conf_file =~ tr/A-Z/a-z/;
+        $remote_conf_file =~ tr/A-Z/a-z/;
 
         # If either end of this link is in the master side of the testbed, that
@@ -684 +690 @@
         print $gwconfig "Type: $type\n";
         print $gwconfig "RemoteScriptDir: $remote_script_dir\n";
+        print $gwconfig "EventRepeater: $local_script_dir/fed_evrepeater\n";
+        print $gwconfig "RemoteExperiment: $dproject/$eid\n";
+        print $gwconfig "LocalExperiment: $sproject/$eid\n";
+        print $gwconfig "RemoteConfigFile: " . 
+            "$remote_script_dir/$remote_conf_file\n";
         print $gwconfig "Peer: $desthost$ddomain\n";
         print $gwconfig "Pubkeys: " .