[Bio] / FigWebServices / serv_feature.cgi Repository:
ViewVC logotype

Diff of /FigWebServices/serv_feature.cgi

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

revision 1.2, Mon Nov 28 17:37:45 2011 UTC revision 1.3, Tue Nov 29 21:17:15 2011 UTC
# Line 1  Line 1 
 #!/usr/bin/env /vol/ross/FIGdisk/bin/run_perl  
   
 BEGIN {  
     unshift @INC, qw(  
               /home/overbeek/Ross/ServerUI/NewUI  
               /vol/ross/FIGdisk/dist/releases/dev/common/lib  
               /vol/ross/FIGdisk/dist/releases/dev/common/lib/FigKernelPackages  
               /vol/ross/FIGdisk/dist/releases/dev/common/lib/WebApplication  
               /vol/ross/FIGdisk/dist/releases/dev/common/lib/FortyEight  
               /vol/ross/FIGdisk/dist/releases/dev/common/lib/PPO  
               /vol/ross/FIGdisk/dist/releases/dev/common/lib/RAST  
               /vol/ross/FIGdisk/dist/releases/dev/common/lib/MGRAST  
               /vol/ross/FIGdisk/dist/releases/dev/common/lib/SeedViewer  
               /vol/ross/FIGdisk/dist/releases/dev/common/lib/ModelSEED  
               /vol/ross/FIGdisk/dist/anon/common/lib  
               /vol/ross/FIGdisk/dist/anon/common/lib/FigKernelPackages  
               /vol/ross/FIGdisk/config  
   
 );  
 }  
1  use Data::Dumper;  use Data::Dumper;
2  use Carp;  use Carp;
3  use FIG_Config;  use FIG_Config;
 $ENV{'BLASTMAT'} = "/vol/ross/FIGdisk/BLASTMAT";  
 $ENV{'FIG_HOME'} = "/vol/ross/FIGdisk";  
 # end of tool_hdr  
 ########################################################################  
4  use CGI;  use CGI;
5    
6    
# Line 72  Line 48 
48    
49  my $user_name = $cgi->param("user");  my $user_name = $cgi->param("user");
50    
51  my $my_url = "serv_feature.cgi";  my $my_url = "serv_feature.cgi?";
52    
53    print STDERR "MY URL=$my_url\n";
54  my($html, $title) = ServFeature::run($fig, $cgi, $sap, $user_name, $my_url, '', undef);  my($html, $title) = ServFeature::run($fig, $cgi, $sap, $user_name, $my_url, '', undef);
55    
56  print $cgi->header;  print $cgi->header;

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3