Plagger::Plugin::Filter::HatenaDiaryKeywordLink - HatenaDiary keyword link

Plagger documentation Contained in the Plagger distribution.

Index

Code Index:

NAME

Top

Plagger::Plugin::Filter::HatenaDiaryKeywordLink - HatenaDiary keyword link

SYNOPSIS

Top

  - module: Filter::HatenaDiaryKeywordLink

DESCRIPTION

Top

This plugin queries Hatena Diary (http://d.hatena.ne.jp/) using its Keyword AutoLink API to link to hatena keyword.

AUTHOR

Top

Tokuhiro Matsuno

SEE ALSO

Top

Plagger, http://d.hatena.ne.jp/keyword/%A4%CF%A4%C6%A4%CA%A5%C0%A5%A4%A5%A2%A5%EA%A1%BC%A5%AD%A1%BC%A5%EF%A1%BC%A5%C9%BC%AB%C6%B0%A5%EA%A5%F3%A5%AFAPI

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

use URI;
use XMLRPC::Lite;

our $XMLRPC_URL = 'http://d.hatena.ne.jp/xmlrpc';

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

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

    $context->log(info => "hatena diary keyword auto link start : " . $args->{entry}->link);

    my $rpc = XMLRPC::Lite->new;
    $rpc->proxy($XMLRPC_URL);
    my $body = $args->{entry}->body;

    my $res = $rpc->call('hatena.setKeywordLink' => {
        body => XMLRPC::Data->type('string', $body),
        a_target => '_blank',
        a_class => 'keyword',
    });

    if (my $fault = $res->fault){
        for (keys %{$fault}){
            $context->log(error => "hatena diary keyword auto link failed : $_ => " . $fault->{$_});
        }
    } else {
        $body = $res->result;
        $body =~ s/&lt;/</ig;
        $body =~ s/&gt;/>/ig;
        $body =~ s/&quot;/"/ig;
    }

    $args->{entry}->body($body);
}

1;

__END__