otsune's SnakeOil

サイエンスチャンネルのRemedie設定を書いた

remedie |

汎用的なFilter-FindEnclosures/asx.plによって見られなくもなかったんだけど。

という感じでファイル名しか表示されなくて何の動画だか分からないので。

CustomFeed-FindLinks/sc_smm_jst.yaml

# upgrades http://sc-smn.jst.go.jp/index.asp
# author: otsune
domain: sc-smn.jst.go.jp
handle: (?:/\d)?/(?:series|index)\.asp
follow_link: /\d/bangumi\.asp

Filter-FindEnclosures/sc_smm_jst.pl

# http://sc-smn.jst.go.jp/index.asp
# author: otsune
use Web::Scraper;
sub init {
    my $self = shift;
    $self->{domain} = "sc-smn.jst.go.jp";
    $self->{handle} = "/bangumi.asp";
}

sub needs_content { 1 }

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

    my $res = scraper {
        process "//a[contains(\@href, '.asx')]", asx_url => '@href';
        process "//img[\@width='133' and \@height='100']", thumbnail => '@src';
    }->scrape($args->{content}, $args->{url});

    my $enclosure = Plagger::Enclosure->new;
    $enclosure->url($res->{asx_url});
    $enclosure->type("video/x-ms-asf");
    $enclosure->thumbnail({ url => $res->{thumbnail} });
    return $enclosure;
}

これによって

こんな感じになって動画のタイトルが分かるようになる。