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

Diff of /FigKernelScripts/svr_status_of_RAST_job.pl

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

revision 1.3, Mon Oct 26 18:19:57 2009 UTC revision 1.4, Tue Jan 19 00:06:16 2010 UTC
# Line 13  Line 13 
13  # Usage: svr_status_of_RAST_job username password jobid [, jobid...]  # Usage: svr_status_of_RAST_job username password jobid [, jobid...]
14  #  #
15    
16  my $usage = "Usage: $0 [--verbose] username password jobid [ jobid jobid ... ]\n";  my $usage = "Usage: $0 [--url server-url] [--test] [--verbose] username password jobid [ jobid jobid ... ]\n";
17    
18  my $verbose;  my $verbose;
19  if (!GetOptions('verbose' => \$verbose))  my $is_test;
20    my $url;
21    if (!GetOptions('verbose' => \$verbose,
22                    'test' => \$is_test,
23                    'url=s' => \$url))
24  {  {
25      die $usage;      die $usage;
26  }  }
# Line 28  Line 32 
32    
33  my @jobs = @ARGV;  my @jobs = @ARGV;
34    
35  my $rast = new RASTserver($username, $password);  my $opts = {};
36    if ($url)
37    {
38        $opts->{-server} = $url;
39    }
40    if ($is_test)
41    {
42        $opts->{-test} = 1;
43    }
44    
45    my $rast = new RASTserver($username, $password, $opts);
46    
47  my $res = $rast->status_of_RAST_job( { -job => \@jobs } );  my $res = $rast->status_of_RAST_job( { -job => \@jobs } );
48    

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3