[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.1, Tue Oct 20 21:23:55 2009 UTC revision 1.2, Thu Oct 22 21:15:13 2009 UTC
# Line 2  Line 2 
2    
3  use RASTserver;  use RASTserver;
4  use strict;  use strict;
5    use Getopt::Long;
6    
7  #  #
8  # Usage: svr_status_of_RAST_job username password jobid [, jobid...]  # Usage: svr_status_of_RAST_job username password jobid [, jobid...]
9  #  #
10    
11  @ARGV > 2 or die "Usage: $0 username password jobid [ jobid jobid ... ]\n";  my $usage = "Usage: $0 [--verbose] username password jobid [ jobid jobid ... ]\n";
12    
13    my $verbose;
14    if (!GetOptions('verbose' => \$verbose))
15    {
16        die $usage;
17    }
18    
19    @ARGV > 2 or die $usage;
20    
21  my $username = shift;  my $username = shift;
22  my $password = shift;  my $password = shift;
# Line 24  Line 33 
33      my $status = $status_hash->{status};      my $status = $status_hash->{status};
34      my $err_msg = "(error message: $status_hash->{error_msg})" if $status eq 'error';      my $err_msg = "(error message: $status_hash->{error_msg})" if $status eq 'error';
35      print "status for job $job: $status $err_msg\n";      print "status for job $job: $status $err_msg\n";
36        if ($verbose)
37        {
38            for my $vs (@{$status_hash->{verbose_status}})
39            {
40                my($s, $v) = @$vs;
41                print "$s: $v\n";
42            }
43        }
44  }  }

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3