From 965de720384f3f83132eeb8d5798005fa1a28285 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Tue, 30 Sep 2008 13:14:53 +0000
Subject: backport is_running() for draksnapshot

---
 perl-install/NEWS      |  3 +++
 perl-install/common.pm | 11 ++++++++++-
 2 files changed, 13 insertions(+), 1 deletion(-)

diff --git a/perl-install/NEWS b/perl-install/NEWS
index 13603ef7f..b6a92d2d7 100644
--- a/perl-install/NEWS
+++ b/perl-install/NEWS
@@ -1,3 +1,6 @@
+- libDrakX:
+  o backport is_running() for draksnapshot
+
 Version 10.29.10 - 30 September 2008
 
 - libDrakX:
diff --git a/perl-install/common.pm b/perl-install/common.pm
index f3aa17273..04bc570f7 100644
--- a/perl-install/common.pm
+++ b/perl-install/common.pm
@@ -10,7 +10,7 @@ use run_program;
 
 use Exporter;
 our @ISA = qw(Exporter);
-our @EXPORT = qw($SECTORSIZE N P N_ check_for_xserver files_exist formatTime MB formatXiB get_parent_uid makedev mandrake_release mandrake_release_info removeXiBSuffix require_root_capability setVirtual set_alternative set_l10n_sort set_permissions to_utf8  translate unmakedev);
+our @EXPORT = qw($SECTORSIZE N P N_ check_for_xserver files_exist formatTime MB formatXiB get_parent_uid is_running makedev mandrake_release mandrake_release_info removeXiBSuffix require_root_capability setVirtual set_alternative set_l10n_sort set_permissions to_utf8  translate unmakedev);
 
 # perl_checker: RE-EXPORT-ALL
 push @EXPORT, @MDK::Common::EXPORT;
@@ -294,6 +294,15 @@ sub set_permissions {
     chmod(oct($perms), $file) or die "chmod of file $file failed: $!\n";
 }
 
+sub is_running {
+    my ($name, $o_user) = @_;
+    my $user = $o_user || $ENV{USER};
+    foreach (`ps -o '%P %p %c' -u $user`) {
+	my ($ppid, $pid, $n) = /^\s*(\d+)\s+(\d+)\s+(.*)/;
+	return $pid if $ppid != 1 && $pid != $$ && $n eq $name;
+    }
+}
+
 sub parse_release_file {
     my ($prefix, $f, $part) = @_;
     chomp(my $s = cat_("$prefix$f"));
-- 
cgit v1.2.1