diff options
Diffstat (limited to 'mdkapplet')
| -rwxr-xr-x | mdkapplet | 7 |
1 files changed, 3 insertions, 4 deletions
@@ -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")); |