git://git.camperquake.de
/
videosite.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(from parent 1:
194c195
)
- Test routines to track down UTF-8 weirdness
author
Ralf Ertzinger
<sun@ryoko.camperquake.de>
Sun, 20 Jan 2008 15:35:21 +0000
(16:35 +0100)
committer
Ralf Ertzinger
<sun@ryoko.camperquake.de>
Sun, 20 Jan 2008 15:35:21 +0000
(16:35 +0100)
videosite/AsyncFileGetter.pm
patch
|
blob
|
history
diff --git
a/videosite/AsyncFileGetter.pm
b/videosite/AsyncFileGetter.pm
index
04e8226
..
3610584
100644
(file)
--- 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;