X-Git-Url: https://git.camperquake.de/gitweb.cgi?a=blobdiff_plain;f=videosite%2FAsyncFileGetter.pm;h=3610584522ed9a2da5edfa973600c8d251e29b06;hb=0f99e523db38c4fec0abdbdf18f8173d44587a94;hp=04e8226c86d01b63b62472f76391ade9ed213c77;hpb=fbddf7dd61ff256a45764faaec97a3539aaeb200;p=videosite.git diff --git a/videosite/AsyncFileGetter.pm b/videosite/AsyncFileGetter.pm index 04e8226..3610584 100644 --- a/videosite/AsyncFileGetter.pm +++ b/videosite/AsyncFileGetter.pm @@ -15,6 +15,7 @@ use FileGetter; use strict; use LWP::Simple qw(!get); use File::Basename; +use MIME::Base64; sub new { my $class = shift; @@ -50,6 +51,7 @@ sub get { $self->debug('Going to download %s to %s', $video->{'DLURL'}, $dlfile); my $cmdline = "GET \"$video->{'DLURL'}\" > \"$dlfile\" &"; + $self->debug(encode_base64($cmdline)); system($cmdline); return 1;