#!/usr/bin/perl

open(STDIN,"<","/dev/null");
open(STDOUT,">","/dev/null");
open(STDERR,">","/dev/null");

if (fork()) { exit; }

$rc = 0;
while(1) {
	$termtime = (1600 - $rc);
	$0 = "postsuexecinstall - searching for suexec problems ($termtime min remain)";
	system("/scripts/fixsuexeccgiscripts","-q");
	$rc++;
	sleep(60);
	#run for a few hours then die
	exit if ($rc > 1600);
}