[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.16, Wed Jul 22 22:15:45 2015 UTC revision 1.17, Tue Jul 28 01:02:04 2015 UTC
# Line 1  Line 1 
1    #!/usr/bin/env /vol/ross/FIGdisk/bin/run_perl
2    
3    BEGIN {
4        unshift @INC, qw(
5                  /homes/overbeek/Ross/Nelly/bin
6                  /vol/ross/FIGdisk/dist/releases/dev/FigKernelPackages
7                  /vol/ross/FIGdisk/dist/releases/dev/common/lib
8                  /vol/ross/FIGdisk/dist/releases/dev/common/lib/FigKernelPackages
9                  /vol/ross/FIGdisk/dist/releases/dev/common/lib/WebApplication
10                  /vol/ross/FIGdisk/dist/releases/dev/common/lib/FortyEight
11                  /vol/ross/FIGdisk/dist/releases/dev/common/lib/PPO
12                  /vol/ross/FIGdisk/dist/releases/dev/common/lib/RAST
13                  /vol/ross/FIGdisk/dist/releases/dev/common/lib/MGRAST
14                  /vol/ross/FIGdisk/dist/releases/dev/common/lib/SeedViewer
15                  /vol/ross/FIGdisk/dist/releases/dev/common/lib/ModelSEED
16                  /vol/ross/FIGdisk/dist/anon/common/lib
17                  /vol/ross/FIGdisk/dist/anon/common/lib/FigKernelPackages
18                  /vol/ross/FIGdisk/config
19    
20    );
21    }
22    use Data::Dumper;
23    use Carp;
24    use FIG_Config;
25    $ENV{'BLASTMAT'} = "/vol/ross/FIGdisk/BLASTMAT";
26    $ENV{'FIG_HOME'} = "/vol/ross/FIGdisk";
27    # end of tool_hdr
28    ########################################################################
29    use CGI;
30    
31    
32    if (-f "$FIG_Config::data/Global/why_down")
33    {
34        local $/;
35        open my $fh, "<$FIG_Config::data/Global/why_down";
36        my $down_msg = <$fh>;
37    
38        print CGI::header();
39        print CGI::head(CGI::title("SEED Server down"));
40        print CGI::start_body();
41        print CGI::h1("SEED Server down");
42        print CGI::p("The seed server is not currently running:");
43        print CGI::pre($down_msg);
44        print CGI::end_body();
45        exit;
46    }
47    
48    if ($FIG_Config::readonly)
49    {
50        CGI::param("user", undef);
51    }
52    
53  # -*- perl -*-  # -*- perl -*-
54  #  #
55  # Copyright (c) 2003-2006 University of Chicago and Fellowship  # Copyright (c) 2003-2006 University of Chicago and Fellowship
# Line 80  Line 132 
132    
133  $parms->{genome_types} = &CloseStrains::genome_types($dataDF);  $parms->{genome_types} = &CloseStrains::genome_types($dataDF);
134  $parms->{dataDF}       = $dataDF;  $parms->{dataDF}       = $dataDF;
135    $parms->{base}         = $base;
136    
137  if ($request eq "show_otus")  if ($request eq "show_otus")
138  {  {
# Line 115  Line 168 
168  }  }
169  elsif ($request eq "compute_signatures_reactions")  elsif ($request eq "compute_signatures_reactions")
170  {  {
171      &CloseStrains::compute_signatures_reactions($cgi,$parms,$html);      &CloseStrains::compute_signatures_reactions($cgi,$parms,$html,$base);
172  }  }
173  elsif (($request eq "show_func") && $function)  elsif (($request eq "show_func") && $function)
174  {  {

Legend:
Removed from v.1.16  
changed lines
  Added in v.1.17

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3