From 9318ebc5a59e237628457e379d7be3ece5f8d704 Mon Sep 17 00:00:00 2001
From: Daouda Lo <daouda@mandriva.com>
Date: Fri, 9 Jul 2004 10:33:56 +0000
Subject: rewrite big chunks of code, added mdkonline.pm

---
 mdkapplet | 15 +++++----------
 1 file changed, 5 insertions(+), 10 deletions(-)

(limited to 'mdkapplet')

diff --git a/mdkapplet b/mdkapplet
index 7ebd8c2c..fa94a977 100755
--- a/mdkapplet
+++ b/mdkapplet
@@ -21,10 +21,13 @@
 ################################################################################
 
 use strict;
-use lib qw(/usr/lib/libDrakX);
+use lib qw(/usr/lib/libDrakX /usr/lib/libDrakX/drakfirsttime);
 use common;
+use mdkonline;
+
 use Digest::MD5;
 
+
 BEGIN { unshift @::textdomains, 'mdkonline' }
 
 use Gtk2::TrayIcon;
@@ -208,19 +211,11 @@ sub silentCheck {
     my $link = "http://www.mandrakeonline.net/online3_RemoteAction.php" . '?action=UpdateList';
     my %h = getVarsFromSh($conffile); 
     my $u;
-    require LWP::UserAgent;
-    require HTTP::Request::Common;
-    require HTTP::Request;
     logIt(N("Computing new updates...\n"));
-    my $ua = LWP::UserAgent->new;
-    $ua->agent("MdkAppletAgent/0.1" . $ua->agent);
-    $ua->env_proxy;
-    #    my $request = HTTP::Request->new(GET => $link . '&log=' . "ayomigration" . '&host=' . "online");
-    my $request = HTTP::Request->new(GET => $link . '&log=' . $h{LOGIN} . '&host=' . $h{MACHINE});
     my $lnk = $link . '&log=' . $h{LOGIN} . '&host=' . $h{MACHINE};
     logIt(N("Connecting to") . " $lnk ...\n");
     gtkflush(); go2State('busy'); gtkflush();
-    my $response = $ua->request($request);
+    my $response = mdkonline::get_from_URL($link, 'MdkAppletAgent/0.1');
     my $ct = $response->content;
 #    print "\nCONTENTS = $ct\n";
 #    logIt(N("Response from MandrakeOnline server\n") . "$ct");
-- 
cgit v1.2.1