diff options
| author | Daouda Lo <daouda@mandriva.com> | 2004-03-03 11:09:20 +0000 |
|---|---|---|
| committer | Daouda Lo <daouda@mandriva.com> | 2004-03-03 11:09:20 +0000 |
| commit | 66d53085ef8302c1abfeefcaed9313bcba82e316 (patch) | |
| tree | e070f132e58ee601b8e1c9cbaabfcd02d4a4d3a8 | |
| parent | dc5ff9dba592685df6d232e91ab2f9ea9bb0e3a5 (diff) | |
| download | mgaonline-66d53085ef8302c1abfeefcaed9313bcba82e316.tar mgaonline-66d53085ef8302c1abfeefcaed9313bcba82e316.tar.gz mgaonline-66d53085ef8302c1abfeefcaed9313bcba82e316.tar.bz2 mgaonline-66d53085ef8302c1abfeefcaed9313bcba82e316.tar.xz mgaonline-66d53085ef8302c1abfeefcaed9313bcba82e316.zip | |
- add proxy support
| -rwxr-xr-x | mdkonline | 4 |
1 files changed, 3 insertions, 1 deletions
@@ -221,6 +221,7 @@ sub sendConfig { close (FILEOUT); my $ua = LWP::UserAgent->new; $ua->agent("MdkOnlineAgent/0.15" . $ua->agent); + $ua->env_proxy; my $w = wait_msg(N("Sending configuration...")); my $response = $ua->request(POST 'http://www.mandrakeonline.net/wizard.php', @@ -312,7 +313,8 @@ sub testPasswd () { my $w = wait_msg(("Connecting ...\n")); $passwd = md5_hex($passwd); # or md5 () or md5_base64 () my $ua = LWP::UserAgent->new; - $ua->agent("MdkOnlineAgent/0.15" . $ua->agent); + $ua->agent("MdkOnlineAgent/0.15" . $ua->agent); + $ua->env_proxy; my $request = HTTP::Request->new(GET => 'http://www.mandrakeexpert.com/firsttimewizard/validusercheck.php?u=' . $login . '&p=' . $passwd); my $response = $ua->request($request); remove_wait_msg($w); |