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

Diff of /FigWebServices/co_occurs_server.cgi

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

revision 1.4, Mon May 11 20:36:16 2009 UTC revision 1.5, Mon May 18 17:00:50 2009 UTC
# Line 1  Line 1 
1  use strict;  use strict;
2  use Data::Dumper;  use Data::Dumper;
3  use CGI::Fast;  my $have_fcgi;
4    eval {
5        require CGI::Fast;
6        $have_fcgi = 1;
7    };
8  use CGI;  use CGI;
9  use ERDB;  use ERDB;
10  use FC;  use FC;
# Line 17  Line 21 
21  #  #
22  # If no CGI vars, assume we are invoked as a fastcgi service.  # If no CGI vars, assume we are invoked as a fastcgi service.
23  #  #
24  if ($ENV{REQUEST_METHOD} eq '')  if ($have_fcgi && $ENV{REQUEST_METHOD} eq '')
25    {
26        #
27        # Make mysql autoreconnect.
28        #
29        if ($FIG_Config::dbms eq 'mysql')
30  {  {
31            my $dbh = $fig->db_handle()->{_dbh};
32            $dbh->{mysql_auto_reconnect} = 1;
33        }
34      while (my $cgi = new CGI::Fast())      while (my $cgi = new CGI::Fast())
35      {      {
36          eval {          eval {

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3