if (($INPUT{Name}                   eq "") ||
    ($INPUT{tag}     !~ /^[0-9]*$/) ||
    ($INPUT{monat}   !~ /^[0-9]*$/) ||
    ($INPUT{jahr}    !~ /^[0-9]*$/) ||
    ($INPUT{Email}                  eq "") )
{
	print "Location: $msg_errmiss\n\n";
	exit;
}

if (($INPUT{Email} =~ /(@.*@)|(\.\.)|(@\.)|(\.@)|(^\.)/) ||
    ($INPUT{Email} !~ /^.+\@(\[?)[a-zA-Z0-9\-\.]+\.([a-zA-Z]{2,3}|[0-9]{1,3})(\]?)$/))
{
	print "Location: $msg_badmail\n\n";
	exit;
}