[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.2 - (view) (download)

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3