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

Annotation of /FigKernelScripts/svr_status_of_RAST_job.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.4 - (view) (download) (as text)

1 : olson 1.3 #!/usr/bin/perl
2 :    
3 :     #
4 :     # This is a SAS Component.
5 :     #
6 : olson 1.1
7 :    
8 :     use RASTserver;
9 :     use strict;
10 : olson 1.2 use Getopt::Long;
11 : olson 1.1
12 :     #
13 :     # Usage: svr_status_of_RAST_job username password jobid [, jobid...]
14 :     #
15 :    
16 : olson 1.4 my $usage = "Usage: $0 [--url server-url] [--test] [--verbose] username password jobid [ jobid jobid ... ]\n";
17 : olson 1.2
18 :     my $verbose;
19 : olson 1.4 my $is_test;
20 :     my $url;
21 :     if (!GetOptions('verbose' => \$verbose,
22 :     'test' => \$is_test,
23 :     'url=s' => \$url))
24 : olson 1.2 {
25 :     die $usage;
26 :     }
27 :    
28 :     @ARGV > 2 or die $usage;
29 : olson 1.1
30 :     my $username = shift;
31 :     my $password = shift;
32 :    
33 :     my @jobs = @ARGV;
34 :    
35 : olson 1.4 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 : olson 1.1
47 :     my $res = $rast->status_of_RAST_job( { -job => \@jobs } );
48 :    
49 :     for my $job (@jobs)
50 :     {
51 :     my $status_hash = $res->{$job};
52 :     my $status = $status_hash->{status};
53 :     my $err_msg = "(error message: $status_hash->{error_msg})" if $status eq 'error';
54 :     print "status for job $job: $status $err_msg\n";
55 : olson 1.2 if ($verbose)
56 :     {
57 :     for my $vs (@{$status_hash->{verbose_status}})
58 :     {
59 :     my($s, $v) = @$vs;
60 :     print "$s: $v\n";
61 :     }
62 :     }
63 : olson 1.1 }

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3