Hi all.
Could anybody tell me how to setup and handle persistent connections
using DBI::mysql?
I am not allowed to use Apache::DBI.
I tried:
sub Application_OnStart{
$dbh = DBI->connect(
"DBI:mysql:database=mydatabase","me","mypassword",
{
PrintError => 1, # warn( ) on errors
RaiseError => 0, # don't die on error
AutoCommit => 1, # commit executes immediately
}
)|| sub{$DBI::errstr;undef $dbh};
}
#and then
sub Application_OnEnd{
sub{if($dbh){$dbh->disconnect} };
}
#A chek
sub check_connection_and_connect_if_needed{
if (!$dbh){
$dbh = DBI->connect(
"DBI:mysql:database=f8","f8","qazwsx",
{
PrintError => 1, # warn( ) on errors
RaiseError => 0, # don't die on error
AutoCommit => 1, # commit executes immediately
}
)|| sub{$DBI::errstr;undef $dbh};
}
}
sub Script_OnStart{
check_connection_and_connect_if_needed();
#.....
}
Where to put
$Server->RegisterCleanup(sub{if($dbh){$dbh->disconnect} });
if the server is restarted or killed
Is there a standart way
or som tweaking?
Thank in advance.
---------------------------------------------------------------------
To unsubscribe, e-mail: asp-unsubscribe@perl.apache.org
For additional commands, e-mail: asp-help@perl.apache.org
Could anybody tell me how to setup and handle persistent connections
using DBI::mysql?
I am not allowed to use Apache::DBI.
I tried:
sub Application_OnStart{
$dbh = DBI->connect(
"DBI:mysql:database=mydatabase","me","mypassword",
{
PrintError => 1, # warn( ) on errors
RaiseError => 0, # don't die on error
AutoCommit => 1, # commit executes immediately
}
)|| sub{$DBI::errstr;undef $dbh};
}
#and then
sub Application_OnEnd{
sub{if($dbh){$dbh->disconnect} };
}
#A chek
sub check_connection_and_connect_if_needed{
if (!$dbh){
$dbh = DBI->connect(
"DBI:mysql:database=f8","f8","qazwsx",
{
PrintError => 1, # warn( ) on errors
RaiseError => 0, # don't die on error
AutoCommit => 1, # commit executes immediately
}
)|| sub{$DBI::errstr;undef $dbh};
}
}
sub Script_OnStart{
check_connection_and_connect_if_needed();
#.....
}
Where to put
$Server->RegisterCleanup(sub{if($dbh){$dbh->disconnect} });
if the server is restarted or killed
Is there a standart way
or som tweaking?
Thank in advance.
---------------------------------------------------------------------
To unsubscribe, e-mail: asp-unsubscribe@perl.apache.org
For additional commands, e-mail: asp-help@perl.apache.org