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

Diff of /FigKernelScripts/svr_run_RAST_jobs.pl

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

revision 1.2, Wed Oct 28 16:50:24 2009 UTC revision 1.3, Tue Dec 8 02:11:31 2009 UTC
# Line 8  Line 8 
8  use strict;  use strict;
9  use Data::Dumper;  use Data::Dumper;
10    
11  @ARGV == 2 or die "Usage: $0 username password < contig-id-list\n";  my $use_test_server = 0;
12    if (@ARGV && ($ARGV[0] =~ m/-test/o)) {
13        shift @ARGV;
14        $use_test_server = 1;
15    }
16    
17    @ARGV == 2 or die "Usage: $0 [-test] username password < contig-id-list\n";
18    
19  my $username = shift;  my $username = shift;
20  my $password = shift;  my $password = shift;
21    
22  my $rast = new RASTserver($username, $password);  my $rast = RASTserver->new($username, $password, { -test => $use_test_server});
23    
24  my @input_ids = <STDIN>;  my @input_ids = <STDIN>;
25  chomp @input_ids;  chomp @input_ids;

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3