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

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

version 1.12, 2001/12/25 04:05:46 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            CHAR(5),                  `Type`          CHAR(5) NOT NULL DEFAULT 'þ',
                         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,
                 ProcessedBySearch  INT                  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 97  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.12  
changed lines
  Added in v.1.24

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