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

Diff for /db/prgsrc/mkRS.pl between versions 1.4 and 1.8

version 1.4, 2001/11/01 01:44:59 version 1.8, 2005/07/05 23:58:11
Line 32  cicles_number=1. Line 32  cicles_number=1.
   
 =cut  =cut
   
   
 use locale;  use locale;
 use DBI;  use DBI;
 use POSIX qw (locale_h);  use POSIX qw (locale_h);
Line 39  use lib "../lib"; Line 40  use lib "../lib";
 use chgkfiles;  use chgkfiles;
 use dbchgk;  use dbchgk;
 my $minstop=2000;  my $minstop=2000;
 open (STDERR,">errors");  
   my $DUMPDIR = $ENV{DUMPDIR} || "../dump";
   
   open (STDERR,">$DUMPDIR/errors");
 do "common.pl";  do "common.pl";
 do "chgk.cnf";  do "chgk.cnf";
   
   
 die "Undefined \$maxwsize! check your chgk.cnf" unless $maxwsize;  die "Undefined \$maxwsize! check your chgk.cnf" unless $maxwsize;
   
 checktable('word2question','delete');  checktable('word2question','delete');
Line 60  print "Creating word2question table...\n Line 65  print "Creating word2question table...\n
                 word   INT UNSIGNED NOT NULL,                   word   INT UNSIGNED NOT NULL, 
                             KEY wordkey (word),                              KEY wordkey (word),
                 questions  MEDIUMBLOB                  questions  MEDIUMBLOB
                )"                 ) type=MyISAM"
             )              )
   
         or die "Can't create WORD2QUESTION table: $!\n";          or die "Can't create WORD2QUESTION table: $!\n";
Line 74  print "Creating nests table...\n"; Line 79  print "Creating nests table...\n";
                             KEY w1key (w1),                              KEY w1key (w1),
                 w2   INT UNSIGNED NOT NULL,                  w2   INT UNSIGNED NOT NULL,
                             KEY w2key (w2)                                           KEY w2key (w2)             
         )")          ) type=MyISAM")
   
         or die "Can't create NESTS table: $!\n";          or die "Can't create NESTS table: $!\n";
   
Line 91  mydo("CREATE TABLE nf ( Line 96  mydo("CREATE TABLE nf (
                             KEY wordkey (word),                              KEY wordkey (word),
                 flag  CHAR(5),                  flag  CHAR(5),
                 number INT UNSIGNED                  number INT UNSIGNED
   )") or die "Can't create NF table: $!\n";    ) type=MyISAM") or die "Can't create NF table: $!\n";
   
   
 mydo("UPDATE Questions SET ProcessedBySearch=NULL");  mydo("UPDATE Questions SET ProcessedBySearch=NULL");
Removed from v.1.4  
changed lines
  Added in v.1.8

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