use utf8;
use warnings; no warnings "redefine";
use strict;
use Dbase::Help qw(DoSelect);
use Loader qw(pruefe_kunde);

sub pruefe_kunden(;$) {
	my($flag) = @_;
	$flag = 0 unless $flag;
	DoSelect {
		my($knr) = @_;
		pruefe_kunde($knr,$flag);
	} "select id from kunde where ende is NULL or ende > UNIX_TIMESTAMP(NOW())";
	1;
}
1;
