Changeset 184

Show
Ignore:
Timestamp:
02/27/06 02:53:40
Author:
tokuhirom
Message:

auto link with a-tag.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/plagger/lib/Plagger/Plugin/Filter/TTP.pm

    r175 r184  
    22use strict; 
    33use base qw( Plagger::Plugin ); 
     4use URI::Find; 
     5 
     6{ 
     7    package URI::ttp; 
     8    use base qw(URI::http); 
     9} 
    410 
    511sub register { 
    …… 
    1420    my($self, $context, $args) = @_; 
    1521    my $body = $args->{entry}->body; 
    16     $body =~ s!\b(ttp://)!h$1!g; 
     22 
     23    my $finder = URI::Find->new(sub { 
     24        my ($uri, $orig_uri) = @_; 
     25        return ($uri->scheme eq 'ttp') ? qq{<a href="h$orig_uri">$orig_uri</a>} : $orig_uri; 
     26    }); 
     27    $finder->find(\$body); 
     28 
    1729    $args->{entry}->body($body); 
    1830}