<%DOC>
 Make DBI connection to SQL
</%DOC>

<%ONCE>
my $dbh;
</%ONCE>

<%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;

</%INIT>