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

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

version 1.1, 2001/10/31 03:00:10 version 1.4, 2001/11/01 01:44:59
Line 1 Line 1
 #!perl -w  #!/usr/bin/perl -w
   
 #!/usr/local/bin/perl -w  =head1 NAME
   
 =head1 NAME  mkRS.pl - Скрипт для создания таблиц для русского поиска 
   
 mkRS.pl - Скрипт для создания таблиц для русского поиска  B<$base> информации о вопросах 
   
 B<$base> информации о вопросах  =head1 SYNOPSIS
   
 =head1 SYNOPSIS  mkRS.pl Создаёт таблицы word2question, nf, nests (предварительно 
           без предупреждения удаляя их) и очищает ProcessedBySearch.
 mkRS.pl Создаёт таблицы word2question, nf, nests (предварительно  
         без предупреждения удаляя их) и очищает ProcessedBySearch.  
   
   =head1 DESCRIPTION
   
 =head1 DESCRIPTION  Скрипт ищет в таблице Questions вопросы с нулевым ProcessedBySearch,
   добавляет информацию в таблицы word2question, nests, nf. Поле 
 Скрипт ищет в таблице Questions вопросы с нулевым ProcessedBySearch,  ProcessedBySearch устанавливается в 1. Обрабатывает 
 добавляет информацию в таблицы word2question, nests, nf. Поле  Questions_per_cicle*cicles_number вопросов, сбрасывая 
 ProcessedBySearch устанавливается в 1. Обрабатывает  информацию в базу каждые Questions_per_cicle вопросов.
 Questions_per_cicle*cicles_number вопросов, сбрасывая  Значения по умолчанию:
 информацию в базу каждые Questions_per_cicle вопросов.  Questions_per_cicle=500;
 Значения по умолчанию:  cicles_number=1.
 Questions_per_cicle=500;  
 cicles_number=1.  
   =head1 AUTHOR
   
 =head1 AUTHOR  Роман Семизаров
   
 Роман Семизаров  
   =cut
   
 =cut  use locale;
   use DBI;
 use locale;  use POSIX qw (locale_h);
 use DBI;  use lib "../lib";
 use POSIX qw (locale_h);  use chgkfiles;
 use chgkfiles;  use dbchgk;
 use dbchgk;  my $minstop=2000;
 my $minstop=2000;  open (STDERR,">errors");
 open (STDERR,">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');  
   checktable('nests','delete');
 checktable('nests','delete');  
   checktable('nf','delete');
 checktable('nf','delete');  
   
   print "Creating word2question table...\n";
 print "Creating word2question table...\n";  
           mydo("CREATE TABLE word2question (
         mydo("CREATE TABLE word2question (                  id     INT UNSIGNED NOT NULL PRIMARY KEY AUTO_INCREMENT,
                 id     INT UNSIGNED NOT NULL PRIMARY KEY AUTO_INCREMENT,                              KEY idkey (id),
                             KEY idkey (id),                  word   INT UNSIGNED NOT NULL, 
                 word   INT UNSIGNED NOT NULL,                              KEY wordkey (word),
                             KEY wordkey (word),                  questions  MEDIUMBLOB
                 questions  MEDIUMBLOB                 )"
                )"              )
             )  
           or die "Can't create WORD2QUESTION table: $!\n";
         or die "Can't create WORD2QUESTION table: $!\n";  
   print "Creating nests table...\n";
 print "Creating nests table...\n";  
           mydo("CREATE TABLE nests (
         mydo("CREATE TABLE nests (                  id   INT UNSIGNED NOT NULL PRIMARY KEY AUTO_INCREMENT,
                 id   INT UNSIGNED NOT NULL PRIMARY KEY AUTO_INCREMENT,                              KEY idkey (id),
                             KEY idkey (id),                  w1   CHAR($maxwsize) BINARY NOT NULL, 
                 w1   CHAR($maxwsize) BINARY NOT NULL,                              KEY w1key (w1),
                             KEY w1key (w1),                  w2   INT UNSIGNED NOT NULL,
                 w2   INT UNSIGNED NOT NULL,                              KEY w2key (w2)             
                             KEY w2key (w2)                      )")
         )")  
           or die "Can't create NESTS table: $!\n";
         or die "Can't create NESTS table: $!\n";  
   
   
   
   print "Creating nf table...\n";
 print "Creating nf table...\n";  
   
   mydo("CREATE TABLE nf (
 mydo("CREATE TABLE nf (                  id   INT UNSIGNED NOT NULL PRIMARY KEY AUTO_INCREMENT,
                 id   INT UNSIGNED NOT NULL PRIMARY KEY AUTO_INCREMENT,                      KEY idkey (id),
                     KEY idkey (id),                  word CHAR(30) BINARY NOT NULL, 
                 word CHAR(30) BINARY NOT NULL,                              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";
   )") or die "Can't create NF table: $!\n";  
   
   mydo("UPDATE Questions SET ProcessedBySearch=NULL");
 mydo("UPDATE Questions SET ProcessedBySearch=NULL");  
   
   
   
   
   
   
   
   
Removed from v.1.1  
changed lines
  Added in v.1.4

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