From 6d195b37ef7728d6591842cfc71c8641aa1f3f1b Mon Sep 17 00:00:00 2001
From: Romain d'Alverny <rdalverny@mandriva.org>
Date: Thu, 2 Sep 2004 02:40:07 +0000
Subject: Fix $lnk typo and libraries order call

---
 mdkapplet | 14 ++++++++------
 1 file changed, 8 insertions(+), 6 deletions(-)

diff --git a/mdkapplet b/mdkapplet
index 391beb19..ba9c1a45 100755
--- a/mdkapplet
+++ b/mdkapplet
@@ -21,20 +21,21 @@
 ################################################################################
 
 use strict;
-use lib qw(/usr/lib/libDrakX /usr/lib/libDrakX/drakfirsttime);
+use lib qw(/usr/lib/libDrakX);
 use common;
-use mdkonline;
 
 use Gtk2::Pango;
 use Digest::MD5;
 
 BEGIN { unshift @::textdomains, 'mdkonline' }
-use ugtk2;
+use ugtk2 qw (:all);
 
+use lib qw(/usr/lib/libDrakX/drakfirsttime);
+use mdkonline;
 use Gtk2::TrayIcon;
 
 my ($eventbox, $img);
-add_icon_path("/usr/share/mdkonline/pixmaps/");
+ugtk2::add_icon_path("/usr/share/mdkonline/pixmaps/");
 my ($menu, $timeout, $refreshtm);
 my $nowindow = 1;
 my $arch = arch();
@@ -218,9 +219,10 @@ sub silentCheck {
     my %h = getVarsFromSh($conffile); 
     my $u;
     logIt(N("Computing new updates...\n"));
-    my $lnk = $link . '&log=' . $h{LOGIN} . '&host=' . $h{MACHINE};
-    logIt(N("Connecting to") . " $lnk ...\n");
+    my $link = $link . '&log=' . $h{LOGIN} . '&host=' . $h{MACHINE};
+    logIt(N("Connecting to") . " $link ...\n");
     gtkflush(); go2State('busy'); gtkflush();
+    print "$link\n";
     my $response = mdkonline::get_from_URL($link, 'MdkAppletAgent/0.1');
     my $ct = $response->content;
     print "\nCONTENTS = $ct\n";
-- 
cgit v1.2.1