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.24, 2009/12/12 16:55:21
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");
Line 101 print "Connected successfully\n";	Line 101 print "Connected successfully\n";
Editors TEXT,	Editors TEXT,
EnteredBy TEXT,	EnteredBy TEXT,
PlayedAt DATE,	PlayedAt DATE,
	PlayedAt2 DATE,
	KandId INT,
CreatedAt DATE NOT NULL	CreatedAt DATE NOT NULL
) TYPE=MyISAM"	) TYPE=MyISAM"
. (($dbh->get_info( 18 )=~/^(5\|(4.1))/)?' DEFAULT CHARSET=koi8r':'')	. (($dbh->get_info( 18 )=~/^(5\|(4.1))/)?' DEFAULT CHARSET=koi8r':'')