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

Diff of /FigWebServices/seed_ctl.cgi

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

revision 1.11, Tue Mar 7 17:19:05 2006 UTC revision 1.12, Thu Feb 15 21:28:50 2007 UTC
# Line 43  Line 43 
43  unshift @html, "<TITLE>The SEED Control Panel</TITLE>\n";  unshift @html, "<TITLE>The SEED Control Panel</TITLE>\n";
44    
45  my $fig;  my $fig;
46  my $ok = eval {  eval {
47      $fig = new FIG;      $fig = new FIG;
48  };  };
49    
50    my $ok = !defined($?);
51    
52  #  #
53  # Common dirs.  # Common dirs.
54  #  #
# Line 166  Line 168 
168  }  }
169  else  else
170  {  {
171        eval {
172      my $dbh = $fig->db_handle;      my $dbh = $fig->db_handle;
173    
174      my $resp = $dbh->SQL("SELECT count(*) from genome");      my $resp = $dbh->SQL("SELECT count(*) from genome");
# Line 178  Line 181 
181          my $c = $resp->[0]->[0];          my $c = $resp->[0]->[0];
182          push(@html, "Database live: found $c genomes\n");          push(@html, "Database live: found $c genomes\n");
183      }      }
184        };
185        if ($@)
186        {
187            push(@html, "Database system is unavailable.\n");
188            $ok = 0;
189        }
190  }  }
191    
192  #  #

Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3