db/prgsrc/mkdb.pl - diff

Return to mkdb.pl CVS log

Up to [Local Repository] / db / prgsrc

version 1.19, 2005/12/10 00:03:55	version 1.20, 2006/09/25 00:09:43
Line 56 print "Before connecting to the DB\n";	Line 56 print "Before connecting to the DB\n";
$dbh = DBI->connect("DBI:mysql:chgk", "piataev", "")	$dbh = DBI->connect("DBI:mysql:chgk", "piataev", "")
or die "Can't connect to DB chgk\n" . $dbh->errstr;	or die "Can't connect to DB chgk\n" . $dbh->errstr;
print "Connected successfully\n";	print "Connected successfully\n";
$dbh->do("SET NAMES 'koi8r'");	if ($dbh->get_info( 18 )=~/^(5\|(4.1))/) {$dbh->do("SET NAMES 'koi8r'");}
@tbl_list = $dbh->tables();	@tbl_list = $dbh->tables();

&CheckTable("Questions");	&CheckTable("Questions");