[Benson-commit] CVS: benson2/src/modules/contrib/monitor M10procmon.pm,NONE,1.1

[Bob T. <bt...@us...>]

Update of /cvsroot/benson/benson2/src/modules/contrib/monitor
In directory usw-pr-cvs1:/tmp/cvs-serv13309/monitor

Added Files:
	M10procmon.pm 
Log Message:
Added skeleton for process monitor

--- NEW FILE: M10procmon.pm ---
package M10procmon;

use Benson::Constants;
use Benson;

sub interval {
	return 600;	# Every 10 minutes.
}

sub handler {
	my ($self, $s) = @_;
	my $queue = $s->Queue;
	my %config;
	$s->trace("M10procmon is running...", 3);
	open CONFIG, $s->ServerRoot."/etc/procmon.conf";
	while(<CONFIG>) {
		my $line = $_;
		if($line =~ m/^#/ || $line =~ m/^\s/) { next; }
#		$line =~ s/\*/\.\*/g;
	}
	close CONFIG;
	$s->trace("M10procmon has finished.", 3);
	return OK;
}

1;