version 1.24, 2001/10/18 19:53:17
|
version 1.27, 2001/10/22 20:53:53
|
Line 8 use Time::Local;
|
Line 8 use Time::Local;
|
use POSIX qw(locale_h); |
use POSIX qw(locale_h); |
use locale; |
use locale; |
open STDERR, ">errors"; |
open STDERR, ">errors"; |
my $printqueries=0; |
my $printqueries=1; |
my %fieldname= (0,'Question', 1, 'Answer', 2, 'Comments'); |
my %fieldname= (0,'Question', 1, 'Answer', 2, 'Comments', 3, 'Authors', 4, 'Sources'); |
my %searchin; |
my %searchin; |
|
|
|
|
Line 20 my $thislocale;
|
Line 20 my $thislocale;
|
$searchin{'question'}=param('Question'); |
$searchin{'question'}=param('Question'); |
$searchin{'answer'}=param('Answer'); |
$searchin{'answer'}=param('Answer'); |
$searchin{'comment'}=param('Comment'); |
$searchin{'comment'}=param('Comment'); |
|
$searchin{'authors'}=param('Authors'); |
|
$searchin{'sources'}=param('Sources'); |
$printqueries||=param('debug'); |
$printqueries||=param('debug'); |
my $all=param('all'); |
my $all=param('all'); |
$all=0 if lc $all eq 'no'; |
$all=0 if lc $all eq 'no'; |
Line 175 print "$query",br if $printqueries;
|
Line 177 print "$query",br if $printqueries;
|
|
|
my $kvo=0; |
my $kvo=0; |
push @$allnf, @{$_} foreach @nf; |
push @$allnf, @{$_} foreach @nf; |
|
print "allnf=@$allnf\n".br if $printqueries; |
|
|
foreach $i (0..$#w) #запросы в базу... |
foreach $i (0..$#w) #запросы в базу... |
{ |
{ |
Line 245 print "$query\n",br if $printqueries;
|
Line 248 print "$query\n",br if $printqueries;
|
# виде хэша, ключи которого -- номера вопросов, |
# виде хэша, ключи которого -- номера вопросов, |
# а значения -- списки номеров вхождений. Вот. |
# а значения -- списки номеров вхождений. Вот. |
{ |
{ |
($field,$hi,$lo,$wordnumber)=@blob[$ii..($ii+3)]; |
($field,$lo,$hi,$wordnumber)=@blob[$ii..($ii+3)]; |
$ii+=4; |
$ii+=4; |
$number=$lo+$hi*256; |
$number=$lo+$hi*256; |
$field=$fieldname{$field}; |
$field=$fieldname{$field}; |