Changeset 637adfa for fedkit/splitter.pl

Timestamp:

Oct 2, 2007 3:06:41 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:

e2a71ebe

Parents:

e06b224

Message:

docs, fail soft feature

File:

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

fedkit/splitter.pl

@@ -41 +41 @@
                                 # by  $tbparams->{'deter'}->{'domain'} which is
                                 # the domain parameter of the DETER testbed.  
+my $fail_soft;                  # Do not swap failed sub-experiments out
 
 # Parse the config file.  The format is a colon-separated parameter name
@@ -405 +406 @@
                                     # keep our changes to the parser minimal.
 # Argument processing.
-getopts('t:c:f:ndvN', \%opts);
+getopts('Ft:c:f:ndvN', \%opts);
 $splitter_config = $opts{'c'} || "./splitter.conf";
 $debug = $opts{'d'};
@@ -412 +413 @@
 &parse_config("$splitter_config", \%opts) || 
     die "Cannot read config file $splitter_config: $!\n";
-
+$fail_soft = $opts{'F'} || $opts{'failsoft'};
 
 $startem = $opts{'n'} ? 0 : 1;          # If true, start the sub-experiments
@@ -748 +749 @@
 
 # If any testbed failed, swap the rest out.
-if ( scalar(keys %started) != scalar(keys %allocated)) {
+if ( !$fail_soft && scalar(keys %started) != scalar(keys %allocated)) {
     for my $tb (keys %started) { &stop_segment($tb, $eid, $tbparams); }
     print "Error starting experiment\n";
@@ -766 +767 @@
 =head1 SYNOPSIS
 
-B<splitter.pl> [B<-nd>] [B<-c> F<config_file>] [B<-f> F<experiment_tcl>]
-    [F<experiment_tcl>]
+B<splitter.pl> [B<-ndF>] [B<-t> I<secs>] [B<-c> F<config_file>]
+    [B<-f> F<experiment_tcl>] [F<experiment_tcl>]
 
 =head1 DESCRIPTION
@@ -810 +811 @@
 configuration file.
 
+If B<-t> is given the parameter is treated as a parameter to B<Timeout> in 
+F<splitter.conf>.
+
 If any sub-experiment fails to instantiate, the other sub-exeriments are
-swapped out.
+swapped out.  B<-F> avoids this swap out, which can also be specified as 
+B<SoftFail: true> in F<splitter.conf>
 
 =head2 Configuration File
@@ -876 +881 @@
 The pathname to the local oTcl shell.  Only developers should set
 this.
+
+=item Timeout
+
+Value in seconds after which a swap-in operatioin will be considered a success.
+Often long swap-ins will hang when there are partial failures.  This works
+around this issue.
+
+=item FailSoft
+
+If not set, failure of any sub experiment swaps the rest out.  Setting this to any value avoids this swap out.  (Also B<-F>.)
 
 =back