db/prgsrc/mkdb.pl - diff

Return to mkdb.pl CVS log

Up to [Local Repository] / db / prgsrc

version 1.16, 2004/08/28 23:47:41	version 1.18, 2005/07/05 21:27:12
Line 57 print "Before connecting to the DB\n";	Line 57 print "Before connecting to the DB\n";
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";

@tbl_list = $dbh->func( '_ListTables' );	@tbl_list = $dbh->tables();

&CheckTable("Questions");	&CheckTable("Questions");
$dbh->do("CREATE TABLE Questions (	$dbh->do("CREATE TABLE Questions (
Line 78 print "Connected successfully\n";	Line 78 print "Connected successfully\n";
Rating TEXT,	Rating TEXT,
Topic TEXT,	Topic TEXT,
ProcessedBySearch INT	ProcessedBySearch INT
)")	) TYPE=MyISAM")
or die "Can't create Questions table: $!\n";	or die "Can't create Questions table: $!\n";

&CheckTable("Tournaments");	&CheckTable("Tournaments");
Line 100 print "Connected successfully\n";	Line 100 print "Connected successfully\n";
EnteredBy TEXT,	EnteredBy TEXT,
PlayedAt DATE,	PlayedAt DATE,
CreatedAt DATE NOT NULL	CreatedAt DATE NOT NULL
)")	) TYPE=MyISAM")
or die "Can't create Tournaments table: $!\n";	or die "Can't create Tournaments table: $!\n";

# CREATE INDEX ParentInd ON Tournaments (ParentId)	# CREATE INDEX ParentInd ON Tournaments (ParentId)