--- db/prgsrc/mkdb.pl	2005/07/05 21:27:12	1.18
+++ db/prgsrc/mkdb.pl	2005/12/10 00:03:55	1.19
@@ -23,7 +23,7 @@ The database, user and password are hard
 
 Dmitry Rubinstein
 
-=head1 $Id: mkdb.pl,v 1.18 2005/07/05 21:27:12 boris Exp $
+=head1 $Id: mkdb.pl,v 1.19 2005/12/10 00:03:55 roma7 Exp $
 
 =cut
 
@@ -56,7 +56,7 @@ print "Before connecting to the DB\n";
 	$dbh = DBI->connect("DBI:mysql:chgk", "piataev", "")
 		or die "Can't connect to DB chgk\n" . $dbh->errstr;
 print "Connected successfully\n";
-
+        $dbh->do("SET NAMES 'koi8r'");
 	@tbl_list = $dbh->tables();
 
  	&CheckTable("Questions");
@@ -67,7 +67,7 @@ print "Connected successfully\n";
 			KEY ParentIdKey (ParentId),
 		Number 	       SMALLINT UNSIGNED NOT NULL,
 			KEY NumberKey (Number),
-		Type 		CHAR(5) NOT NULL DEFAULT 'þ',
+		`Type` 		CHAR(5) NOT NULL DEFAULT 'þ',
 		        KEY TypeKey (Type),
 		Question 	TEXT,
 		Answer 		TEXT,
@@ -78,7 +78,9 @@ print "Connected successfully\n";
                 Rating          TEXT,
                 Topic           TEXT,
                 ProcessedBySearch  INT
-	) TYPE=MyISAM")
+	) TYPE=MyISAM"
+	. (($dbh->get_info( 18 )=~/^(5|(4.1))/)?' DEFAULT CHARSET=koi8r':'')
+)
 	or die "Can't create Questions table: $!\n";
 	
 	&CheckTable("Tournaments");
@@ -100,7 +102,10 @@ print "Connected successfully\n";
                 EnteredBy       TEXT,
 		PlayedAt 	DATE,
 		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";
 
 #	CREATE INDEX ParentInd ON Tournaments (ParentId)