[ViewVC] Annotation of: cvsroot/COMP/BOSS/Examples/startJDL

#!/usr/bin/perl
$| = 1;
$i = 0;
$f = 1;
$len=@ARGV;
if($len > 0) {
    $f = $ARGV[0];
}
if ( $len > 1) {
    $sched = "-scheduler $ARGV[1]";
}
print $1;
while ( $i < $f ) {
  system "boss s -jobtype test -classad test.jdl $sched &";
  $i++; 
}
Revision:	1.1
Committed:	Tue Jan 10 13:06:55 2006 UTC (19 years, 3 months ago) by elmer
Branch point for:	one, MAIN
Log Message:	Initial revision
#	User	Rev	Content
1	elmer	1.1	#!/usr/bin/perl
2			$\| = 1;
3			$i = 0;
4			$f = 1;
5			$len=@ARGV;
6			if($len > 0) {
7			$f = $ARGV[0];
8			}
9			if ( $len > 1) {
10			$sched = "-scheduler $ARGV[1]";
11			}
12			print $1;
13			while ( $i < $f ) {
14			system "boss s -jobtype test -classad test.jdl $sched &";
15			$i++;
16			}