Changeset e5fee75 for fedkit


Ignore:
Timestamp:
Oct 29, 2007 4:51:17 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:
22bb7f8
Parents:
fd7a59b
Message:

multiplexed gateway support

File:
1 edited

Legend:

Unmodified
Added
Removed
  • fedkit/splitter.pl

    rfd7a59b re5fee75  
    2929                                # (changed during devel)
    3030my $tclsh;                      # tclsh to call directly (changed during devel)
     31my $muxmax;                     # Maximum number of links/lans over 1 gw pair
    3132my @tarfiles;                   # Tarfiles in use by this experiment
    3233my @rpms;                       # Rpms in use by this experiment
     
    441442$tb_config = $opts{'testbeds'} || "./testbeds"; # testbed configurations
    442443$local_script_dir = $opts{'scriptdir'}; # Local scripts
     444$muxmax  = $opts{'muxlimit'} || 3;      # Number of connections muxed on one
     445                                        # gateway
    443446
    444447$max_children = $opts{'p'} || $opts{'maxchildren'}
     
    484487my $pipe = new IO::Pipe;
    485488# NB no more -p call on parse call.
    486 $pipe->reader("$tclsh $tcl_splitter -s -m $master  $pid $gid $eid $tcl") ||
    487     die "Cannot execute $tclsh $tcl_splitter -s -m $master $pid $gid $eid $tcl:$!\n";
     489$pipe->reader("$tclsh $tcl_splitter -s -x $muxmax -m $master  $pid $gid $eid $tcl") ||
     490    die "Cannot execute $tclsh $tcl_splitter -s -x $muxmax -m $master $pid $gid $eid $tcl:$!\n";
    488491
    489492# Parsing variables
     
    933936containing this experiment on the master testbed.
    934937
    935 =item Tclparse
    936 
    937 The pathname to the experiment parsing program.  Only developers should set
    938 this.
    939 
    940 =item Tclsh
    941 
    942 The pathname to the local oTcl shell.  Only developers should set
    943 this.
    944 
    945938=item Timeout
    946939
     
    955948any value avoids this swap out.  (This behavior can be requested on the command
    956949line by specifying B<-F>.)
     950
     951=item MuxLimit
     952
     953The maximum bumber of links/lans carried by one gateway pair
     954
     955=item Tclparse
     956
     957The pathname to the experiment parsing program.  Only developers should set
     958this.
     959
     960=item Tclsh
     961
     962The pathname to the local oTcl shell.  Only developers should set
     963this.
    957964
    958965=back
Note: See TracChangeset for help on using the changeset viewer.