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

Diff of /FigKernelScripts/close_connections.pl

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

revision 1.1, Sun Aug 26 14:58:12 2007 UTC revision 1.2, Mon Aug 27 18:27:33 2007 UTC
# Line 1  Line 1 
 #!/usr/bin/env /Volumes/seagate/FIGdisk/env/mac/bin/perl  
   
 BEGIN {  
     @INC = qw(  
               /Volumes/seagate/FIGdisk/dist/releases/ross/mac/lib  
               /Volumes/seagate/FIGdisk/dist/releases/ross/mac/lib/FigKernelPackages  
               /Volumes/seagate/FIGdisk/dist/releases/ross/mac/lib/WebApplication  
               /Volumes/seagate/FIGdisk/dist/releases/ross/mac/lib/FortyEight  
               /Volumes/seagate/FIGdisk/dist/releases/ross/mac/lib/PPO  
               /Volumes/seagate/FIGdisk/dist/ross/mac/lib  
               /Volumes/seagate/FIGdisk/dist/ross/mac/lib/FigKernelPackages  
               /Volumes/seagate/FIGdisk/env/mac/lib/perl5/5.8.7/darwin-2level  
               /Volumes/seagate/FIGdisk/env/mac/lib/perl5/5.8.7  
               /Volumes/seagate/FIGdisk/env/mac/lib/perl5/site_perl/5.8.7/darwin-2level  
               /Volumes/seagate/FIGdisk/env/mac/lib/perl5/site_perl/5.8.7  
               /Volumes/seagate/FIGdisk/env/mac/lib/perl5/site_perl  
               .  
               /Volumes/seagate/FIGdisk/config  
   
 );  
 }  
 use Data::Dumper;  
 use Carp;  
 use FIG_Config;  
 $ENV{'BLASTMAT'} = "/Volumes/seagate/FIGdisk/BLASTMAT";  
 $ENV{'FIG_HOME'} = "/Volumes/seagate/FIGdisk";  
 # end of tool_hdr  
 ########################################################################  
1    
2  use FIG;  use FIG;
3  my $fig = new FIG;  my $fig = new FIG;
# Line 56  Line 28 
28      }      }
29  }  }
30    
31  my @genomes = sort { a <=> $b } keys(%genomes);  my @genomes = sort { $a <=> $b } keys(%genomes);
32  if (@genomes != 2)  if (@genomes != 2)
33  {  {
34      print &Dumper(\%genomes);      print &Dumper(\%genomes);

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3