git://git.camperquake.de
/
videosite.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
- Add DoubleViking grabber
[videosite.git]
/
videosite
/
DailyMotionGrabber.pm
diff --git
a/videosite/DailyMotionGrabber.pm
b/videosite/DailyMotionGrabber.pm
index
8cea83c
..
b77c119
100644
(file)
--- a/
videosite/DailyMotionGrabber.pm
+++ b/
videosite/DailyMotionGrabber.pm
@@
-14,7
+14,7
@@
sub new {
my $self = $class->SUPER::new();
$self->{'NAME'} = 'dailymotion';
my $self = $class->SUPER::new();
$self->{'NAME'} = 'dailymotion';
- $self->{'PATTERNS'} = ['(http://(?:[-a-zA-Z0-9_.]+\.)*
.dailymotion.com/(?:[^/]+/)*video/([-a-zA-Z0-9_]+
)'];
+ $self->{'PATTERNS'} = ['(http://(?:[-a-zA-Z0-9_.]+\.)*
dailymotion.com/(?:[^/]+/)*video/([-a-zA-Z0-9_]+)
)'];
bless($self, $class);
bless($self, $class);
@@
-58,14
+58,17
@@
sub _parse {
if ('meta' eq $e->[0]) {
if ('title' eq $e->[1]->{'name'}) {
$metadata->{'TITLE'} = $e->[1]->{'content'};
if ('meta' eq $e->[0]) {
if ('title' eq $e->[1]->{'name'}) {
$metadata->{'TITLE'} = $e->[1]->{'content'};
+ $metadata->{'TITLE'} =~ s/^Dailymotion\s*:\s*//;
}
}
}
# Look for the download URL
foreach $e (@text) {
}
}
}
# Look for the download URL
foreach $e (@text) {
- if ($e->[0] =~ m|\.add
_variable("url", "([^\"]+)")
|) {
+ if ($e->[0] =~ m|\.add
Variable\("url", "([^\"]+)"
|) {
$metadata->{'DLURL'} = $1;
$metadata->{'DLURL'} = $1;
+ $metadata->{'DLURL'} =~ s/%(..)/chr(hex($1))/ge;
+
}
}
}
}