Grep/Source/DokuWiki.pm

#!/usr/bin/perl

use warnings;
use strict;

package Grep::Source::DokuWiki;

=head1 NAME

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

=head1 BUGS

Since DokuWiki html isn't structured enough (there is no block element
around content of page, sic!), search results contain form elements and
buttons.

=cut

sub content_have {
        qr(generator.*DokuWiki);
}

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

        $parent->scrape(
                wrapper => [ qw/
                                                div class page
                                                div class dokuwiki
                                        /
                ],
                results => [
                                                qw/div class search_result/,
                ],
                scrape => [ qw/div class dokuwiki/ ],
        );

}

1;
1	dpavlin	101	#!/usr/bin/perl
2
3			use warnings;
4			use strict;
5
6			package Grep::Source::DokuWiki;
7
8			=head1 NAME
9
10			Grep::Source::DokuWiki - scraiper for DokuWiki search results
11
12			=head1 BUGS
13
14			Since DokuWiki html isn't structured enough (there is no block element
15			around content of page, sic!), search results contain form elements and
16			buttons.
17
18			=cut
19
20			sub content_have {
21			qr(generator.*DokuWiki);
22			}
23
24			sub fetch {
25			my $self = shift;
26			my $parent = shift;
27
28			$parent->scrape(
29	dpavlin	121	wrapper => [ qw/
30			div class page
31			div class dokuwiki
32			/
33			],
34			results => [
35			qw/div class search_result/,
36			],
37	dpavlin	101	scrape => [ qw/div class dokuwiki/ ],
38			);
39
40			}
41
42			1;