root/lang/perl/WWW-CommentGetter/trunk/WWW-CommentGetter/lib/WWW/CommentGetter/Plugin/Nowa.pm @ 1930

package WWW::CommentGetter::Plugin::Nowa;
use strict;
use warnings;
use utf8;
use Web::Scraper;
use WWW::CommentGetter::Plugin;

sub run {
    my ($self, $url) = @_;

    scrape_by_siteinfo $url => {
        url        => '^http://[^/.]+\.nowa\.jp/.*',
        context    => 'id("comment")/dl[@class="article-comment"]',
        attributes => {
            author => '//dd[@class="comment-author-name"]',
            date   => '//dd[@class="comment-author-day"]',
            body   => '//dd[@class="comment-body"]',
        }
    };
}

1;