#!/usr/bin/perl
use POSIX;

($user)=@ARGV;

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

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

for ($i=0; $i <= $#procs; $i++){
	($comm, $userp) = split(" ",$procs[$i]);
	$commands .= " $comm";
}

if (!($userp =~ $user)){
	print "Critical - User not found\n";
	exit (2);
}

if ($#procs){
	print "Ok - User: $user Processes:$commands\n";
	exit (0);
}else {
	print "Critical - User: $user is not executing no process.\n";
	exit (2);
}