$conn->irspy_search_pqf('@attr exp-1 1=1 ' . $category,
{'category' => $category},
{ databaseName => 'IR-Explain-1' },
$conn->irspy_search_pqf('@attr exp-1 1=1 ' . $category,
{'category' => $category},
{ databaseName => 'IR-Explain-1' },
sub found {
my($conn, $task, $test_args, $event) = @_;
my $category = $test_args->{'category'};
sub found {
my($conn, $task, $test_args, $event) = @_;
my $category = $test_args->{'category'};
$conn->log("irspy_test", "Explain category ", $category, " gave ", $n,
" hit(s).");
$conn->log("irspy_test", "Explain category ", $category, " gave ", $n,
" hit(s).");
my($conn, $task, $test_args, $exception) = @_;
my $category = $test_args->{'category'};
my($conn, $task, $test_args, $exception) = @_;
my $category = $test_args->{'category'};
$conn->log("irspy_test", "Explain category lookup failed: ", $exception);
update($conn, $category, 0);
$conn->log("irspy_test", "Explain category lookup failed: ", $exception);
update($conn, $category, 0);