+# Grabber for dailymotion.com
#
-# download strategy revised using
-# http://www.kde-apps.org/content/show.php?content=41456
+# (c) 2007 by Ralf Ertzinger <ralf@camperquake.de>
+# licensed under GNU GPL v2
package DailyMotionGrabber;
my $class = shift;
my $self = $class->SUPER::new();
- $self->{'NAME'} = 'youtube';
- $self->{'PATTERNS'} = ['(http://(?:[-a-zA-Z0-9_.]+\.)*.dailymotion.com/(?:[^/]+/)*video/([-a-zA-Z0-9_]+)'];
+ $self->{'NAME'} = 'dailymotion';
+ $self->{'PATTERNS'} = ['(http://(?:[-a-zA-Z0-9_.]+\.)*dailymotion.com/(?:[^/]+/)*video/([-a-zA-Z0-9_]+))'];
bless($self, $class);
+ $self->_prepare_parameters();
+
return $self;
}
$metadata->{'URL'} = $url;
$metadata->{'ID'} = $2;
$metadata->{'TYPE'} = 'video';
- $metadata->{'SOURCE'} = 'dailymotion';
+ $metadata->{'SOURCE'} = $self->{'NAME'};
$metadata->{'TITLE'} = undef;
$metadata->{'DLURL'} = undef;
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) {
- if ($e->[0] =~ m|\.add_variable("url", "([^\"]+)")|) {
+ if ($e->[0] =~ m|\.addVariable\("url", "([^\"]+)"|) {
$metadata->{'DLURL'} = $1;
+ $metadata->{'DLURL'} =~ s/%(..)/chr(hex($1))/ge;
+
}
}