|
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 | |
|---|
| 1 | sub handle { |
|---|
| 2 | my ($self, $url) = @_; |
|---|
| 3 | $url =~ qr!http://kichiku\.oq\.la/show/\d+!; |
|---|
| 4 | } |
|---|
| 5 | |
|---|
| 6 | sub 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 | } |
|---|