db/prgsrc/db.cgi - diff

Return to db.cgi CVS log

Up to [Local Repository] / db / prgsrc

version 1.45, 2001/12/06 23:39:11	version 1.46, 2001/12/08 23:00:44
Line 2	Line 2

use DBI;	use DBI;
use CGI ':all';	use CGI ':all';
use Text::Query;	#use Text::Query;
use strict;	use strict;
use Time::Local;	use Time::Local;
use POSIX qw(locale_h);	use POSIX qw(locale_h);
Line 441 sub Search {	Line 441 sub Search {
my $sstr=$$s;	my $sstr=$$s;
my (@arr, @Questions, @fields);	my (@arr, @Questions, @fields);
my (@sar, $i, $sth,$where,$query);	my (@sar, $i, $sth,$where,$query);
my $ip=$ENV{'REMOTE_ADDR'};	# my $ip=$ENV{'REMOTE_ADDR'};

$ip=$dbh->quote($ip);	# $ip=$dbh->quote($ip);
$query=	# $query=
"INSERT into queries (query,metod,searchin,ip)	# "INSERT into queries (query,metod,searchin,ip)
values (". $dbh->quote($sstr).', '.	# values (". $dbh->quote($sstr).', '.
$dbh->quote($metod) . ', ' .	# $dbh->quote($metod) . ', ' .
$dbh->quote(join ' ', grep $searchin{$_}, keys %searchin) .	# $dbh->quote(join ' ', grep $searchin{$_}, keys %searchin) .
", $ip)";	# ", $ip)";
print $query if $printqueries;	#print $query if $printqueries;
$dbh -> do ($query);	# $dbh -> do ($query);
if ($metod eq 'rus')	if ($metod eq 'rus')
{	{
my @tasks=russearch($dbh,$sstr,$all,$allnf);	my @tasks=russearch($dbh,$sstr,$all,$allnf);