Hatena::Groupsubtech

ういはるかぜの化学

Monday, October 30, 2006

[] Filter::EntryFullText - nicky 01:56  Filter::EntryFullText - [http://www.din.or.jp/~raelian/ReadMeNicky.html:title=nicky] - ういはるかぜの化学 を含むブックマーク はてなブックマーク -  Filter::EntryFullText - [http://www.din.or.jp/~raelian/ReadMeNicky.html:title=nicky] - ういはるかぜの化学

assets/plugins/Filter-EntryFullText/nicky.pl

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

    return 1 if $args->{entry}->link =~ m!/nicky\.cgi\?DT=\d{8}[A-Z]!;
    return 1 if $args->{content} =~ m!<link rel="alternate" type="application/rss\+xml" title="[^"]*" href="[^"]*rssnicky\.cgi"/>!;
    return 1 if $args->{content} =~ m!accept-charset="[^"]*" action="[^"]*nicky\.cgi!;
    return;
}

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

    my $link = URI->new($args->{entry}->link);
    my $day = ( $link->query =~ m!^DT=(\d+[A-Z])! )[0];

    #require Plagger;
    #Plagger->context->log( debug => "Extract Nicky entry 'DT': $day" );

    my $body = ($args->{content} =~ m!<a name="$day"></a>(.*?)(<a name="\d{8}[A-Z]"|<form id="cfm)!s)[0];
    $body;
}

はてなのassetをマネて、nicky用のを作ってみたり。

トラックバック - http://subtech.g.hatena.ne.jp/mayuki/20061030