1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
|
#!/usr/bin/perl
# Monitors processes on the local host. Requires Proc::ProcessTable
# usage:
# monitor ps.monitor ( process:[min]-[max] )+ ;;
#
# where:
# process process name
# min optional minimum number of process name running
# max optional maxumum number of process name running
#
# example:
# monitor ps.monitor dhcpd3:1-1 syslog-ng:1- ;;
#Copyright 2005 Allan Wind
#
#Permission is hereby granted, free of charge, to any person obtaining a copy of
#this software and associated documentation files (the "Software"), to deal in
#the Software without restriction, including without limitation the rights to
#use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies
#of the Software, and to permit persons to whom the Software is furnished to do
#so, subject to the following conditions:
#
#The above copyright notice and this permission notice shall be included in all
#copies or substantial portions of the Software.
#
#THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
#IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
#FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
#AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
#LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
#OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
#SOFTWARE.
use Proc::ProcessTable;
# parse command line
my %watched_processes;
while(<@ARGV>) {
if(m/([^:]+):([0-9]*)?-([0-9]*)?/) {
# $1 is process, $2 is min and $3 is max
$watched_processes{$1} = [$2, $3, 0];
} else {
print "Cannot parse the argument \"$_\"\n";
}
}
# read process table and count the processes of interest
my $process_table = new Proc::ProcessTable('cache_ttys' => 0 );
foreach $process ( @{$process_table->table} ) {
if( defined($watched_processes{$process->fname}) ) {
$watched_processes{$process->fname}[2]++;
}
}
# print name:count of processes if needed
my $report = 0;
for $process (keys(%watched_processes)) {
my $count = $watched_processes{$process}[2];
my $min = $watched_processes{$process}[0] || $count;
my $max = $watched_processes{$process}[1] || $count;
if($min > $count || $max < $count) {
$report = 1;
print "$process:$watched_processes{$process}[2]\n";
}
}
exit $report;
|
