version 1.14, 2002/01/08 01:08:08
|
version 1.18, 2005/07/05 21:27:12
|
Line 37 sub CheckTable
|
Line 37 sub CheckTable
|
my ($TabName) = @_; |
my ($TabName) = @_; |
my ($ans); |
my ($ans); |
|
|
if (scalar(grep(/^$TabName$/, @tbl_list))) { |
if (scalar(grep(/^$TabName$/i, @tbl_list))) { |
print "Table $TabName exists. Do you want to delete it? "; |
print "Table $TabName exists. Do you want to delete it? "; |
$ans = <STDIN>; |
$ans = <STDIN>; |
if ($ans =~ /[yY]/) { |
if ($ans =~ /[yY]/) { |
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 71 print "Connected successfully\n";
|
Line 71 print "Connected successfully\n";
|
KEY TypeKey (Type), |
KEY TypeKey (Type), |
Question TEXT, |
Question TEXT, |
Answer TEXT, |
Answer TEXT, |
|
PassCriteria TEXT, |
Authors TEXT, |
Authors TEXT, |
Sources TEXT, |
Sources TEXT, |
Comments TEXT, |
Comments TEXT, |
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 99 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) |