summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorDaouda Lo <daouda@mandriva.com>2002-02-27 17:20:55 +0000
committerDaouda Lo <daouda@mandriva.com>2002-02-27 17:20:55 +0000
commitd8817f84f56edf81d6f9bde1e55181b9cccc91eb (patch)
treeaf69ccf365efbefcddd7729c2e61613acda4c4e9
parent759c763dadf1c7a8ae8f2090ded236cf8bf8cb4c (diff)
downloadmgaonline-d8817f84f56edf81d6f9bde1e55181b9cccc91eb.tar
mgaonline-d8817f84f56edf81d6f9bde1e55181b9cccc91eb.tar.gz
mgaonline-d8817f84f56edf81d6f9bde1e55181b9cccc91eb.tar.bz2
mgaonline-d8817f84f56edf81d6f9bde1e55181b9cccc91eb.tar.xz
mgaonline-d8817f84f56edf81d6f9bde1e55181b9cccc91eb.zip
- code update
-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;
}