<loop db=Referer sort=-Datum range=0,1 code=perl>
$dat=$Datum;
</loop>

if (datum($dat, "intern") lt datum(jetzt-1, "intern")) {
$nix="";
get "Datum==*", "Protokoll";
while(get_next("Protokoll"))
{
if ($Referer ne $nix) {
$inda=index($Referer,"//");
$inda=$inda+2;
$indb=substr($Referer,$inda,100);
$indc=index($indb,"/");
$ausz=substr($Referer,0,$inda+$indc)."/";
$Referer="";
if (index ($ausz,"http://stattweb.") eq 0) {$ausz=""};
if (index ($ausz,"http://www.stattweb.") eq 0) {$ausz=""};
if ($ausz ne $nix) {
get "Referer==$ausz", "Referer";
if ($Referer ne $nix) {
$Referer="";
$zaehl=$Zaehler+1;
mod "Referer==!$ausz", ["Datum", "jetzt", "Zaehler", "$zaehl"], "Referer";
}
get "Referer==$ausz", "Referer";
if ($Referer eq $nix) { put ["Referer", "$ausz", "Zaehler", "1", "Datum", "jetzt"], "Referer"; }
}}}}}