plaggerでtdiaryなサイトのEntryFullText

tdiary.pl

sub handle {
    my($self, $args) = @_;
    return 1 if $args->{content} =~ m!<meta name="generator" content="tDiary!;
    return;
}

sub extract {
    my($self, $args) = @_;
    my $body = ($args->{content} =~ m!<div class="body">(.*?)</div>!s)[0];
    $body;
}