Документ взят из кэша поисковой машины. Адрес оригинального документа : http://www.kosmofizika.ru/includes/dbcon.msn Дата изменения: Mon Oct 31 10:41:00 2005 Дата индексирования: Mon Oct 1 23:34:20 2012 Кодировка:

<%DOC>
Make DBI connection to SQL


<%ONCE>
my $dbh;


<%INIT>
use DBI;

use vars qw($db_driver $dbhost $dbname $dbuser $dbpass);

$db_driver="mysql";
$dbhost="localhost";
$dbname="kosmofizika";
$dbuser="kosmofizika";
$dbpass="Nyuew87";


my $DSN="DBI:mysql:dbname=$dbname";
my $sth;

#eval {
$dbh = DBI->connect($DSN,
$dbuser,
$dbpass,
{
PrintError => 1, # warn() on errors
RaiseError => 0, # don't die on error
AutoCommit => 1, # commit executes immediately
}
);
#};

if (! $dbh) {
$m->out("Error: connecting to DB: $@\n");
return undef;
}

return $dbh;