Blog Developer's Cookbook : RSS をメールで送信する (HTML メール編)

RSS をメールで送信する (HTML メール編)

RSS をメールで送信するでは、RSS のエントリを普段使いなれた MUA (メーラ) で閲覧する方法を紹介しました。しかし RSS の description だけというのもちょっと味気ないものです。今回はさらに進んで、HTML メールを受信することによって、コンテンツをより見易い形で送信するように改良してみます。

HTML メールの送信

今回は、RSS によって受信したコンテンツを、HTML メール化するスクリプトを作成してみます。rss2email では、description 要素をテキストで出していただけですので、ちょっと読みづらいものでしたが、HTML にして出すことにより、メーラ内である程度エントリが完結して読めるようになり、より MUA を RSS Aggregator に近い使用感で扱うことができるようになります。

content モジュール

<item rdf:about="http://example.org/item/"> <title>The Example Item</title> <link>http://example.org/item/</link> <content:encoded> <![CDATA[<p>What a <em>beautiful</em> day!</p>]]> </content:encoded> </item>

サンプルコード

my $mime = MIME::Lite->new( From => $MailTo, To => $MailTo, Subject => encode('MIME-Header' => $item->{title}), Type => 'multipart/alternative', Datestamp => 0, Date => HTTP::Date::time2str($epoch), );

$mime->attach( Type => 'text/plain; charset=UTF-8', Data => encode('UTF-8' => $textpart), ); $mime->attach( Type => 'text/html; charset=UTF-8', Data => encode('UTF-8' => $htmlpart), ) if $htmlpart;

実行例

MIME::Lite::HTML

See Also

Listings

List 1: rss2htmlmail.pl

#!/usr/local/bin/perl -w
# rss2htmlmail - send HTML email from RSS feed

use strict;
use Digest::MD5 qw(md5_hex);
use Encode;
use File::stat;
use HTTP::Date;
use LWP::Simple;
use MIME::Lite;
use XML::RSS;

our $CacheDir = "rsscache";
our $MailTo   = 'you@example.com';

mkdir $CacheDir, 0755 unless -e $CacheDir;

my $rss    = shift or die "Usage: rss2htmlmail URL\n";
my $digest = md5_hex($rss);
my $cache  = "$CacheDir/$digest.xml";

my $lastmod = -e $cache ? stat($cache)->mtime : 0;
my $status = LWP::Simple::mirror($rss, $cache);

if ($status == RC_NOT_MODIFIED) {
    warn "$rss not modified\n";
} elsif (is_error($status)) {
    die "$rss not found!\n";
} elsif (is_success($status)) {
    proc_rss($cache, $lastmod);
}

sub proc_rss {
    my($xml, $lastmod) = @_;
    my $rss = XML::RSS->new();
    $rss->add_module(
        prefix => 'content',
        uri => 'http://purl.org/rss/1.0/modules/content/',
    );
    $rss->parsefile($xml);

    for my $item (@{$rss->{items}}) {
        my $dc_date = $item->{dc}->{date}
            or die "RSS should have dc:date element";
        my $epoch = HTTP::Date::str2time($dc_date);
        if ($epoch > $lastmod) {
            do_sendmail($rss, $item, $epoch);
        } else {
            last;
        }
    }
}

sub do_sendmail {
    my($rss, $item, $epoch) = @_;
    my $textpart = <<BODY;
New entry arrived for $rss->{channel}->{title}
$item->{link}
>> $item->{description}
BODY
    ;
    my $htmlpart = $item->{content}->{encoded};

    my $mime = MIME::Lite->new(
        From => $MailTo,
        To   => $MailTo,
        Subject => encode('MIME-Header' => $item->{title}),
        Type => 'multipart/alternative',
        Datestamp => 0,
        Date => HTTP::Date::time2str($epoch),
    );

    $mime->attach(
        Type => 'text/plain; charset=UTF-8',
        Data => encode('UTF-8' => $textpart),
    );
    $mime->attach(
        Type => 'text/html; charset=UTF-8',
        Data => encode('UTF-8' => $htmlpart),
    ) if $htmlpart;

    $mime->send();
}

*1) Movable Type で content:encoded を出力するには NDO::Weblog: RSSリーダーで段落整形させて表示させる方法を参照してください。blosxom で content:encoded を出力するには rss10 plugin を使用します。
*2) HTML のエンコーディングを事前に設定する必要があり、ちょっと使いにくいのが難点です。