[BACK]Return to mkdb.pl CVS log [TXT] [DIR] Up to [Local Repository] / db / prgsrc

Diff for /db/prgsrc/mkdb.pl between versions 1.18 and 1.19

version 1.18, 2005/07/05 21:27:12 version 1.19, 2005/12/10 00:03:55
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'");
         @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 100  print "Connected successfully\n"; Line 102  print "Connected successfully\n";
                 EnteredBy       TEXT,                  EnteredBy       TEXT,
                 PlayedAt        DATE,                  PlayedAt        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)
Removed from v.1.18  
changed lines
  Added in v.1.19

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>