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

Diff of /FigWebServices/wc.cgi

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

revision 1.2, Mon May 12 18:02:02 2014 UTC revision 1.3, Wed May 14 19:00:25 2014 UTC
# Line 1  Line 1 
 #!/usr/bin/env /vol/ross/FIGdisk/bin/run_perl  
   
 BEGIN {  
     unshift @INC, qw(  
               /homes/overbeek/Ross/MakeCS.Kbase/bin  
               /homes/overbeek/Ross/JoseERmodel/Take2  
               /vol/ross/FIGdisk/dist/releases/dev/FigKernelPackages  
               /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  
   
 );  
 }  
 use FIG;  
 my $fig = new FIG;  
   
 use Data::Dumper;  
 use Carp;  
 use FIG_Config;  
 $ENV{'BLASTMAT'} = "/vol/ross/FIGdisk/BLASTMAT";  
 $ENV{'FIG_HOME'} = "/vol/ross/FIGdisk";  
 # end of tool_hdr  
1  ########################################################################  ########################################################################
2  use CGI;  use CGI;
3    
# Line 200  Line 169 
169  {  {
170      &CloseStrains::show_clusters($cgi,$parms,$html);      &CloseStrains::show_clusters($cgi,$parms,$html);
171  }  }
172    elsif ($request eq "show_help")
173    {
174        my $type = $cgi->param('type');
175        if ($type eq "signatures")
176        {
177            my $help_sig = &CloseStrains::help_sig();
178            push(@$html,"<pre>$help_sig</pre>\n");
179        }
180    }
181  else  else
182  {  {
183      push(@$html,"<h1>Invalid request</h1>");      push(@$html,"<h1>Invalid request</h1>");
# Line 220  Line 198 
198          print "<h2>Genera Available</h2>\n";          print "<h2>Genera Available</h2>\n";
199          foreach my $g (sort @genera)          foreach my $g (sort @genera)
200          {          {
201              print "<h3><a target=_blank href=http://bioseed.mcs.anl.gov/ross/FIG/wc.cgi?request=show_options_for_otu&dataD=$g>$g</a>\n";              print "<h3><a target=_blank href=http://bioseed.mcs.anl.gov/ross/FIG/wc1.cgi?request=show_options_for_otu&dataD=$g>$g</a>\n";
202          }          }
203      }      }
204      else      else
# Line 235  Line 213 
213      if ((-s "$dataDF/virulence.functions") && ($dataDF =~ /([^\/]+)$/))      if ((-s "$dataDF/virulence.functions") && ($dataDF =~ /([^\/]+)$/))
214      {      {
215          my $dataDQ = uri_escape($1);          my $dataDQ = uri_escape($1);
216          return "<a target=_blank href=http://bioseed.mcs.anl.gov/ross/FIG/wc.cgi?request=show_virulence_functions&dataD=$dataDQ>Some Posssible Functions Associated with Virulence</a>";          return "<a target=_blank href=http://bioseed.mcs.anl.gov/ross/FIG/wc1.cgi?request=show_virulence_functions&dataD=$dataDQ>Some Posssible Functions Associated with Virulence</a>";
217      }      }
218      return '';      return '';
219  }  }

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3