Parent Directory | Revision Log
added two variants of MediaWiki
1 | #!/usr/bin/perl |
2 | |
3 | use warnings; |
4 | use strict; |
5 | |
6 | package Grep::Source::MediaWiki; |
7 | |
8 | =head1 NAME |
9 | |
10 | Grep::Source::MediaWiki - scraiper for MediaWiki search results |
11 | |
12 | =cut |
13 | |
14 | sub content_have { |
15 | qr(MediaWiki.*<ol); |
16 | } |
17 | |
18 | sub fetch { |
19 | my $self = shift; |
20 | my $parent = shift; |
21 | |
22 | $parent->scrape( |
23 | wrapper => [ qw/ol start 1/ ], |
24 | results => 'li', |
25 | scrape => [ qw/div id content/ ], |
26 | ); |
27 | |
28 | } |
29 | |
30 | 1; |
ViewVC Help | |
Powered by ViewVC 1.1.26 |