root/lang/perl/plagger/assets/plugins/Filter-FindEnclosures/kichikutter.pl

Revision 1041, 444 bytes (checked in by mattn, 10 months ago)

lang/perl/plagger/assets/plugins/Filter-FindEnclosures?/kichikutter.pl: fixed a bug for escape regex.

Line 
1sub handle {
2    my ($self, $url) = @_;
3    $url =~ qr!http://kichiku\.oq\.la/show/\d+!;
4}
5
6sub find {
7    my($self, $args) = @_;
8
9    my $uri = $args->{url} =~ qr!http://kichiku\.oq\.la/show/(\d+)! ? $1 : undef;
10   if ($uri) {
11        my $enclosure = Plagger::Enclosure->new;
12        $uri = "http://kichiku.oq.la/images/$1.jpg";
13        $enclosure->url($uri);
14        $enclosure->auto_set_type;
15        return $enclosure;
16    }
17
18    return;
19}
Note: See TracBrowser for help on using the browser.