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

Diff of /FigWebServices/seed_running_perl.fragment

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1, Tue May 4 16:29:13 2004 UTC revision 1.2, Fri Aug 11 21:10:42 2006 UTC
# Line 1  Line 1 
1  use CGI;  use CGI;
2    
3    
4  if (-f "$FIG_Config::data/Global/why_down")  if (-f "$FIG_Config::data/Global/why_down")
5  {  {
6      local $/;      local $/;
# Line 15  Line 16 
16      print CGI::end_body();      print CGI::end_body();
17      exit;      exit;
18  }  }
19    
20    if ($FIG_Config::readonly)
21    {
22        CGI::param("user", undef);
23    }

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3