version 1.18, 2005/07/05 21:27:12
|
version 1.21, 2009/05/02 21:23:07
|
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"; |
|
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 67 print "Connected successfully\n";
|
Line 67 print "Connected successfully\n";
|
KEY ParentIdKey (ParentId), |
KEY ParentIdKey (ParentId), |
Number SMALLINT UNSIGNED NOT NULL, |
Number SMALLINT UNSIGNED NOT NULL, |
KEY NumberKey (Number), |
KEY NumberKey (Number), |
Type CHAR(5) NOT NULL DEFAULT 'þ', |
`Type` CHAR(5) NOT NULL DEFAULT 'þ', |
KEY TypeKey (Type), |
KEY TypeKey (Type), |
Question TEXT, |
Question TEXT, |
Answer TEXT, |
Answer TEXT, |
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") |
) TYPE=MyISAM" |
|
. (($dbh->get_info( 18 )=~/^(5|(4.1))/)?' DEFAULT CHARSET=koi8r':'') |
|
) |
or die "Can't create Questions table: $!\n"; |
or die "Can't create Questions table: $!\n"; |
|
|
&CheckTable("Tournaments"); |
&CheckTable("Tournaments"); |
Line 99 print "Connected successfully\n";
|
Line 101 print "Connected successfully\n";
|
Editors TEXT, |
Editors TEXT, |
EnteredBy TEXT, |
EnteredBy TEXT, |
PlayedAt DATE, |
PlayedAt DATE, |
|
PlayedAt2 DATE, |
CreatedAt DATE NOT NULL |
CreatedAt DATE NOT NULL |
) TYPE=MyISAM") |
) TYPE=MyISAM" |
|
. (($dbh->get_info( 18 )=~/^(5|(4.1))/)?' DEFAULT CHARSET=koi8r':'') |
|
|
|
) |
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) |