_ 101fwy.com「陸・海・空軍」板から写真をぶっこ抜き(仮)・その2

昨日の続き。

少しいじって「陸・海・空軍」板の全ての板からjpgのぶっこ抜きが出来るようにしてみた。

assets/plugins/Filter-FindEnclosures/101fwy.pl:

sub handle {
    my ($self, $url) = @_;
    $url =~ qr!http://(www\.)?101fwy\.com/\w+/(\d+\.htm)?!;
}

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

    my @enclosures_list;
    while ($args->{content} =~ m!<a href="(src/\d+\.jpg)" target=_blank>\d+\.jpg</a>!g) {
        my $enclosure = Plagger::Enclosure->new;
        $enclosure->url( URI->new_abs($1, $args->{url}) );
        $enclosure->auto_set_type;
        push @enclosures_list, $enclosure;
    }
    if (@enclosures_list) {
        return \@enclosures_list;
    }
    return;
}

lib/Plagger/Plugin/Filter/FindEnclosures.pmに以下のパッチを当てて、複数のenclosureも見付けられるようにしてみた（中身が汚いのはご愛嬌）。

でも、全然Plaggerの中身を理解していないので、もしかしたら、必要のない処理だったりするかも知れない。

--- lib/Plagger/Plugin/Filter/FindEnclosures.pm.orig   Tue Jul 18 16:22:56 2006
+++ lib/Plagger/Plugin/Filter/FindEnclosures.pm        Tue Jul 18 17:29:10 2006
@@ -150,8 +150,16 @@
             $content ||= $self->fetch_content($url) or return;

             if (my $enclosure = $plugin->find({ content => $content, url => $url })) {
-                Plagger->context->log(info => "Found enclosure " . $enclosure->url ." with " . $plugin->site_name);
-                $entry->add_enclosure($enclosure);
+                if (ref $enclosure) {
+                    for my $enclosure_val (@$enclosure) {
+                        Plagger->context->log(info => "Found enclosure " .  $enclosure_val->url ." with " . $plugin->site_name);
+                        $entry->add_enclosure($enclosure_val);
+                    }
+                }
+                else {
+                    Plagger->context->log(info => "Found enclosure " . $enclosure->url ." with " . $plugin->site_name);
+                    $entry->add_enclosure($enclosure);
+                }
                 return;
             }
         }

とりあえず、これで板に貼ってあるjpgが全部ぶっこ抜けるので、1日1回程度回してやれば良さげ。