From f4e967629fadde25e2cb91c8edc1c61d4c9a06b1 Mon Sep 17 00:00:00 2001 From: Ralf Ertzinger Date: Sun, 6 Jan 2008 00:26:16 +0100 Subject: [PATCH] - Print an error code if FileGetter fails to get a file --- videosite/FileGetter.pm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/videosite/FileGetter.pm b/videosite/FileGetter.pm index 8c3420d..b3c2660 100644 --- a/videosite/FileGetter.pm +++ b/videosite/FileGetter.pm @@ -31,6 +31,7 @@ sub get { my $video = shift; my $dlfile; my $dirname; + my $res; $dlfile = sprintf($self->_getval('FILEPATTERN'), $self->_encode($video->{'SOURCE'}), @@ -47,8 +48,8 @@ sub get { $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; } -- 1.8.3.1