From d8817f84f56edf81d6f9bde1e55181b9cccc91eb Mon Sep 17 00:00:00 2001 From: Daouda Lo Date: Wed, 27 Feb 2002 17:20:55 +0000 Subject: - code update --- mdkupdate | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) (limited to 'mdkupdate') diff --git a/mdkupdate b/mdkupdate index 6f6f5ac2..be3bb8c9 100755 --- a/mdkupdate +++ b/mdkupdate @@ -72,14 +72,13 @@ sub connect_site () { if ($login && $passwd && $login !~ /\s+/ && $passwd !~ /\s+/) { my $ua = LWP::UserAgent->new; $ua->agent("MdkUpdateAgent/0.15" . $ua->agent); - my $request = HTTP::Request->new(GET => $url.'?log='.$login.'&pass='.$passwd); + my $request = HTTP::Request->new(GET => $url.'?log='.$login.'&pass='.$passwd.'$name_machine'); #add hostname to authentication. my $response = $ua->request($request); # Check the outcome of the response if ($response->is_success) { $result = ($response->content =~ /TRUE/) ? 0 : -1; } else { - # pb with the connection ? stay on page 2 print STDERR _("Connection problem")."\n"._("MandrakeOnline could not be contacted, we will try again"); return; } @@ -91,7 +90,6 @@ sub connect_site () { if (! $result) { $result; } else { - # if incorrect, clear passwd and stay on page 2 print STDERR _("Wrong password")."\n"._("Your login or password was wrong")."\n"._("You'll need to have an account on MandrakeOnline, or update your subscription. For any problems send mail to support@mandrakeonline.com"); return -1; } -- cgit v1.2.1