# URL-Details als Callback
sub cb_urldetails{
	my $self = shift;   # in der DB Klasse
	my $cbref = shift;  # CodeRef CallbackFunktion
	my $url = shift;
	my $q = q(SELECT ref, FROM_UNIXTIME(ts) as date, hugo FROM log WHERE url=? ORDER BY date DESC);
	my $st = $self->{DBH}->prepare($q);
	eval{
		$st->execute($url);
	};
	if($@){
		$self->{EVE} = $@;
		return $@;
	}
	else{
		if(ref $cbref eq 'CODE'){
			while(my $ref = $st->fetchrow_hashref){
				&$cbref($ref); # Callback
			}
		}
	}
}