summaryrefslogtreecommitdiffstats
path: root/mdkapplet
diff options
context:
space:
mode:
Diffstat (limited to 'mdkapplet')
-rwxr-xr-xmdkapplet7
1 files changed, 3 insertions, 4 deletions
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"));