summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2006-04-07 16:47:41 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2006-04-07 16:47:41 +0000
commitc131ab5fe5d69216ba92ef3d645b5f3f65b3247b (patch)
tree2ca54d9bcd1cd850176c74ceec95aec5b897785b
parent0a3ba9d41541a3ed92e409437e51712ec9f4ec27 (diff)
downloadmgaonline-c131ab5fe5d69216ba92ef3d645b5f3f65b3247b.tar
mgaonline-c131ab5fe5d69216ba92ef3d645b5f3f65b3247b.tar.gz
mgaonline-c131ab5fe5d69216ba92ef3d645b5f3f65b3247b.tar.bz2
mgaonline-c131ab5fe5d69216ba92ef3d645b5f3f65b3247b.tar.xz
mgaonline-c131ab5fe5d69216ba92ef3d645b5f3f65b3247b.zip
adding a migrating script (that take care of not respawning too much
applets due to multiple rpm triggers) that will migrate both old and new type applets: - for old applets, we just plainly kill them and restart them all - for new ones, we just send them the SIGHUP signal and they'll take care herselves of restarting
-rwxr-xr-xmigrate-mdvonline-applet.pl66
1 files changed, 66 insertions, 0 deletions
diff --git a/migrate-mdvonline-applet.pl b/migrate-mdvonline-applet.pl
new file mode 100755
index 00000000..a194bd20
--- /dev/null
+++ b/migrate-mdvonline-applet.pl
@@ -0,0 +1,66 @@
+#!/usr/bin/perl
+################################################################################
+# migrate-mdvonline-applet.pl #
+# #
+# Copyright (C) 2006 Mandriva #
+# #
+# Thierry Vignaud <tvignaud at mandriva dot com> #
+# #
+# This program is free software; you can redistribute it and/or modify #
+# it under the terms of the GNU General Public License Version 2 as #
+# published by the Free Software Foundation. #
+# #
+# This program is distributed in the hope that it will be useful, #
+# but WITHOUT ANY WARRANTY; without even the implied warranty of #
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+# GNU General Public License for more details. #
+# #
+# You should have received a copy of the GNU General Public License #
+# along with this program; if not, write to the Free Software #
+# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. #
+################################################################################
+
+use lib qw(/usr/lib/libDrakX);
+use standalone; # for explanations
+
+my $run_file = '/var/run/mdkapplet';
+
+my $mode = $ARGV[0];
+
+if (!-e $run_file) {
+ # create the stamp file is needed:
+ open(my $_tmp, '>>', $run_file);
+} else {
+ # exit if we're asked to restart the applets twice in less than 30 seconds
+ # (eg the trigger script is run by both removed and newly installed packages,
+ # which can lead to applet crash on SIGHUP because of race condition):
+ my $mtime = (stat($run_file))[9];
+ log::explanations("not restarting the applet (too many restart in a while)");
+ exit(0) if time() - $mtime < 30;
+}
+
+if ($mode eq 'new') {
+ system('killall', '-HUP', 'mdkapplet');
+} else {
+ #my @lines = `ps -o '$p $u %c'`;
+ my @lines = `ps -eo pid,user,cmd`;
+
+ # we do not live process ps output in order not to account both old applets and newly started ones:
+ foreach (@lines) {
+ my ($pid, $user, $cmd) = /^\s*(\d+)\s*(\S*)\s*(.*)$/;
+ # do not match su running mdkapplet:
+ next if $cmd !~ /perl.*mdkapplet/;
+ log::explanations(qq(killing "$cmd" (pid=$pid)));
+ kill 15, $pid;
+ my $pid2 = fork();
+ if (defined $pid2) {
+ !$pid2 and do { exec('su', $user, '-c', 'mdkapplet --auto-update') or do { require POSIX; POSIX::_exit() } };
+ log::explanations("restarting applet (pid=$pid2)");
+ } else {
+ log::explanations(qq(failed to fork Mandriva Online applet for user "$user"));
+ }
+ }
+}
+
+my $atime = time();
+utime(($atime) x 2, $run_file);