summaryrefslogtreecommitdiffstats
path: root/mdkupdate
diff options
context:
space:
mode:
Diffstat (limited to 'mdkupdate')
-rwxr-xr-xmdkupdate4
1 files changed, 1 insertions, 3 deletions
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;
}