/[Grep]/lib/Grep/Source/MoinMoin.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /lib/Grep/Source/MoinMoin.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 72 by dpavlin, Fri Feb 23 09:54:28 2007 UTC revision 73 by dpavlin, Fri Feb 23 11:48:39 2007 UTC
# Line 1  Line 1 
1  #!/usr/bin/perl -w  #!/usr/bin/perl
2    
 # 02/22/07 15:46:38 CET Dobrica Pavlinusic <dpavlin@rot13.org>  
3  use warnings;  use warnings;
4  use strict;  use strict;
5    
6  package Grep::Source::MoinMoin;  package Grep::Source::MoinMoin;
7    
8    =head1 NAME
9    
10    Grep::Source::MoinMoin - scraper for MoinMoin wiki search results
11    
12    =cut
13    
14  use HTML::TreeBuilder;  use HTML::TreeBuilder;
15  use WWW::Mechanize;  use WWW::Mechanize;
16  use XML::Feed;  use XML::Feed;
# Line 22  sub content_have { Line 27  sub content_have {
27    
28  =head2 fetch  =head2 fetch
29    
30    Grep::Source::MoinMoin->fetch( $source );    $plugin->fetch( $source );
31    
32  =cut  =cut
33    
# Line 38  sub fetch { Line 43  sub fetch {
43    
44          $mech->get( $uri );          $mech->get( $uri );
45    
46          warn "submit form on $uri\n";          warn "submit $self form on $uri\n";
47    
48          $mech->submit_form(          $mech->submit_form(
49                  fields => {                  fields => {
50                          value => $q,                          value => $q,
51                  },                  },
52                  button => 'fullsearch',                  button => 'fullsearch',
53          ) or die "can't submit";          ) or die "can't $self submit";
54    
55          warn "parse result page\n";          warn "parse result page\n";
56    
Legend:
Removed from v.72  
changed lines
  Added in v.73
  ViewVC Help
Powered by ViewVC 1.1.26