<perl>
#Zeitschranke definieren:
$sek=7200;
$alt=time-$sek;
$gesperrt=0;
#IP abfragen:
$ip=$_REMOTE_ADDR;
#loesche alte Eintraege ( "ip" und "zeit" ) in der db "sperre":
del "zeit<$alt","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 > $alt))
#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";
mail "Gerrital\@aol.com","Betreff","Text","Absender"; #hier wird die mail an dich verschickt, näheres in http://baseportal.de/bpws_doku.html#a22
mail $_put{EMail},"Betreff","Text","Absender"; # hier an den inserierenden
undef %_put;
}
</perl>
<do action=all formfields=-Id,ip,zeit dataface=arial spacing=10 databack=fff8f0 gridcolor=fff8f0 border=0 headalign=middle datasize=2 list=list browse=no showamount=no sort^=- range^=0,20 pagebrowse=top buttonbrowse=no listtype=list listfields=Ueberschrift,Name,Geschlecht,Ort,EMail,Telefon input=top>