fhatena.pl

「fhatena.pl」の編集履歴（バックアップ）一覧はこちら

「fhatena.pl」(2008/12/22 (月) 00:14:34) の最新版変更点

追加された行は緑色になります。

削除された行は赤色になります。

//perl
sub init {
    my $self = shift;
    $self->{domain} = "f.hatena.ne.jp";
    $self->{handle} = ".";
}

sub needs_content { 0 }

sub find {
    my ($self, $args) = @_;
    my $uri = URI->new($args->{url});
    my ($user, $fotoid) = $uri->path =~ m!/(.+)/(\d+)!
        or return;

    my $enclosure = Plagger::Enclosure->new;
    $enclosure->url("http://f.hatena.ne.jp/tools/flvplayer.swf?user=$user&fotoid=$fotoid");
    $enclosure->type('application/x-shockwave-flash');
    $enclosure->width(480);
    $enclosure->height(396);
    return $enclosure;
}