#!/usr/bin/perl
#
#   fixer exit-stat sleep-time sleep-count
#

$p = 'fixer';
$i = $ENV{"procIndex"} || 3;
$s = $ARGV[1] ||  10;	# Sleep time.
$n = $ARGV[2] || 100;	# Number of sleeps
srand($$);
while ($n-- > 0) {
	sleep($s);
	open(M,">proc/procMsgCode.$i")
		|| die "$0: Can't write proc/procMsgCode.$i [$!]\n";
	$m = int(rand(6));	# Random message code.
	print M "$m\tfixer\n";
	close M;
}
exit($ARGV[0] || 0);