From 69202011679a095a4bcc1270143349d25f45799e Mon Sep 17 00:00:00 2001
From: Daouda Lo <daouda@mandriva.com>
Date: Sun, 17 Feb 2002 21:38:46 +0000
Subject: - update

---
 mdkupdate | 44 ++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 44 insertions(+)

diff --git a/mdkupdate b/mdkupdate
index c47fe730..6f6f5ac2 100755
--- a/mdkupdate
+++ b/mdkupdate
@@ -26,6 +26,7 @@ use HTTP::Request;
 use HTTP::Request::Common;
 use LWP::UserAgent;
 use MDK::Common;
+use lib qw(/usr/lib/libDrakX);
 use Locale::GetText;
 
 #- I18N.
@@ -53,6 +54,49 @@ usage:
     exit(0);
 }
 
+#parse the file and leave the comments out
+my @parsed = grep {!/^#/} parse_file("/root/.mdkupdate"); 
+		   
+# authenticate before 
+my $valid_customer = connect_site("http://mandrakeonline.net/online_user.php");
+
+
+`urpmi.addmedia --update security_$parsed[3] $parsed[4] with ../base/hdlist.cz`;
+
+sub connect_site () {
+    my ($url) =@_;
+    my $result = -1;
+    my $login = $parsed[1];
+    my $passwd= $parsed[2];
+    
+    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);
+	#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;
+	}
+    } else {
+	$result = -1; # not needed, but this way it's clear
+    }
+    
+    # if correct, return 1
+    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;
+    }
+}
+
 sub parse_file {
     my ($file)=@_; 
     my @list_hosts;
-- 
cgit v1.2.1