- Timestamp:
- Apr 11, 2008 2:12:04 PM (17 years ago)
- Branches:
- axis_example, compt_changes, info-ops, master, version-1.30, version-2.00, version-3.01, version-3.02
- Children:
- 2396559e
- Parents:
- 8034579
- Location:
- fedkit
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
fedkit/fed-tun.pl
r8034579 r33e3537 35 35 my $PUBSUB_PORT = 16505; 36 36 37 38 my $remote_pubsub_port = $PUBSUB_PORT - 1; # There will be a local 39 # pubsubd running, so we 40 # dodge the port on the 41 # remote tunnel node. 37 42 sub setup_bridging; 38 43 sub setup_tunnel_cfg; … … 108 113 109 114 if (defined($opts{'bossname'})) { 110 my $remote_pubsub_port = $PUBSUB_PORT - 1; # There will be a local111 # pubsubd running, so we112 # dodge the port on the113 # remote tunnel node.114 115 $ssh_port_fwds .= "-R :$TMCD_PORT:$opts{'bossname'}:$TMCD_PORT "; 116 } 117 118 if (defined($opts{'eventservername'})) { 115 119 $ssh_port_fwds .= "-R :$remote_pubsub_port:$opts{'eventservername'}:" . 116 120 "$PUBSUB_PORT "; 121 } 122 if (defined($opts{'remoteeventservername'})) { 123 $ssh_port_fwds .= "-L :$remote_pubsub_port:" . 124 "$opts{'remoteeventservername'}:$PUBSUB_PORT "; 117 125 } 118 126 … … 195 203 } 196 204 close(IFFILE); 205 206 # Start a local event repeater (unless we're missing parameters 207 die "Missing event repeater params (No config file ?)\n" 208 unless $event_repeater && $opts{'remoteexperiment'} && 209 $opts{'localexperiment'}; 210 211 print "Starting event repeater\n" if $debug; 212 213 print("$event_repeater -M -P $remote_pubsub_port -S localhost " . 214 "-E $opts{'remoteexperiment'} -e $opts{'localexperiment'}\n") 215 if $debug; 216 # Connect to the forwarded pubsub port on this host to listen to the 217 # other experiment's events, and to the local experiment to forward 218 # events. 219 system("$event_repeater -M -P $remote_pubsub_port -S localhost " . 220 "-E $opts{'remoteexperiment'} -e $opts{'localexperiment'}"); 221 warn "Event repeater returned $?\n" if $?; 197 222 } elsif ($remote) { 198 223 # We're on the remote system; figure out which interface to -
fedkit/splitter.pl
r8034579 r33e3537 649 649 $tbparams->{$master}->{'eventserver'} . 650 650 $tbparams->{$master}->{'domain'}; 651 my $remote_event_server = # Slave event-server (FQDN) 652 $tbparams->{$dtb}->{'eventserver'} . 653 $tbparams->{$dtb}->{'domain'}; 651 654 my $remote_script_dir = # Remote fed script location 652 655 "/proj/" . $dproject . "/exp/$eid/tmp"; … … 688 691 print $gwconfig "FsName: $fs\n"; 689 692 print $gwconfig "EventServerName: $event_server\n"; 693 print $gwconfig "RemoteEventServerName: $remote_event_server\n"; 690 694 print $gwconfig "Type: $type\n"; 691 695 print $gwconfig "RemoteScriptDir: $remote_script_dir\n";
Note: See TracChangeset
for help on using the changeset viewer.