[Bio] / FigKernelPackages / RAST_submission.pm Repository:
ViewVC logotype

Annotation of /FigKernelPackages/RAST_submission.pm

Parent Directory Parent Directory | Revision Log Revision Log


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

1 : olson 1.1
2 :     package RAST_submission;
3 :    
4 :     use strict;
5 :     use Job48;
6 :     use JobUpload;
7 :     use Data::Dumper;
8 :    
9 :     use base 'Class::Accessor';
10 :    
11 :     __PACKAGE__->mk_accessors(qw(rast_dbmaster user_dbmaster user_obj));
12 :    
13 :     sub new
14 :     {
15 :     my($class, $rast_dbmaster, $user_dbmaster, $user_obj) = @_;
16 :    
17 :     my $self = {
18 :     rast_dbmaster => $rast_dbmaster,
19 :     user_dbmaster => $user_dbmaster,
20 :     user_obj => $user_obj,
21 :     };
22 :    
23 :    
24 :     return bless $self, $class;
25 :     }
26 :    
27 :     sub submit_RAST_job
28 :     {
29 :     my($self, $params) = @_;
30 :    
31 :     return [ "params were", $params, $self->user_obj->firstname, $self->user_obj->lastname];
32 :     }
33 :    
34 :     sub status_of_RAST_job
35 :     {
36 :     my($self, $params) = @_;
37 :    
38 :     my $job_num = $params->{-job};
39 :     if ($job_num !~ /^\d+/)
40 :     {
41 :     die "Invalid job identifier\n";
42 :     }
43 :    
44 :     my @status = Job48->get_status_of_job($job_num, $self->user_obj);
45 :     print STDERR "Getting status of $job_num: @status\n";
46 :    
47 :     return \@status;
48 :     }
49 :    
50 :    
51 :     1;

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3