root/trunk/plagger/assets/plugins/Filter-EntryFullText/coreblog.pl
| Revision 645 (checked in by miyagawa, 2 years ago) |
|---|
| Line | |
|---|---|
| 1 | # author: Masafumi Otsune |
| 2 | sub handle { |
| 3 | my($self, $args) = @_; |
| 4 | $args->{content} =~ m!<div class="footer">\n.*Powered by COREBlog! |
| 5 | } |
| 6 | |
| 7 | sub extract { |
| 8 | my($self, $args) = @_; |
| 9 | my $body = ($args->{content} =~ m!(<div class="category">.*?)<br clear="all" />!s)[0]; |
| 10 | if ($body && ($args->{content} =~ m!<a name="more"></a>\n\s*(.*?)\n?</p>!s)[0]) { |
| 11 | $body .= $1; |
| 12 | } |
| 13 | $body; |
| 14 | } |
Note: See TracBrowser for help on using the browser.
