<perl>
$DATUM=datum("jetzt", "Tag.Monat.Jahr");
get "ip==$_REMOTE_ADDR Nutzung~=$DATUM","Nutzerstatistik";
$schonda=$_amount;
if($schonda==0)
{put ["ip","$_REMOTE_ADDR", "port",$_REMOTE_PORT, "useragent",$_HTTP_USER_AGENT, "Ref","$_HTTP_REFERER", "Klick","1", "Nutzung","$DATUM"], Nutzerstatistik;}
else {$Zaehler=$Klick;$Zaehler++; mod "ip~=$_REMOTE_ADDR Ref~=$_HTTP_REFERER Nutzung~=$DATUM",["Klick","$Zaehler"],"Nutzerstatistik";}