[Bio] / FigWebServices / index.cgi Repository:
ViewVC logotype

Diff of /FigWebServices/index.cgi

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

revision 1.53, Wed Nov 24 18:27:06 2004 UTC revision 1.54, Wed Dec 8 16:56:24 2004 UTC
# Line 1  Line 1 
1  ### start  ### start
2    
3  use FIG;  use FIG;
 my $fig = new FIG;  
4    
5  use POSIX;  use POSIX;
6  use HTML;  use HTML;
# Line 9  Line 8 
8  use CGI;  use CGI;
9  my $cgi = new CGI;  my $cgi = new CGI;
10    
11    my $fig;
12    eval {
13        $fig = new FIG;
14    };
15    
16    if ($@ ne "")
17    {
18        my $err = $@;
19    
20        my(@html);
21    
22        push(@html, $cgi->p("Error connecting to SEED database."));
23        if ($err =~ /Could not connect to DBI:.*could not connect to server/)
24        {
25            push(@html, $cgi->p("Could not connect to relational database of type $FIG_Config::dbms named $FIG_Config::db on port $FIG_Config::dbport."));
26        }
27        else
28        {
29            push(@html, $cgi->pre($err));
30        }
31        &HTML::show_page($cgi, \@html, 1);
32        exit;
33    }
34    
35  my($map,@orgs,$user,$map,$org,$made_by,$from_func,$to_func);  my($map,@orgs,$user,$map,$org,$made_by,$from_func,$to_func);
36    
37  if (0)  if (0)

Legend:
Removed from v.1.53  
changed lines
  Added in v.1.54

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3