my (undef, $tmpfile) = tempfile('videosite.tmp.XXXXXXXXXXXX', DIR => $dirname);
+ if (exists($video->{'CONNECTOR'})) {
+ my $schemas = $video->{'CONNECTOR'}->{'schemas'};
+ foreach (keys(%{$schemas})) {
+ $self->debug("Setting %s_proxy to %s", $_, $schemas->{$_});
+ $ENV{ $_.'_proxy'} = $schemas->{$_};
+ }
+ }
+
$cookie = "-H \"Cookie: $video->{'COOKIE'}\"" if (defined $video->{'COOKIE'});
my $cmdline = "( GET $cookie \"$video->{'DLURL'}\" > \"$tmpfile\" && mv \"$tmpfile\" \"$dlfile\" && chmod =rw \"$dlfile\" || rm -f \"$tmpfile\" ) &";
$self->debug(encode_base64($cmdline));
my (undef, $tmpfile) = tempfile('videosite.tmp.XXXXXXXXXXXX', DIR => $dirname);
+ if (exists($video->{'CONNECTOR'})) {
+ my $schemas = $video->{'CONNECTOR'}->{'schemas'};
+ foreach (keys(%{$schemas})) {
+ $self->debug("Setting %s_proxy to %s", $_, $schemas->{$_});
+ $ENV{ $_.'_proxy'} = $schemas->{$_};
+ }
+ }
+
$cookie = "--header=\"Cookie: $video->{'COOKIE'}\"" if (defined $video->{'COOKIE'});
my $cmdline = "( wget -q -O\"$tmpfile\" $cookie \"$video->{'DLURL'}\" && mv \"$tmpfile\" \"$dlfile\" && chmod =rw \"$dlfile\" && touch \"$dlfile\" || rm -f \"$tmpfile\" ) &";
$self->debug("Going to execute: %s", $cmdline);