The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more

VVU / wubot-0.3.3-TRIAL / lib / App / Wubot / Plugin / FileRegexp.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
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
—
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112

              
package App::Wubot::Plugin::FileRegexp;
use Moose;
our $VERSION = '0.3.3'; # VERSION
use App::Wubot::Logger;
use App::Wubot::Util::Tail;
has 'path'      => ( is      => 'rw',
                     isa     => 'Str',
                     default => '',
                 );
has 'tail'      => ( is      => 'ro',
                     isa     => 'App::Wubot::Util::Tail',
                     lazy    => 1,
                     default => sub {
                         my ( $self ) = @_;
                         return App::Wubot::Util::Tail->new( { path  => $self->path } );
                     },
                 );
has 'logger'    => ( is      => 'ro',
                     isa     => 'Log::Log4perl::Logger',
                     lazy    => 1,
                     default => sub {
                         return Log::Log4perl::get_logger( __PACKAGE__ );
                     },
                 );
with 'App::Wubot::Plugin::Roles::Cache';
with 'App::Wubot::Plugin::Roles::Plugin';
sub init {
    my ( $self, $inputs ) = @_;
    #$self->{react} = $inputs->{cache};
    #delete $self->{react}->{lastupdate};
    $self->path( $inputs->{config}->{path} );
    my $callback = sub {
        my $line = shift;
        for my $regexp_name ( keys %{ $inputs->{config}->{regexp} } ) {
            my $regexp = $inputs->{config}->{regexp}->{ $regexp_name };
            if ( $line =~ m|$regexp| ) {
                $self->{react}->{ $regexp_name }++;
            }
        }
    };
    $self->tail->callback( $callback );
    $self->tail->reset_callback( sub { print YAML::Dump @_ } );
    if ( $inputs->{cache}->{position} ) {
        $self->tail->position( $inputs->{cache}->{position} );
    }
    return;
}
sub check {
    my ( $self, $inputs ) = @_;
    $self->{react} = {};
    $self->tail->get_lines();
    if ( $self->{react} ) {
        return { react => { %{ $self->{react} } },
                 cache => { position => $self->tail->position },
             };
    }
    return { cache => { position => $self->tail->position } };
}
__PACKAGE__->meta->make_immutable;
1;
__END__
=head1 NAME
App::Wubot::Plugin::FileRegexp - monitor number of lines matching regular expressions in a file
=head1 VERSION
version 0.3.3
=head1 DESCRIPTION
TODO: More to come...
=head1 SUBROUTINES/METHODS
=over 8
=item init( $inputs )
The standard monitor init() method.
=item check( $inputs )
The standard monitor check() method.
=back