Plagger::Plugin::Filter::HatenaBookmarkUsersCount - Queries Hatena Bookmark users count

Plagger documentation Contained in the Plagger distribution.

Index

Code Index:

NAME

Top

Plagger::Plugin::Filter::HatenaBookmarkUsersCount - Queries Hatena Bookmark users count

SYNOPSIS

Top

  - module: Filter::HatenaBookmarkUsersCount

DESCRIPTION

Top

This plugin queries Hatena Bookmark (http://b.hatena.ne.jp/) how many people bookmarked each of feed entries, using its XMLRPC API bookmark.getCount.

Users count is stored in hatenabookmark_users metadata of Plagger::Entry so that other plugins or smartfeeds can make use of.

AUTHOR

Top

Kazuhiro Osawa, Tatsuhiko Miyagawa

SEE ALSO

Top

Plagger, http://d.hatena.ne.jp/keyword/%A4%CF%A4%C6%A4%CA%A5%D6%A5%C3%A5%AF%A5%DE%A1%BC%A5%AF%B7%EF%BF%F4%BC%E8%C6%C0API

Plagger documentation Contained in the Plagger distribution. 
package Plagger::Plugin::Filter::HatenaBookmarkUsersCount;
use strict;
use base qw( Plagger::Plugin );

use XMLRPC::Lite;

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

sub update {
    my($self, $context, $args) = @_;

    my @permalink = map $_->permalink, $args->{feed}->entries;

    while (my @links = splice(@permalink, 0, 50)) {
        $context->log(info => 'Requesting XMLRPC call to Hatena Bookmark with ' . scalar(@links) . ' link(s)');

        my $map = XMLRPC::Lite
            ->proxy('http://b.hatena.ne.jp/xmlrpc')
            ->call('bookmark.getCount', @links)
            ->result;

        unless ($map) {
            $context->log(warn => 'Hatena Bookmark XMLRPC failed');
            return;
        }

        $context->log(info => 'XMLRPC request success.');

        for my $entry ($args->{feed}->entries) {
            if (defined(my $count = $map->{$entry->permalink})) {
                $entry->meta->{hatenabookmark_users} = $count;
            }
        }
    }
}

1;

__END__