diff options
| -rw-r--r-- | mdkonline.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/mdkonline.pm b/mdkonline.pm index cf35a8d7..be9ce8e4 100644 --- a/mdkonline.pm +++ b/mdkonline.pm @@ -23,12 +23,12 @@ my $onlineProxy = 'https://onine.mandriva.com/soap'; my $useragent = set_ua('mdkonline'); -my $s = is_proxy() ? SOAP::Lite->uri($uri)->proxy($serviceProxy, proxy => [ 'http' => $ENV{http_proxy} ], agent => $useragent) : SOAP::Lite->uri($uri)->proxy($serviceProxy, agent => $useragent); - sub is_proxy () { return 1 if defined $ENV{http_proxy}; } +my $s = is_proxy() ? SOAP::Lite->uri($uri)->proxy($serviceProxy, proxy => [ 'http' => $ENV{http_proxy} ], agent => $useragent) : SOAP::Lite->uri($uri)->proxy($serviceProxy, agent => $useragent); + sub md5file { require Digest::MD5; my @md5 = map { |