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

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