version 1.38, 2001/11/30 23:48:53
|
version 1.39, 2001/12/03 02:28:56
|
Line 7 use strict;
|
Line 7 use strict;
|
use Time::Local; |
use Time::Local; |
use POSIX qw(locale_h); |
use POSIX qw(locale_h); |
use locale; |
use locale; |
#open STDERR, ">errors"; |
#open STDERR, ">errors1"; |
my $printqueries=0; |
my $printqueries=0; |
my %forbidden=(); |
my %forbidden=(); |
my $debug=0; #added by R7 |
my $debug=0; #added by R7 |
Line 192 print "$query",br if $printqueries;
|
Line 192 print "$query",br if $printqueries;
|
|
|
$_= " word2question.word=".$_. ' ' foreach @arr; |
$_= " word2question.word=".$_. ' ' foreach @arr; |
$_= " nf.id=".$_. ' ' foreach @arr1; |
$_= " nf.id=".$_. ' ' foreach @arr1; |
|
# @arr=(0) unless @arr; |
$query="select questions from word2question where". (join ' OR ', @arr); |
$query="select questions from word2question where". (join ' OR ', @arr); |
print "$query\n",br if $printqueries; |
print STDERR "!$query\n",br if $printqueries; |
|
|
$sth=$dbh -> prepare($query); |
$sth=$dbh -> prepare($query); |
$sth->execute; |
$sth->execute; |
Line 332 if $$words{$first};
|
Line 332 if $$words{$first};
|
sub Search { |
sub Search { |
my ($dbh, $sstr,$metod,$all,$allnf) = @_; |
my ($dbh, $sstr,$metod,$all,$allnf) = @_; |
my (@arr, @Questions, @fields); |
my (@arr, @Questions, @fields); |
my (@sar, $i, $sth,$where); |
my (@sar, $i, $sth,$where,$query); |
|
my $ip=$ENV{'REMOTE_ADDR'}; |
|
|
# push @fields, 'Question'; |
$ip=$dbh->quote($ip); |
|
$query= |
|
"INSERT into queries (query,metod,searchin,ip) |
|
values (". $dbh->quote($sstr).', '. |
|
$dbh->quote($metod) . ', ' . |
|
$dbh->quote(join ' ', grep $searchin{$_}, keys %searchin) . |
|
", $ip)"; |
|
print $query if $printqueries; |
|
$dbh -> do ($query); |
|
|
if ($metod eq 'rus') |
if ($metod eq 'rus') |
{ |
{ |
Line 362 sub Search {
|
Line 371 sub Search {
|
-fields_searched => $fields); |
-fields_searched => $fields); |
|
|
$where= $$q{'matchexp'}; |
$where= $$q{'matchexp'}; |
my $query= "SELECT Questionid FROM Questions |
$query= "SELECT Questionid FROM Questions |
WHERE $where"; |
WHERE $where"; |
print br."Query is: $query".br if $debug; |
print br."Query is: $query".br if $debug; |
|
|