#!/usr/local/bin/perl

$NOMOS="/export/home/nomos/server/nomos";
$ENV{PATH}="/usr/ucb";

open(PID,"$NOMOS/lib/default/log/nomos.pid");
$pid=<PID>;
close(PID);

open(IN,"/usr/ucb/ps $pid|")||die;
while($_=<IN>){}

if($. ne "2" || $pid eq ''){
	my($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)
		 = localtime(time);
	$DATE=sprintf("%04d%02d%02d.%02d.%02d.%02d",
		$year+1900,$mon+1,$mday,$hour,$min,$sec);
	open(LOG,">>/tmp/nomos.errorlog");
	print LOG "$DATE\n";
	close(LOG);
	system("$NOMOS/bin/Nomos");
}else{
	system("touch /tmp/nomos.errorlog");
}
close(IN);
