|
Revision 1711
(checked in by taro, 2 years ago)
|
Added assets handling dailymotion
|
| Line | |
|---|
| 1 |
use URI::Escape; |
|---|
| 2 |
|
|---|
| 3 |
sub handle { |
|---|
| 4 |
my ($self, $url) = @_; |
|---|
| 5 |
$url =~ qr!http://www\.dailymotion\.com.*?/video/\w+?_[^/]+$!; |
|---|
| 6 |
} |
|---|
| 7 |
|
|---|
| 8 |
sub find { |
|---|
| 9 |
my ($self, $args) = @_; |
|---|
| 10 |
my $url = $args->{url}; |
|---|
| 11 |
|
|---|
| 12 |
if ($args->{content} =~ m!"url=(.*?)\.flv&duration=!gms){ |
|---|
| 13 |
my $enclosure_uri = uri_unescape($1); |
|---|
| 14 |
my($filename) = $enclosure_uri =~ m!/flv/(\d+\.flv)\?!; |
|---|
| 15 |
my $enclosure = Plagger::Enclosure->new; |
|---|
| 16 |
$enclosure->url($enclosure_uri); |
|---|
| 17 |
$enclosure->type('video/flv'); |
|---|
| 18 |
$enclosure->filename($filename); |
|---|
| 19 |
return $enclosure; |
|---|
| 20 |
} |
|---|
| 21 |
|
|---|
| 22 |
return; |
|---|
| 23 |
} |
|---|
| 24 |
|
|---|
