GOMOR / Onyphe-v4.19.0 / lib / OPP / Proc / Where.pm 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
—
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70

              
#
# $Id: Where.pm,v cfbea05b0bc4 2025/01/28 15:06:19 gomor $
#
package OPP::Proc::Where;
use strict;
use warnings;
use base qw(OPP::Proc);
__PACKAGE__->cgBuildIndices;
use Onyphe::Api;
our $VERSION = '1.00';
my $oa = Onyphe::Api->new->init or die("where: init failed");
$oa->silent(1);
$oa->verbose(0);
#
# NOTE: this where output only results from the previous proc
#
# | where category:datascan ip:$ip
#
sub process {
   my $self = shift;
   my ($input) = @_;
   my $options = $self->options;
   my $args = $options->{args};
   # Update place holders with found input values:
   my $searches = $self->placeholder($args, $input);
   my $cb = sub {
      my ($results) = @_;
      for my $r (@$results) {
         # Keep original result if matches were found:
         $self->output->add($input);
      }
   };
   $oa->search($searches->[0], 1, 1, { trackquery => 'true' }, $cb);  # Use default callback
   return 1;
}
1;
__END__
=head1 NAME
OPP::Proc::Where - ONYPHE Search API where processor
=head1 SYNOPSIS
=head1 DESCRIPTION
=head1 COPYRIGHT AND LICENSE
Copyright (c) 2025, ONYPHE SAS
You may distribute this module under the terms of The BSD 3-Clause License.
See LICENSE file in the source distribution archive.
=head1 AUTHOR
Patrice E<lt>GomoRE<gt> Auffret
=cut