|
#!/usr/bin/env /vol/ross/FIGdisk/bin/run_perl |
|
|
|
|
|
BEGIN { |
|
|
unshift @INC, qw( |
|
|
/homes/overbeek/Ross/Nelly/bin |
|
|
/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 Data::Dumper; |
|
|
use Carp; |
|
|
use FIG_Config; |
|
|
$ENV{'BLASTMAT'} = "/vol/ross/FIGdisk/BLASTMAT"; |
|
|
$ENV{'FIG_HOME'} = "/vol/ross/FIGdisk"; |
|
|
# end of tool_hdr |
|
|
######################################################################## |
|
|
use CGI; |
|
|
|
|
|
|
|
|
if (-f "$FIG_Config::data/Global/why_down") |
|
|
{ |
|
|
local $/; |
|
|
open my $fh, "<$FIG_Config::data/Global/why_down"; |
|
|
my $down_msg = <$fh>; |
|
|
|
|
|
print CGI::header(); |
|
|
print CGI::head(CGI::title("SEED Server down")); |
|
|
print CGI::start_body(); |
|
|
print CGI::h1("SEED Server down"); |
|
|
print CGI::p("The seed server is not currently running:"); |
|
|
print CGI::pre($down_msg); |
|
|
print CGI::end_body(); |
|
|
exit; |
|
|
} |
|
|
|
|
|
if ($FIG_Config::readonly) |
|
|
{ |
|
|
CGI::param("user", undef); |
|
|
} |
|
|
|
|
| 1 |
# -*- perl -*- |
# -*- perl -*- |
| 2 |
# |
# |
| 3 |
# Copyright (c) 2003-2006 University of Chicago and Fellowship |
# Copyright (c) 2003-2006 University of Chicago and Fellowship |
Parent Directory
| 
Revision Log
| 
Patch