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

Diff of /FigKernelScripts/score_dfcs.pl

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

revision 1.2, Mon Dec 5 18:56:38 2005 UTC revision 1.3, Fri Jul 21 21:24:36 2006 UTC
# Line 1  Line 1 
1  #!/usr/bin/env /Volumes/raid/FIGdisk.v4/env/mac/bin/perl  #__perl__
 #  
 # Copyright (c) 2003-2006 University of Chicago and Fellowship  
 # for Interpretations of Genomes. All Rights Reserved.  
 #  
 # This file is part of the SEED Toolkit.  
 #  
 # The SEED Toolkit is free software. You can redistribute  
 # it and/or modify it under the terms of the SEED Toolkit  
 # Public License.  
 #  
 # You should have received a copy of the SEED Toolkit Public License  
 # along with this program; if not write to the University of Chicago  
 # at info@ci.uchicago.edu or the Fellowship for Interpretation of  
 # Genomes at veronika@thefig.info or download a copy from  
 # http://www.theseed.org/LICENSE.TXT.  
 #  
   
   
 BEGIN {  
     @INC = qw(  
               /Volumes/raid/FIGdisk.v4/dist/releases/dev/mac/lib  
               /Volumes/raid/FIGdisk.v4/dist/releases/dev/mac/lib/FigKernelPackages  
               /Volumes/raid/FIGdisk.v4/dist/dev/mac/lib  
               /Volumes/raid/FIGdisk.v4/dist/dev/mac/lib/FigKernelPackages  
               /Volumes/raid/FIGdisk.v4/env/mac/lib/perl5/5.8.7/darwin-2level  
               /Volumes/raid/FIGdisk.v4/env/mac/lib/perl5/5.8.7  
               /Volumes/raid/FIGdisk.v4/env/mac/lib/perl5/site_perl/5.8.7/darwin-2level  
               /Volumes/raid/FIGdisk.v4/env/mac/lib/perl5/site_perl/5.8.7  
               /Volumes/raid/FIGdisk.v4/env/mac/lib/perl5/site_perl  
               .  
               /Volumes/raid/FIGdisk.v4/config  
   
 );  
 }  
 use Data::Dumper;  
 use Carp;  
 use FIG_Config;  
 $ENV{'BLASTMAT'} = "/Volumes/raid/FIGdisk.v4/BLASTMAT";  
 $ENV{'FIG_HOME'} = "/Volumes/raid/FIGdisk.v4";  
 # end of tool_hdr  
 ########################################################################  
2    
3  use FIG;  use FIG;
4  my $fig = new FIG;  my $fig = new FIG;

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3