use utf8;
use warnings; no warnings "redefine";
use strict;
use Dbase::Help qw(DoFn);
use Fehler qw(report_status warnung);

sub check_monitoring_person($) {
	my ($person_id) = @_;

	return unless DoFn(<<_);
	SELECT COUNT(*)
	FROM   kunde, kundemail, descr, descr_typ
	WHERE  kundemail.dienst = descr.descr
	   AND descr_typ.name = 'dienst'
	   AND descr.typ = descr_typ.id
	   AND kundemail.kunde  = kunde.id
	   AND kundemail.person = $person_id
	   AND descr.bla LIKE "monitor%"
	   AND ( kunde.ende IS NULL OR kunde.ende >= UNIX_TIMESTAMP(NOW()) )
_
	warnung(<<_);
Änderungen hier können sich auf die Monitoring-Konfiguration auswirken,
_
	report_status();
}

1;
