# nutze die Möglichkeit der DB Engine
# und nutze einen eigenen Cache
sub insert_engine{
	state %cache = (); # feature 5.010
	my $r = shift;
	my @args = ($r->{user_id}, $r->{user_name});
	my $ck = $r->{user_id}.$r->{user_name};
	$cache{$ck} ||= eval{
		print "Anfrage\n"; # test ob der cache funktioniert
		$STH_INSERT_ON_DUPLICATE_KEY->execute(@args);
		$DBH->selectrow_array("SELECT LAST_INSERT_ID()");
	};
	return $@ ? undef : $cache{$ck};
}