- Timestamp:
- Oct 2, 2007 3:06:41 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:
- e2a71ebe
- Parents:
- e06b224
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
fedkit/splitter.pl
re06b224 r637adfa 41 41 # by $tbparams->{'deter'}->{'domain'} which is 42 42 # the domain parameter of the DETER testbed. 43 my $fail_soft; # Do not swap failed sub-experiments out 43 44 44 45 # Parse the config file. The format is a colon-separated parameter name … … 405 406 # keep our changes to the parser minimal. 406 407 # Argument processing. 407 getopts(' t:c:f:ndvN', \%opts);408 getopts('Ft:c:f:ndvN', \%opts); 408 409 $splitter_config = $opts{'c'} || "./splitter.conf"; 409 410 $debug = $opts{'d'}; … … 412 413 &parse_config("$splitter_config", \%opts) || 413 414 die "Cannot read config file $splitter_config: $!\n"; 414 415 $fail_soft = $opts{'F'} || $opts{'failsoft'}; 415 416 416 417 $startem = $opts{'n'} ? 0 : 1; # If true, start the sub-experiments … … 748 749 749 750 # If any testbed failed, swap the rest out. 750 if ( scalar(keys %started) != scalar(keys %allocated)) {751 if ( !$fail_soft && scalar(keys %started) != scalar(keys %allocated)) { 751 752 for my $tb (keys %started) { &stop_segment($tb, $eid, $tbparams); } 752 753 print "Error starting experiment\n"; … … 766 767 =head1 SYNOPSIS 767 768 768 B<splitter.pl> [B<-nd >] [B<-c> F<config_file>] [B<-f> F<experiment_tcl>]769 [ F<experiment_tcl>]769 B<splitter.pl> [B<-ndF>] [B<-t> I<secs>] [B<-c> F<config_file>] 770 [B<-f> F<experiment_tcl>] [F<experiment_tcl>] 770 771 771 772 =head1 DESCRIPTION … … 810 811 configuration file. 811 812 813 If B<-t> is given the parameter is treated as a parameter to B<Timeout> in 814 F<splitter.conf>. 815 812 816 If any sub-experiment fails to instantiate, the other sub-exeriments are 813 swapped out. 817 swapped out. B<-F> avoids this swap out, which can also be specified as 818 B<SoftFail: true> in F<splitter.conf> 814 819 815 820 =head2 Configuration File … … 876 881 The pathname to the local oTcl shell. Only developers should set 877 882 this. 883 884 =item Timeout 885 886 Value in seconds after which a swap-in operatioin will be considered a success. 887 Often long swap-ins will hang when there are partial failures. This works 888 around this issue. 889 890 =item FailSoft 891 892 If not set, failure of any sub experiment swaps the rest out. Setting this to any value avoids this swap out. (Also B<-F>.) 878 893 879 894 =back
Note: See TracChangeset
for help on using the changeset viewer.