Changeset 94

Show
Ignore:
Timestamp:
04/02/06 19:25:04 (4 years ago)
Author:
miya
Message:

modify TinyURL.pm

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

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

    r93 r94  
    99    $context->register_hook( 
    1010        $self, 
    11         'update.entry.fixup' => \&filter, 
     11        'update.feed.fixup'  => \&feed_filter, 
     12        'update.entry.fixup' => \&entry_filter, 
    1213    ); 
    1314} 
    1415 
    15 sub filter { 
     16sub feed_filter { 
     17    my($self, $context, $args) = @_; 
     18    my $feed = $args->{feed}; 
     19 
     20    for my $target (@{$self->conf->{target}}){ 
     21        if($target eq 'feed'){ 
     22            $feed->link(get_tiny_url($feed->link) . $self->conf->{suffix}) 
     23        } 
     24    } 
     25} 
     26 
     27sub entry_filter { 
    1628    my($self, $context, $args) = @_; 
    1729    my $entry = $args->{entry}; 
    18     $entry->meta->{enclosure}->{url} = get_tiny_url($entry->meta->{enclosure}->{url}) . $self->conf->{suffix}; 
     30 
     31    for my $target (@{$self->conf->{target}}){ 
     32        if($target eq 'enclosure'){ 
     33            $entry->meta->{enclosure}->{url} = get_tiny_url($entry->meta->{enclosure}->{url}) . $self->conf->{suffix}; 
     34        } 
     35        elsif ($target eq 'entry'){ 
     36            $entry->link(get_tiny_url($entry->link) . $self->conf->{suffix}) 
     37        } 
     38 
     39    } 
    1940} 
    2041 
    …… 
    2748 
    28491; 
     50__END__ 
     51 
     52=head1 NAME 
     53 
     54Plagger::Plugin::Filter::TinyURL - Convert urls to tiny urls 
     55 
     56=head1 SYNOPSIS 
     57 
     58  - module: Filter::TinyURL 
     59    config: 
     60      target: 
     61        - feed 
     62        - entry 
     63        - enclosure 
     64      suffix: /dummy.mp4 
     65 
     66=head1 DESCRIPTION 
     67 
     68This plugin converts urls to tiny urls. 
     69 
     70=head1 CONFIG 
     71 
     72=over 4 
     73 
     74=item target 
     75 
     76Specify target(s) to convert urls. 
     77 
     78feed      - change the url of $feed->link. 
     79entry     - change the url of $entry->link. 
     80enclosure - change the url of $entry->meta->{enclosure}->{url}. 
     81 
     82=item suffix 
     83 
     84Add suffix to the converted urls. 
     85 
     86=back 
     87 
     88=head1 AUTHOR 
     89 
     90Gosuke Miyashita 
     91 
     92=head1 SEE ALSO 
     93 
     94L<Plagger> 
     95 
     96=cut