diff options
| author | Daouda Lo <daouda@mandriva.com> | 2004-03-15 10:38:12 +0000 |
|---|---|---|
| committer | Daouda Lo <daouda@mandriva.com> | 2004-03-15 10:38:12 +0000 |
| commit | 4644c70907e894dc0fc20c2e1f739fe2524fe56e (patch) | |
| tree | 34c529eab313687ea5efc41565256ef10ef3c0ce | |
| parent | aa5a7b01d64834e95c2aa29143fe89c1005ef424 (diff) | |
| download | mgaonline-4644c70907e894dc0fc20c2e1f739fe2524fe56e.tar mgaonline-4644c70907e894dc0fc20c2e1f739fe2524fe56e.tar.gz mgaonline-4644c70907e894dc0fc20c2e1f739fe2524fe56e.tar.bz2 mgaonline-4644c70907e894dc0fc20c2e1f739fe2524fe56e.tar.xz mgaonline-4644c70907e894dc0fc20c2e1f739fe2524fe56e.zip | |
- add proxy support
| -rwxr-xr-x | mdkupdate | 3 |
1 files changed, 3 insertions, 0 deletions
@@ -149,6 +149,7 @@ sub getFromURL { my ($link) = @_; my $ua = LWP::UserAgent->new; $ua->agent("MdkUpdateAgent/$VERSION" . $ua->agent); + $ua->env_proxy; my $request = HTTP::Request->new(GET => $link); my $response = $ua->request($request); $response @@ -175,6 +176,7 @@ sub send_config { my $ua = LWP::UserAgent->new; $ua->agent("MdkOnlineAgent/$VERSION" . $ua->agent); + $ua->env_proxy; my $response = $ua->request(POST 'https://www.mandrakeonline.net/wizard.php', Content_Type => 'form-data', @@ -250,6 +252,7 @@ sub send_rpm_dif { -s "/root/$login.$password.$box_name.$oldkey.dif" or die N("System is up to date"); my $ua = LWP::UserAgent->new; $ua->agent("MdkOnlineAgent/$VERSION" . $ua->agent); + $ua->env_proxy; my $response = $ua->request(POST "https://www.mandrakeonline.net/online_dif.php", Content_Type => 'form-data', |