[Bio] / FigWebServices / seed_running_perl.fragment Repository:
ViewVC logotype

Annotation of /FigWebServices/seed_running_perl.fragment

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (view) (download)

1 : olson 1.1 use CGI;
2 :    
3 :     if (-f "$FIG_Config::data/Global/why_down")
4 :     {
5 :     local $/;
6 :     open my $fh, "<$FIG_Config::data/Global/why_down";
7 :     my $down_msg = <$fh>;
8 :    
9 :     print CGI::header();
10 :     print CGI::head(CGI::title("SEED Server down"));
11 :     print CGI::start_body();
12 :     print CGI::h1("SEED Server down");
13 :     print CGI::p("The seed server is not currently running:");
14 :     print CGI::pre($down_msg);
15 :     print CGI::end_body();
16 :     exit;
17 :     }

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3