Changeset 1818

Show
Ignore:
Timestamp:
11/08/06 07:27:46
Author:
otsune
Message:

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

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved
  • trunk/plagger/assets/plugins/Filter-EntryFullText/pmachine.pl

    r966 r1818  
    22sub handle { 
    33    my($self, $args) = @_; 
    4     $args->{content} =~ m!Powered by <a href="?http://www\.pmachine\.com/!si
     4    $args->{content} =~ m!<a href="http://www\.pmachine\.com/">Powered by ExpressionEngine</a>!s
    55} 
    66 
    77sub extract { 
    88    my($self, $args) = @_; 
    9     if ($args->{content} =~ m!<h2 class="title">(?:.*?)</h2>(?:</a>)?(.*?)<\!--\n<rdf:RDF!s){ 
     9    if ($args->{content} =~ m!<div (?:id="content"|class="(?:entryBody|blogbody)")>(.*?)<div class="posted">!s){ 
    1010        my $body = $1; 
    1111        return "<div>$body</div>";