in reply to Re: mod_perl 2 DBI problem
in thread mod_perl 2 DBI problem
package Suae; # bunch of functions..... #Function that establishes the connection #my $CONEXION = "dbi:Sybase:server=$host"; my $CONEXION = "dbi:Pg:dbname=mydb;host=myhost.com"; # print "<br><b>Suae::DEBUGE conectando: dbi:Pg:dbname=avc;host= +myhost.com</b><br>"; # print STDERR "Suae::DEBUGE conectando: dbi:Pg:dbname=avc;host= +myhost.com\n"; my $suaedbh = DBI->connect($CONEXION,"user","pass"); if(!defined($suaedbh)){ $r->log_error("Error connecting to the database ($DBI::errstr)\ +n"); return(undef); }
|
|---|