Grep/Source/PunBB.pm

#!/usr/bin/perl

use warnings;
use strict;

package Grep::Source::PunBB;

=head1 NAME

Grep::Source::PunBB - scraiper for PunBB search results

=cut

sub content_have {
        qr(PunBB);
}

sub fetch {
        my $self = shift;
        my $parent = shift;

        $parent->scrape(
                submit_form => {
                        with_fields => {
                                keywords => $parent->q,
                        },
                },
                wrapper => [ qw/div class box/ ],
                results => [ qw/div class tclcon/ ],
                scrape => [ qw/div class blockpost/ ],
        );

}

1;
1	dpavlin	133	#!/usr/bin/perl
2
3			use warnings;
4			use strict;
5
6			package Grep::Source::PunBB;
7
8			=head1 NAME
9
10			Grep::Source::PunBB - scraiper for PunBB search results
11
12			=cut
13
14			sub content_have {
15			qr(PunBB);
16			}
17
18			sub fetch {
19			my $self = shift;
20			my $parent = shift;
21
22			$parent->scrape(
23			submit_form => {
24			with_fields => {
25			keywords => $parent->q,
26			},
27			},
28			wrapper => [ qw/div class box/ ],
29			results => [ qw/div class tclcon/ ],
30	dpavlin	134	scrape => [ qw/div class blockpost/ ],
31	dpavlin	133	);
32
33			}
34
35			1;