Re: [cgiapp] Lazy DBI

["Mark Knoop" <suppressed>]

In case it is of interest I have solved the problem like this.

package GSystem::Common::DBH;

use strict;
use warnings;
use Log::Log4perl qw(get_logger);
use DBI;

our $dbh = undef;

sub dbh {

my $log = get_logger('GSystem::Common::DBH');

my $dbusr = "user";
my $dbpwd = "pwd";
my $dsn = "GSystem";

$dbh = DBI->connect("DBI:ODBC:$dsn", $dbusr, $dbpwd, {RaiseError => 0, 
PrintError => 0})  || $log->logdie ("Could not connect to database")
 unless defined $dbh;

   return $dbh;
}

1;

So when I want a dbh I use

my $dbh = GSystem::Common::DBH::dbh;

and I (think) I either get a new or existing dbh.

I would be interested to know of any flaws in my logic...

Mark



#####  CGI::Application community mailing list  ################
##                                                            ##
##  To unsubscribe, or change your message delivery options,  ##
##  visit:  http://www.erlbaum.net/mailman/listinfo/cgiapp    ##
##                                                            ##
##  Web archive:   http://www.erlbaum.net/pipermail/cgiapp/   ##
##  Wiki:          http://cgiapp.erlbaum.net/                 ##
##                                                            ##
################################################################