[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.3, Tue Dec 8 02:11:31 2009 UTC revision 1.4, Thu Dec 10 19:31:12 2009 UTC
# Line 7  Line 7 
7  use RASTserver;  use RASTserver;
8  use strict;  use strict;
9  use Data::Dumper;  use Data::Dumper;
10    use Getopt::Long;
11    
12    my $usage = "Usage: $0 [--verbose] [--test] username password < contig-id-list\n";
13    
14    my $verbose;
15  my $use_test_server = 0;  my $use_test_server = 0;
16  if (@ARGV && ($ARGV[0] =~ m/-test/o)) {  if (!GetOptions('verbose' => \$verbose,
17      shift @ARGV;                  'test' => \$use_test_server))
18      $use_test_server = 1;  {
19        die $usage;
20  }  }
21    
22  @ARGV == 2 or die "Usage: $0 [-test] username password < contig-id-list\n";  @ARGV == 2 or die $usage;
23    
24  my $username = shift;  my $username = shift;
25  my $password = shift;  my $password = shift;

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3