<perl>
#Zeitschranke definieren:
$sek=7200;
$gesperrt=0;
#IP abfragen:
$ip=$_REMOTE_ADDR;
#loesche alte Eintraege ( "ip" und "zeit" ) in der db "sperre":
del "zeit<".time-$sek,"sperre";
#IP in der Datenbank suchen und pruefen, ob schon vorhanden:
get "ip==$ip","sperre"; #oder wie die DB heißt
#wenn IP bereits vorhanden, prüfe ob IP innerhalb der letzten 2 Stunden (7200 sec.) angelegt wurde:
if (($_amount>0) && ($zeit > time-$sek))
#wenn ja, sperre den Typen:
{
out "<b><font color=\"#ff0000\">Bitte nur eine Kontaktanzeige aufgeben ! Bei Fragen wende Dich bitte an den <a href=\"mailto:webmaster\@liebesrose.de\">Webmaster.</a></font></b>"; # Ausgabe des Hinweises...
$cmd="";
undef %_put;
}
else
{
$_put{ip}=$ip;
$_put{zeit}=time;
put undef,"kontakte"; # alle Daten aus dem Formular werden eingetragen + ip + time (über hidden im Formular)
put undef,"sperre";
undef %_put;
}
</perl>