Changeset 110
- Timestamp:
- 02/22/06 19:17:39
- Files:
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
trunk/plagger/lib/Plagger/Plugin/Subscription/HatenaRSS.pm
r107 r110 37 37 38 38 $mech->get("http://r.hatena.ne.jp/miyagawa/config"); 39 40 # HatenaRSS config has two different 'opml' forms :/ 41 # so we loop through it and use the latter one 42 for my $form ($mech->forms) { 43 $mech->{form} = $form if $form->attr('name') eq 'opml'; 44 } 45 46 $mech->submit_form(); 39 $mech->submit_form(form_name => 'opmlexport'); 47 40 48 41 my $opml = $mech->content;
