root/trunk/plagger/assets/plugins/Filter-EntryFullText/pmachine.pl

Revision 1818 (checked in by otsune, 14 years ago)

Fix handle and regexp EFT pmachine
fix extract
delete ignorecase handle EFT pmachine

Line 
1 # author: Masafumi Otsune
2 sub handle {
3     my($self, $args) = @_;
4     $args->{content} =~ m!<a href="http://www\.pmachine\.com/">Powered by ExpressionEngine</a>!s;
5 }
6
7 sub extract {
8     my($self, $args) = @_;
9     if ($args->{content} =~ m!<div (?:id="content"|class="(?:entryBody|blogbody)")>(.*?)<div class="posted">!s){
10         my $body = $1;
11         return "<div>$body</div>";
12     }
13     return;
14 }
Note: See TracBrowser for help on using the browser.