#!/usr/bin/perl -w

$version = '1.06';
$appname = 'runs';

use Config;
$osname = $Config{"osname"} || $^O;

$ps_cmd = 'ps -efk';
if ($osname eq 'linux')
{
  $ps_cmd = 'ps -efww';
}
if ($osname eq 'solaris')
{
  $ps_cmd = 'ps -ef';
}

unless (@ARGV)
{
  print "$appname $version
Syntax: $appname STRING
Es wird festgestellt, ob der Prozess STRING läuft.
(Es wird einfach das Vorkommen von STRING in der Ausgabe von $ps_cmd gesucht.)
Return: 0 wenn ja, sonst 1.\n";
  exit;
}

$such = join(' ',@ARGV);

@ps = `$ps_cmd`;

# Dieses Programm selbst läuft natürlich auch, aber das interessiert nicht.
@ps = grep(!/^\s*[^\s]+\s+$$\s+/,@ps);

@return = grep(/$such/i,@ps);
print @return;

exit (@return ? 0 : 1);