#!/usr/bin/perl
#
#   checker exit-stat sleep-time
#

$p = 'checker';
print "$p @ARGV\n";
if ($i = $ENV{"procIndex"}) {
	print "$p started; ENV{\"procIndex\"}=$i.\n";
} else {
	print "$p started; default procIndex=$i.\n";
	$i =  2;
}
$x = $ARGV[0] ||  0;
$s = $ARGV[1] || 30;
sleep($s);
open(M,">proc/procMsgCode.$i")
	|| die "$0: Can't write proc/procMsgCode.$i [$!]\n";
srand($$);
$m = int(rand(7));	# Random message code.
print M "$m\t$p status.\n";

print "$p exit status $x.\n";
exit($x);