[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.4, Wed May 14 19:14:33 2014 UTC revision 1.5, Thu May 15 14:28:25 2014 UTC
# Line 1  Line 1 
1  ########################################################################  ########################################################################
 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);  
 }  
 ########################################################################  
 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);  
 }  
 ########################################################################  
2  # -*- perl -*-  # -*- perl -*-
3  #  #
4  # Copyright (c) 2003-2006 University of Chicago and Fellowship  # Copyright (c) 2003-2006 University of Chicago and Fellowship

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3