diff options
| author | Romain d'Alverny <rdalverny@mandriva.org> | 2005-01-31 16:20:46 +0000 |
|---|---|---|
| committer | Romain d'Alverny <rdalverny@mandriva.org> | 2005-01-31 16:20:46 +0000 |
| commit | 9aa5a8448fab90e9253131322e03db3a7c832619 (patch) | |
| tree | b1efeffe5efbd9aa4535bf82d2519a53e3899792 /mdkonline.pm | |
| parent | 674676f0b791e9dce5360caafd80751d15e9a895 (diff) | |
| download | mgaonline-9aa5a8448fab90e9253131322e03db3a7c832619.tar mgaonline-9aa5a8448fab90e9253131322e03db3a7c832619.tar.gz mgaonline-9aa5a8448fab90e9253131322e03db3a7c832619.tar.bz2 mgaonline-9aa5a8448fab90e9253131322e03db3a7c832619.tar.xz mgaonline-9aa5a8448fab90e9253131322e03db3a7c832619.zip | |
Moved is_running to mdkonline.pm. Added is_running call to mdkupdate.
Diffstat (limited to 'mdkonline.pm')
| -rw-r--r-- | mdkonline.pm | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/mdkonline.pm b/mdkonline.pm index 3b15b72b..d1d4d0eb 100644 --- a/mdkonline.pm +++ b/mdkonline.pm @@ -221,4 +221,13 @@ LASTCHECK=$d ); } +sub is_running { + my ($name) = @_; + any { + my ($ppid, $pid, $n) = /^\s*(\d+)\s+(\d+)\s+(.*)/; + #- to run ps, perl may create some process with $name as name and 1 as ppid + $ppid != 1 && $pid != $$ && $n eq $name; + } `ps -o '%P %p %c' -u $ENV{USER}`; +} + 1; |