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

Diff of /FigKernelScripts/svr_pegs_in_subsystems.pl

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

revision 1.5, Wed Feb 17 15:03:27 2010 UTC revision 1.6, Thu Jul 29 14:48:54 2010 UTC
# Line 1  Line 1 
1  #!/usr/bin/perl -w  #!/usr/bin/perl -w
2    
3  use SSserver;  use SAPserver;
4  use Getopt::Long;  use Getopt::Long;
5    
6  # This is a SAS Component  # This is a SAS Component
# Line 37  Line 37 
37  If specified, then the second column in each output line (functional role) will be  If specified, then the second column in each output line (functional role) will be
38  omitted from the output.  omitted from the output.
39    
40    =item url
41    
42    The URL for the Sapling server, if it is to be different from the default.
43    
44  =back  =back
45    
46  =cut  =cut
# Line 45  Line 49 
49  my $group = 0;  my $group = 0;
50  my $show_owner = 0;  my $show_owner = 0;
51  my $oldid = "";  my $oldid = "";
52    my $url = "";
53    
54  $0 =~ m/([^\/]+)$/;  $0 =~ m/([^\/]+)$/;
55  my $self = $1;  my $self = $1;
56  my $usage = "$self [--noroles --group] GenomeF < SubsystemIDs";  my $usage = "$self [--noroles --group --url=http://...] GenomeF < SubsystemIDs";
57    
58  my $rc = GetOptions("noroles" => \$noroles, "group" => \$group);  my $rc = GetOptions("noroles" => \$noroles, "group" => \$group, "url=s" => \$url);
59    
60  if (!$rc) {  if (!$rc) {
61      die "\n   usage: $usage\n\n";      die "\n   usage: $usage\n\n";
62  }  }
63    
64  my $roles = $noroles ? 0 : 1;  my $roles = $noroles ? 0 : 1;
65  my $ss = SSserver->new();  my $ss = SAPserver->new(url => $url);
66    
67  open GENOMES, "<" . $ARGV[$#ARGV] || die "Genome file error: $!";  open GENOMES, "<" . $ARGV[$#ARGV] || die "Genome file error: $!";
68    

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3