From 66d53085ef8302c1abfeefcaed9313bcba82e316 Mon Sep 17 00:00:00 2001
From: Daouda Lo <daouda@mandriva.com>
Date: Wed, 3 Mar 2004 11:09:20 +0000
Subject: - add proxy support

---
 mdkonline | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'mdkonline')

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);
-- 
cgit v1.2.1