Changeset e5fee75fd84b388603a8daf58ffd7eff8539c7aa for fedkit

Timestamp:

10/29/07 16:51:17 (5 years ago)

Author:

Ted Faber <faber@…>

Children:

22bb7f84b63ffb80263525b3b82d020a6c34f574

Parents:

fd7a59b1f60b5ee0919cd3fdb74b62388b7c3155

git-committer:

Ted Faber <faber@isi.edu> / 2007-10-29T23:51:17Z+0000

Message:

multiplexed gateway support

Files:

• 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