summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorDaouda Lo <daouda@mandriva.com>2004-03-03 11:09:20 +0000
committerDaouda Lo <daouda@mandriva.com>2004-03-03 11:09:20 +0000
commit66d53085ef8302c1abfeefcaed9313bcba82e316 (patch)
treee070f132e58ee601b8e1c9cbaabfcd02d4a4d3a8
parentdc5ff9dba592685df6d232e91ab2f9ea9bb0e3a5 (diff)
downloadmgaonline-66d53085ef8302c1abfeefcaed9313bcba82e316.tar
mgaonline-66d53085ef8302c1abfeefcaed9313bcba82e316.tar.gz
mgaonline-66d53085ef8302c1abfeefcaed9313bcba82e316.tar.bz2
mgaonline-66d53085ef8302c1abfeefcaed9313bcba82e316.tar.xz
mgaonline-66d53085ef8302c1abfeefcaed9313bcba82e316.zip
- add proxy support
-rwxr-xr-xmdkonline4
1 files changed, 3 insertions, 1 deletions
diff --git a/mdkonline b/mdkonline
index a73409c2..3d42047f 100755
--- a/mdkonline
+++ b/mdkonline
@@ -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);