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

Diff for /db/prgsrc/mkdb.pl between versions 1.8 and 1.24

version 1.8, 2000/11/11 00:23:20 version 1.24, 2009/12/12 16:55:21
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 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->func( '_ListTables' );          @tbl_list = $dbh->tables();
   
         &CheckTable("Questions");          &CheckTable("Questions");
         $dbh->do("CREATE TABLE Questions (          $dbh->do("CREATE TABLE 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            TEXT NOT NULL,                  `Type`          CHAR(5) NOT NULL DEFAULT 'þ',
                           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,
                   ProcessedBySearch  INT
           ) 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 85  print "Connected successfully\n"; Line 91  print "Connected successfully\n";
                 ParentId        INT UNSIGNED NOT NULL,                  ParentId        INT UNSIGNED NOT NULL,
                         KEY ParentIdKey (ParentId),                          KEY ParentIdKey (ParentId),
                 Title           TINYTEXT NOT NULL,                  Title           TINYTEXT NOT NULL,
                   Number    SMALLINT UNSIGNED,
                 QuestionsNum INT UNSIGNED DEFAULT 0,                  QuestionsNum INT UNSIGNED DEFAULT 0,
                 Type            ENUM('ç','ô','þ'),                  Type            ENUM('ç','ô','þ'),
                 Copyright       TEXT,                  Copyright       TEXT,
Line 94  print "Connected successfully\n"; Line 101  print "Connected successfully\n";
                 Editors         TEXT,                  Editors         TEXT,
                 EnteredBy       TEXT,                  EnteredBy       TEXT,
                 PlayedAt        DATE,                  PlayedAt        DATE,
                   PlayedAt2       DATE,           
                   KandId          INT,            
                 CreatedAt       DATE NOT NULL                  CreatedAt       DATE NOT NULL
         )")           ) 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.8  
changed lines
  Added in v.1.24

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