Grep/Source/Slug.pm

#!/usr/bin/perl

use warnings;
use strict;

package Grep::Source::Slug;

=head1 NAME

Grep::Source::Slug - scraiper for L<http://www.nslu2-linux.org> search results

=head1 BUGS

This is heuristic scraper for unknown wiki engine.

=cut

sub content_have {
        qr(\?action=edit);
}

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

        $parent->scrape(
                wrapper => [ qw/div class wikisearch/ ],
                results => 'dd',
                scrape => [ qw/div id wikitext/ ],
        );

}

1;
1	dpavlin	114	#!/usr/bin/perl
2
3			use warnings;
4			use strict;
5
6			package Grep::Source::Slug;
7
8			=head1 NAME
9
10			Grep::Source::Slug - scraiper for L<http://www.nslu2-linux.org> search results
11
12			=head1 BUGS
13
14			This is heuristic scraper for unknown wiki engine.
15
16			=cut
17
18			sub content_have {
19			qr(\?action=edit);
20			}
21
22			sub fetch {
23			my $self = shift;
24			my $parent = shift;
25
26			$parent->scrape(
27			wrapper => [ qw/div class wikisearch/ ],
28	dpavlin	115	results => 'dd',
29	dpavlin	114	scrape => [ qw/div id wikitext/ ],
30			);
31
32			}
33
34			1;