version 1.4, 2001/11/01 01:44:59
|
version 1.6, 2005/07/05 20:24:17
|
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 59 print "Creating word2question table...\n
|
Line 64 print "Creating word2question table...\n
|
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, |
|
INDEX(word) |
)" |
)" |
) |
) |
|
|