From ddfa29a8ee314c1537fb4ba110d495b9de549164 Mon Sep 17 00:00:00 2001 From: Daouda Lo Date: Tue, 11 May 2004 16:53:32 +0000 Subject: - use mouse clock cursor when busy with applet busy icon. - decrease debug messages --- mdkapplet | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) (limited to 'mdkapplet') diff --git a/mdkapplet b/mdkapplet index 65d514b7..d12f8ece 100755 --- a/mdkapplet +++ b/mdkapplet @@ -176,7 +176,7 @@ sub setLabel { gtkflush(); } sub configNetwork { logIt(N("Launching drakconnect\n")); system "/usr/sbin/drakconnect &" } -sub installUpdates { logIt(N("Launching mdkupdate --applet\n")); system "/usr/sbin/mdkupdate", "--applet"; silentCheck() } +sub installUpdates { logIt(N("Launching mdkupdate --applet\n")); gtkset_mousecursor_wait(); system "/usr/sbin/mdkupdate", "--applet"; silentCheck(); gtkset_mousecursor_normal() } sub silentCheck { my $link = "http://www.mandrakeonline.net/online3_RemoteAction.php" . '?action=UpdateList'; my %h = getVarsFromSh($conffile); @@ -192,10 +192,11 @@ sub silentCheck { 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 $ct = $response->content; # print "\nCONTENTS = $ct\n"; - logIt(N("Response from MandrakeOnline server\n") . "$ct"); +# logIt(N("Response from MandrakeOnline server\n") . "$ct"); if ($ct =~ /rpm/) { $u = 11 } elsif ($ct =~ m/(\d+)/) { $u = sprintf("%d",$1); } else { $u = 10 }; # 99 - log or host or action or pass empty, wrong action # 98 - wrong pass @@ -330,8 +331,6 @@ sub checkUpdates { logIt(N("Checking config file: Not present\n")); go2State('noconfig') } else { - gtkflush(); - go2State('busy'); gtkflush(); silentCheck(); } setLabel($update_label, $isAvailable ? N("Available") : N("Not Available")); -- cgit v1.2.1