Changeset e5fee75 for fedkit/splitter.pl

Timestamp:

Oct 29, 2007 4:51:17 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:

22bb7f8

Parents:

fd7a59b

Message:

multiplexed gateway support

File:

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

fedkit/splitter.pl

@@ -29 +29 @@
                                 # (changed during devel)
 my $tclsh;                      # tclsh to call directly (changed during devel)
+my $muxmax;                     # Maximum number of links/lans over 1 gw pair
 my @tarfiles;                   # Tarfiles in use by this experiment
 my @rpms;                       # Rpms in use by this experiment
@@ -441 +442 @@
 $tb_config = $opts{'testbeds'} || "./testbeds"; # testbed configurations
 $local_script_dir = $opts{'scriptdir'}; # Local scripts
+$muxmax  = $opts{'muxlimit'} || 3;      # Number of connections muxed on one
+                                        # gateway
 
 $max_children = $opts{'p'} || $opts{'maxchildren'} 
@@ -484 +487 @@
 my $pipe = new IO::Pipe;
 # NB no more -p call on parse call.
-$pipe->reader("$tclsh $tcl_splitter -s -m $master  $pid $gid $eid $tcl") || 
-    die "Cannot execute $tclsh $tcl_splitter -s -m $master $pid $gid $eid $tcl:$!\n";
+$pipe->reader("$tclsh $tcl_splitter -s -x $muxmax -m $master  $pid $gid $eid $tcl") || 
+    die "Cannot execute $tclsh $tcl_splitter -s -x $muxmax -m $master $pid $gid $eid $tcl:$!\n";
 
 # Parsing variables
@@ -933 +936 @@
 containing this experiment on the master testbed.
 
-=item Tclparse
-
-The pathname to the experiment parsing program.  Only developers should set
-this.
-
-=item Tclsh
-
-The pathname to the local oTcl shell.  Only developers should set
-this.
-
 =item Timeout
 
@@ -955 +948 @@
 any value avoids this swap out.  (This behavior can be requested on the command
 line by specifying B<-F>.)
+
+=item MuxLimit
+
+The maximum bumber of links/lans carried by one gateway pair
+
+=item Tclparse
+
+The pathname to the experiment parsing program.  Only developers should set
+this.
+
+=item Tclsh
+
+The pathname to the local oTcl shell.  Only developers should set
+this.
 
 =back