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
- Fix typo
[videosite.git]
/
videosite
/
FileGetter.pm
diff --git
a/videosite/FileGetter.pm
b/videosite/FileGetter.pm
index
a01c285
..
66f5f0d
100644
(file)
--- a/
videosite/FileGetter.pm
+++ b/
videosite/FileGetter.pm
@@
-1,7
+1,13
@@
-package FileGetter;
+# (c) 2007 by Ralf Ertzinger <ralf@camperquake.de>
+# licensed under GNU GPL v2
+#
+# A getter which will download the media to a local file storage
+#
-use GetterBase;
-@ISA = qw(GetterBase);
+package videosite::FileGetter;
+
+use videosite::GetterBase;
+@ISA = qw(videosite::GetterBase);
use strict;
use LWP::Simple qw(!get);
use strict;
use LWP::Simple qw(!get);
@@
-25,9
+31,10
@@
sub get {
my $video = shift;
my $dlfile;
my $dirname;
my $video = shift;
my $dlfile;
my $dirname;
+ my $res;
$dlfile = sprintf($self->_getval('FILEPATTERN'),
$dlfile = sprintf($self->_getval('FILEPATTERN'),
- $self->_encode($video->{'
TYP
E'}),
+ $self->_encode($video->{'
SOURC
E'}),
$self->_encode($video->{'ID'}),
$self->_encode($video->{'TITLE'}),
$self->_encode($video->{'DLURL'}),
$self->_encode($video->{'ID'}),
$self->_encode($video->{'TITLE'}),
$self->_encode($video->{'DLURL'}),
@@
-41,8
+48,8
@@
sub get {
$self->debug('Going to download %s to %s', $video->{'DLURL'}, $dlfile);
$self->debug('Going to download %s to %s', $video->{'DLURL'}, $dlfile);
- if (200 !=
LWP::Simple::mirror($video->{'DLURL'}, $dlfile
)) {
- $self->error('Could not download %s to %s
', $video->{'DLURL'}, $dlfile
);
+ if (200 !=
($res = LWP::Simple::mirror($video->{'DLURL'}, $dlfile)
)) {
+ $self->error('Could not download %s to %s
(%s)', $video->{'DLURL'}, $dlfile, $res
);
return 0;
}
return 0;
}