sub CheckTempDB
{
# Templist öffnen und einlesen
	open (templist, "<$templist") or &error("Unable to open the templist file for reading");
	if ($flock eq "y")
	{flock templist, 2;}
	@templist=<templist>;
	close(templist);

# Templist sortieren und auf Strings rausfiltern
foreach $templist(@templist)
{
($LISTOptMail, $LISTOptID) = split (/\|/, $templist);{
	$LISTOptID =~ s/\n//g; #Entfehrnt den verwi... Zeilenumbruch!
		if (($LISTOptMail eq $LINKOptMail) && ($LISTOptID eq $LINKOptID)) {$OptIDStatus = "ok";}
		else {$OptIDStatus = 'error';}
		}
	}
}