Yusukebe::Tech

はてぶで、指定したタグを含むエントリー達をSubscriptionするPlugin。 今のところ「注目のエントリー」のみ対応。 はてぶはそれぞれのページでフィード吐いてるけど、大量に購読するときとかにだるいからさー。 以下がコード。 こういうのこそ、 CodeRepos使いたいところだけど、 Subversion使ったことない小学生なので、ちょっと待ってね。 勉強するから！

package Plagger::Plugin::Subscription::HatenaBookmark;
use strict;
use base qw( Plagger::Plugin );

use Plagger::Util;
use URI;
use URI::Escape;

our $VERSION = '0.01';

sub register {
    my($self, $context) = @_;
    $context->register_hook(
        $self,
        'subscription.load' => \&load,
    );
}

sub load {
    my($self, $context) = @_;
        foreach my $tag ( @{$self->conf->{tags}} ){
                my $uri = "http://b.hatena.ne.jp/t/" . 
                        URI::Escape::uri_escape_utf8($tag)    ."?mode=rss&sort=hot&threshold=3";
                $context->log(info=> $uri);
                my $feed = Plagger::Feed->new;
                $feed->url($uri);
                $context->subscription->add($feed);
        }
}

1;

__END__

=head1 NAME

Plagger::Plugin::Subscription::HatenaBookmark

=head1 SYNOPSIS

  - module: Subscription::HatenaBookmark
    config:
      tags:
        - plagger
        - catalyst

=head1 AUTHOR

Yusuke Wada

=head1 SEE ALSO

L<Plagger>

=cut