When I started this thread, my problem was that my $hits = $results->Hits; was
returning -4629728351404162355 hits which was clearly wrong.
Instead of trying to figure out why this wasn't working using mod_perl, I
chose to pursue using swish from the command line (where it was working) to
familiarize myself with swish. I finally got swish to report the results of a
very simple search.
Having done this, I told myself I would now try to get it working using
mod_perl, so I ran it under that. It turns out that swish/SWISH::API is
working under mod_perl. The $hits = $results->Hits; is still wrong, but the
actual search results are fine!
There is one other very curious difference between running under mod_perl and
at the command line. I use the the following little subroutine to check for
and report errors (first parameter is swish object, second is a different
identifier for each call):
sub chkerrors ($$) {
if (!$_[0]->Error) {print "$_[1] returned OK";return;}
my $badmsg = $_[0]->error_string;
print "$_[1]-$badmsg";
$badmsg = $_[0]->last_error_msg;
print "$_[1]2-$badmsg";
}
Even when there are no errors (i.e. the command line version executes without
errors and the mod_perl version gives the same search results) the if test
always concludes there is one.
When there really is an error (e.g. I give a non existent index file name to
new()), then the swish error is correctly reported.
Puzzled!!
Bernard Higonnet
FreeBSD 6.1-RELEASE #0
Apache/2.2.3 (Unix) DAV/2 PHP/5.2.0 mod_perl/2.0.3 Perl/v5.8.8
_______________________________________________
Users mailing list
Users@lists.swish-e.org
http://lists.swish-e.org/listinfo/users