[Bio] / FigKernelScripts / svr_kill_RAST_job.pl Repository:
ViewVC logotype

Diff of /FigKernelScripts/svr_kill_RAST_job.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2, Mon Oct 26 18:19:57 2009 UTC revision 1.3, Thu Oct 29 16:20:08 2009 UTC
# Line 15  Line 15 
15  my $usage = "Usage: $0 [--verbose] username password jobid [ jobid jobid ... ]\n";  my $usage = "Usage: $0 [--verbose] username password jobid [ jobid jobid ... ]\n";
16    
17  my $verbose;  my $verbose;
18  if (!GetOptions('verbose' => \$verbose))  my $use_test_server = 0;
19    if (!GetOptions('verbose' => \$verbose,
20                    'test' => \$use_test_server))
21  {  {
22      die $usage;      die $usage;
23  }  }
# Line 27  Line 29 
29    
30  my @jobs = @ARGV;  my @jobs = @ARGV;
31    
32  my $rast = new RASTserver($username, $password);  my $rast = new RASTserver($username, $password, { -test => $use_test_server } );
33    
34  my $res = $rast->kill_RAST_job( { -job => \@jobs } );  my $res = $rast->kill_RAST_job( { -job => \@jobs } );
35    

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3