summaryrefslogtreecommitdiffstats
path: root/mdkapplet
diff options
context:
space:
mode:
Diffstat (limited to 'mdkapplet')
-rwxr-xr-xmdkapplet133
1 files changed, 73 insertions, 60 deletions
diff --git a/mdkapplet b/mdkapplet
index 2779482e..0f8b590f 100755
--- a/mdkapplet
+++ b/mdkapplet
@@ -22,6 +22,7 @@
use strict;
use lib qw(/usr/lib/libDrakX);
+use interactive;
use common;
use Gtk2::Pango;
@@ -34,15 +35,16 @@ use lib qw(/usr/lib/libDrakX/drakfirsttime);
use mdkonline;
use Gtk2::TrayIcon;
-my ($eventbox, $img);
+my $in = interactive->vnew('');
+
ugtk2::add_icon_path("/usr/share/mdkonline/pixmaps/");
-my ($menu, $timeout, $refreshtm, $networktm);
-my $nowindow = 1;
my $arch = arch();
my $online_site = "http://www.mandrakeonline.net/";
-my ($av_pkgs, $update_label, $lastch, $mLog, $buffer, $textview, $wlog, $textvw, $state_global);
-my ($need_update, $raisedwindow, $isAvailable) = (0, 0, 0);
+my ($menu, $timeout, $refreshtm, $networktm, $eventbox, $img, $av_pkgs, $update_label, $lastch, $mLog, $buffer, $textview, $wlog, $textvw, $state_global);
+my ($need_update, $raisedwindow, $isAvailable, $debug) = (0, 0, 0, 0);
+
my @proctable;
+
my $conffile = '/etc/sysconfig/mdkonline';
my $localdir = "$ENV{HOME}/.MdkOnline";
my $localfile = "$localdir/mdkonline";
@@ -61,11 +63,11 @@ my %state = (
tt => [ N_("Your system is up-to-date") ]
},
critical => {
- colour => [ 'noconf' ],
- changes => [ 'okay', 'busy', 'critical', 'disconnected' ],
- menu => [ 'configureApplet', 'check', 'weblink' ],
- tt => [ N_("Service configuration problem. Please check logs and send mail to support\@mandrakeonline.net") ]
- },
+ colour => [ 'noconf' ],
+ changes => [ 'okay', 'busy', 'critical', 'disconnected' ],
+ menu => [ 'configureApplet', 'check', 'weblink' ],
+ tt => [ N_("Service configuration problem. Please check logs and send mail to support\@mandrakeonline.net") ]
+ },
busy => {
colour => [ 'busy' ],
changes => [ 'okay', 'critical', 'error', 'disconnected' ],
@@ -73,41 +75,43 @@ my %state = (
tt => [ N_("System is busy. Please wait ...") ]
},
error => {
- colour => [ 'error' ],
- changes => [ 'okay' ],
- menu => [ 'update', 'check', 'weblink' ],
- tt => [ N_("New updates are available for your system") ]
- },
+ colour => [ 'error' ],
+ changes => [ 'okay' ],
+ menu => [ 'update', 'check', 'weblink' ],
+ tt => [ N_("New updates are available for your system") ]
+ },
noconfig => {
- colour => [ 'noconf' ],
- changes => [ 'okay' ],
- menu => [ 'weblink', 'register' ],
- tt => [ N_("Service is not configured. Please click on \"Configure the service\"") ]
- },
+ colour => [ 'noconf' ],
+ changes => [ 'okay' ],
+ menu => [ 'weblink', 'register' ],
+ tt => [ N_("Service is not configured. Please click on \"Configure the service\"") ]
+ },
disconnected => {
- colour => [ 'disconnect' ],
- changes => [ 'okay', 'busy', 'critical', 'error' ],
- menu => [ 'confNetwork' ],
- tt => [ N_("Network is down. Please configure your network") ]
- },
+ colour => [ 'disconnect' ],
+ changes => [ 'okay', 'busy', 'critical', 'error' ],
+ menu => [ 'confNetwork' ],
+ tt => [ N_("Network is down. Please configure your network") ]
+ },
disabled => {
- colour => [ 'disabled' ],
- changes => [ 'okay', 'busy', 'critical', 'error' ],
- menu => [ 'configureApplet', 'weblink' ],
- tt => [ N_("Service is not activated. Please click on \"Online Website\"") ]
- },
+ colour => [ 'disabled' ],
+ changes => [ 'okay', 'busy', 'critical', 'error' ],
+ menu => [ 'configureApplet', 'weblink' ],
+ tt => [ N_("Service is not activated. Please click on \"Online Website\"") ]
+ },
notsupported => {
- colour => [ 'disabled' ],
- changes => [ 'okay', 'busy', 'critical', 'error' ],
- menu => [ 'weblink' ],
- tt => [ N_("Release not supported (too old release, or development release)") ]
- }
+ colour => [ 'disabled' ],
+ changes => [ 'okay', 'busy', 'critical', 'error' ],
+ menu => [ 'weblink' ],
+ tt => [ N_("Release not supported (too old release, or development release)") ]
+ }
);
my %actions = (
'update' => { name => N("Install updates"), launch => sub { installUpdates() } },
'configureApplet' => { name => N("Configure the service"), launch => sub { configure() } },
- 'check' => { name => N("Check Updates"), launch => sub { checkUpdates() } },
+ 'check' => { name => N("Check Updates"), launch => sub {
+ my $w = $in->wait_message(N("Please Wait"), N("Check updates") . '...');
+ checkUpdates(); undef $w } },
'weblink' => { name => N("Online WebSite"), launch => sub { mdkonline::get_site($online_site, 'info.php') } },
'confNetwork' => { name => N("Configure Network"), launch => sub { configNetwork() } },
'register' => { name => N("Configure Now!"), launch => sub { configure() } }
@@ -130,6 +134,8 @@ $eventbox->signal_connect(button_press_event => sub {
my ($opt) = @ARGV;
if ($opt eq '--force' || $opt eq '-f') { setAutoStart('TRUE') };
+if ($opt eq '--debug') { $debug = 1}
+
shouldStart() or die "$localfile should be set to TRUE: please use --force or -f option to launch applet";
checkConfig();
@@ -157,19 +163,21 @@ sub showMainWindow() {
gtkpack_(Gtk2::VBox->new(0, 3),
1, gtksignal_connect(Gtk2::Button->new(N("Install updates")), clicked => sub { installUpdates() }),
1, gtksignal_connect(Gtk2::Button->new(N("Configure")), clicked => sub { configure() }),
- 1, gtksignal_connect(Gtk2::Button->new(N("Check updates")), clicked => sub { checkUpdates() }),
+ 1, gtksignal_connect(Gtk2::Button->new(N("Check updates")), clicked => sub {
+ my $w = $in->wait_message(N("Please Wait"), N("Check updates") . '...');
+ checkUpdates(); undef $w }),
1, gtksignal_connect(Gtk2::Button->new(N("See logs")), clicked => sub { if (defined $wlog) { $wlog->{window}->show } else { $wlog = displayLogs(); $wlog->main } }),
- )
- ),
+ )
+ ),
1, gtkadd(gtkset_shadow_type(Gtk2::Frame->new(N("Status")), 'etched_in'),
gtkpack_(Gtk2::VBox->new(0, 3),
1, create_scrolled_window(gtktext_insert($textvw, refresh_contents($state_global), wrap_mode => 'none')))),
0, gtkpack(Gtk2::HSeparator->new),
0, gtkpack(gtksignal_connect(Gtk2::Button->new(N("Close")), clicked => sub {
- if (defined $wlog) { $wlog->destroy; undef $wlog }; $w->destroy; $raisedwindow = 0;
- })
- )
- )
+ if (defined $wlog) { $wlog->destroy; undef $wlog }; $w->destroy; $raisedwindow = 0;
+ })
+ )
+ )
);
$w->show_all
}
@@ -210,16 +218,18 @@ sub configNetwork() { logIt(N("Launching drakconnect\n")); system "/usr/sbin/dra
sub installUpdates {
my $binfile = '/usr/bin/mdkapplet';
my $oldmd5 = md5file($binfile);
- logIt(N("Launching mdkupdate --applet\n"));
- gtkroot()->set_cursor(Gtk2::Gdk::Cursor->new('watch'));
- system "/usr/sbin/mdkupdate", "--applet";
+ logIt(N("Launching mdkupdate --applet\n"));
+ system "/usr/sbin/mdkupdate", "--applet";
my $newmd5 = md5file($binfile);
if ($newmd5 ne $oldmd5) { logIt(N("Mandrakeonline seems to be reinstalled, reloading applet ....")); exec('/usr/bin/mdkapplet') };
+ my $w = $in->wait_message(N("Please Wait"), N("Check updates"));
silentCheck(); gtkflush();
- gtkroot()->set_cursor(Gtk2::Gdk::Cursor->new('left-ptr'));
+ undef $w;
+ my $mdkupdate_status = cat_('/tmp/mdkupdate.log');
+ if ($mdkupdate_status !~ /OK/) { logIt($mdkupdate_status); $in->ask_warn(N("Mandrakelinux Updates Applet"), $mdkupdate_status) }
}
sub silentCheck {
- my $link = "http://www.mandrakeonline.net/online3_RemoteAction.php" . '?action=UpdateList';
+ my $link = $online_site . "/online3_RemoteAction.php" . '?action=UpdateList';
my %h = getVarsFromSh($conffile);
my $u;
logIt(N("Computing new updates...\n"));
@@ -229,13 +239,15 @@ sub silentCheck {
# print "$link\n";
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");
+ if ($debug) {
+ print "\nCONTENTS = $ct\n" if $debug;
+ 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
# 97 - host not active
-# print "Returned value = $u\n";
+ logIt("Returned value after association (silentCheck)= $u\n") if $debug;
my $retcode = {
10 => sub { okState() },
11 => sub {
@@ -247,13 +259,14 @@ sub silentCheck {
$cand =~ /(.*)-(.*)-(.*)$/; my ($name, $ver, $rel) = ($1, $2, $3);
$comp = compareWithInstalled($name, $ver, $rel, \@t);
#print "COMP = $comp\n";
- if ($comp) { $isAvailable = 1; logIt(N("Checking... Updates are available\n") . "\n"); go2State('error') and last } else { $isAvailable = 0 }
+ if ($comp) { $isAvailable = 1; logIt(N("Checking... Updates are available\n") . "\n"); go2State('error') } else { $isAvailable = 0 }
+ $comp and last;
}
!$comp and okState();
},
94 => sub { logIt(N("Development release not supported by service")); go2State('notsupported') },
95 => sub { logIt(N("Too old release not supported by service")); go2State('notsupported') },
- 96 => sub { logIt(N("Unknown state")); go2State('okay') },
+ 96 => sub { logIt(N("Unknown state")); go2State('critical') },
97 => sub { logIt(N("Online services disabled. Contact Mandrakeonline site\n")); go2State('disabled') },
98 => sub { logIt(N("Wrong Password.\n")); go2State('critical') },
99 => sub { logIt(N("Wrong Action or host or login.\n")); go2State('critical') },
@@ -268,9 +281,10 @@ sub compareWithInstalled {
foreach my $p (@$t) {
$p =~ /(.*)-(.*)-(.*)$/; my ($n, $v, $r) = ($1, $2, $3);
if ($name eq $n) {
- #my $iu = mdkonline::rpmvercmp($ver, $v); my $ir = mdkonline::rpmvercmp($rel, $r);
+ my ($iu, $ir);
+ if ($debug) { $iu = mdkonline::rpmvercmp($ver, $v); $ir = mdkonline::rpmvercmp($rel, $r) };
if (mdkonline::rpm_ver_cmp($ver, $v) > 0 || mdkonline::rpm_ver_cmp($ver, $v) == 0 && mdkonline::rpm_ver_cmp($rel, $r) > 0) {
- #print "$name-$ver-$rel $n-$v-$r *** CMPVER=$iu ** CMPREL = $ir \n";
+ logIt("$name-$ver-$rel $n-$v-$r *** CMPVER=$iu ** CMPREL = $ir \n") if $debug;
$isUpdate = 1 and last;
}
}
@@ -323,7 +337,7 @@ sub checkConfig {
}
}
sub checkUpdates {
- silentCheck() unless member($state_global, qw(disconnected noconfig));
+ member($state_global, qw(disconnected noconfig)) or silentCheck();
}
sub go2State {
my $state = shift;
@@ -339,7 +353,7 @@ sub isNetwork {
}
sub configure {
system("/usr/sbin/mdkonline &");
- $refreshtm = Glib::Timeout->add(1*10*1000, sub {
+ $refreshtm = Glib::Timeout->add(20*1000, sub {
if (-e $conffile) {
Glib::Source->remove($refreshtm);
silentCheck();
@@ -348,8 +362,6 @@ sub configure {
});
}
sub displayLogs {
- # system "/usr/sbin/logdrake --explain=drakxtools &"
- #create_dialog(N("Logs"), $mLog, { use_markup => 1, height => 480, width => 580, scroll => 1 })
my $w = ugtk2->new(N("Logs"), center => 1);
gtkset_size_request($w->{window}, 500, 400);
$w->{window}->signal_connect(delete_event => sub { $w->destroy; undef $wlog });
@@ -401,7 +413,8 @@ sub setState {
}
sub logIt {
my $log = shift;
- $mLog .= $log;
+ my ($Second, $Minute, $Hour, $Day, $Month, $Year, $WeekDay, $DayOfYear, $IsDST) = localtime();
+ $mLog .= $Hour . ':' . $Minute . ':' . $Second . ' ' . $log;
if (defined $wlog) {
$buffer->insert_at_cursor($log)
}