#!/usr/bin/perl
use POSIX;

($process)=@ARGV;

if ($#ARGV < 0) {
        print "Usage:\n";
        print "$0 [process]\n";
        exit(1);
}

@users=`/bin/ps -eo user,comm --sort user --no-headers | /bin/grep $process | /usr/bin/uniq`;
chomp(@users);

for ($i=0; $i <= $#users; $i++){
	($user, $comm) = split(" ",$users[$i]);
	$usersp .= " $user";
}

if (!($process =~ $comm)){
	print "Critical - Process not found\n";
	exit (2);
}

if ($#users != -1){
	print "Ok - Process: $process Users:$usersp\n";
	exit (0);
}else {
	print "Critical - Process: $process not executing.\n";
	exit (2);
}