Parent Directory | Revision Log
scraper for unknown wiki engine at http://www.nslu2-linux.org/
1 | #!/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 | results => 'dt', |
29 | scrape => [ qw/div id wikitext/ ], |
30 | ); |
31 | |
32 | } |
33 | |
34 | 1; |
ViewVC Help | |
Powered by ViewVC 1.1.26 |