version 1.23, 2001/10/18 19:45:26
|
version 1.24, 2001/10/18 19:53:17
|
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=1; |
my $printqueries=0; |
my %fieldname= (0,'Question', 1, 'Answer', 2, 'Comments'); |
my %fieldname= (0,'Question', 1, 'Answer', 2, 'Comments'); |
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'); |
|
$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'; |
my ($PWD) = `pwd`; |
my ($PWD) = `pwd`; |
Line 216 print "$query\n",br if $printqueries;
|
Line 217 print "$query\n",br if $printqueries;
|
{ |
{ |
@blob=(@blob,unpack 'C*',$arr[0]); |
@blob=(@blob,unpack 'C*',$arr[0]); |
} |
} |
print "blob=@blob"; |
|
$query="select number from nf where ".(join ' OR ', @arr1); |
$query="select number from nf where ".(join ' OR ', @arr1); |
print "$query\n",br if $printqueries; |
print "$query\n",br if $printqueries; |
$sth=$dbh -> prepare($query); |
$sth=$dbh -> prepare($query); |
Line 248 print "$query\n",br if $printqueries;
|
Line 248 print "$query\n",br if $printqueries;
|
($field,$hi,$lo,$wordnumber)=@blob[$ii..($ii+3)]; |
($field,$hi,$lo,$wordnumber)=@blob[$ii..($ii+3)]; |
$ii+=4; |
$ii+=4; |
$number=$lo+$hi*256; |
$number=$lo+$hi*256; |
print "f1=$field\n"; |
|
$field=$fieldname{$field}; |
$field=$fieldname{$field}; |
print "f2=$field\n"; |
|
if ($searchin{lc $field}) |
if ($searchin{lc $field}) |
{ |
{ |
|
|
Line 269 print "f2=$field\n";
|
Line 267 print "f2=$field\n";
|
} |
} |
} #foreach $i |
} #foreach $i |
|
|
print "keys tasksof", keys %tasksof; |
print "keys tasksof", keys %tasksof if $printqueries; |
#Ищем пересечение или объединение списков вопросов (значений %tasksof) |
#Ищем пересечение или объединение списков вопросов (значений %tasksof) |
foreach $sf (keys %tasksof) |
foreach $sf (keys %tasksof) |
{ |
{ |
Line 292 foreach (keys %wordsof)
|
Line 290 foreach (keys %wordsof)
|
|
|
############ |
############ |
|
|
print "tasks=@tasks"; |
print "tasks=@tasks" if $printqueries;; |
|
|
#print "$_ $relevance{$_} | " foreach @tasks; |
#print "$_ $relevance{$_} | " foreach @tasks; |
#print br; |
#print br; |