| baseportal | |||
| English - Deutsch | "Es gibt keine dummen Fragen - jeder hat einmal angefangen" | ||
|
| baseportal | |||
| English - Deutsch | "Es gibt keine dummen Fragen - jeder hat einmal angefangen" | ||
|
| Ausgewählter Eintrag: | Zur Liste |
| Alle Einträge zum Thema: | Zur Liste |
<perl>
$sek=1000;
$gesperrt="0";
$ip=$_REMOTE_ADDR;
$jetztzeit=time;
$zeitschranke=$jetztzeit - $sek;
out "IP: ".$ip."<br>";
get "ip==$ip","sperre";
if ($zeit > $zeitschranke)
{
$gesperrt="1";
}
if ($gesperrt eq "0")
{
put ["ip",$ip,"zeit",$jetztzeit],"sperre";
del "zeit<$zeitschranke","sperre";
}
out "Zeitschranke: ".$sek." Sekunden<br>";
if ($gesperrt eq "0")
{
out "";
}
else
{
out "Bitte nur eine Anzeige aufgeben";
}
</perl>
<perl>
$sek=2000;
$gesperrt="0";
$ip=$_REMOTE_ADDR;
$jetztzeit=time;
$zeitschranke=$jetztzeit - $sek;
get "ip==$ip","sperre";
if ($zeit > $zeitschranke)
{
$gesperrt="1";
}
if ($gesperrt eq "0")
{
put ["ip",$ip,"zeit",$jetztzeit],"sperre";
del "zeit<$zeitschranke","sperre";
}
if ($gesperrt eq "1")
{
out "Bitte nur eine Anzeige aufgeben !";
}
</perl>
<perl>
#Zeitschranke definieren:
$sek=7200;
$gesperrt=0;
#IP abfragen:
$ip=$_REMOTE_ADDR;
#IP in der Datenbank suchen:
#Pruefen, ob schon vorhanden:
get "ip==$ip","sperre";
#wenn ja, ob das innerhalb der letzten 2 Stunden war:
if (($_amount>0) && ($zeit > time-$sek))
#wenn ja, sperre den Typen:
{
$gesperrt=1;
}
#Wenn er nicht gesperrt wird:
if ($gesperrt==0)
{
#loesche nebenbei alte Eintraege:
del "zeit < ".(time - $sek),"sperre";
#merke dir die IP und die aktuelle Zeit:
put ["ip", $ip, "zeit", time], "sperre";
}
</perl>
<perl>
#Zeitschranke definieren:
$sek=7200;
$gesperrt=0;
#IP abfragen:
$ip=$_REMOTE_ADDR;
#IP in der Datenbank suchen:
#Pruefen, ob schon vorhanden:
get "ip==$ip","sperre";
#wenn ja, ob das innerhalb der letzten 2 Stunden war:
if (($_amount>0) && ($zeit > time-$sek))
#wenn ja, sperre den Typen:
{
$gesperrt=1;
}
#Wenn er nicht gesperrt wird:
if ($gesperrt==0)
{
#loesche nebenbei alte Eintraege:
del "zeit < ".(time - $sek),"sperre";
#merke dir die IP und die aktuelle Zeit:
put ["ip", $ip, "zeit", time], "sperre";
}
</perl>
get "ip==$ip","kontakte"; #oder wie die DB heißt
if (($_amount>0) && ($zeit > time-$sek))
{
$gesperrt=1;
out "Du kannst nur eine Kontaktanzeige aufgeben !"; # Ausgabe des Hinweises...
}else
{
put undef,"kontakte"; # alle Daten aus dem Formular werden eingetragen + ip + time (über hidden im Formular)
}
<perl>
#Zeitschranke definieren:
$sek=7200;
$gesperrt=0;
#IP abfragen:
$ip=$_REMOTE_ADDR;
#IP in der Datenbank suchen:
#Pruefen, ob schon vorhanden:
get "ip==$ip","kontakte";
#wenn ja, ob das innerhalb der letzten 2 Stunden war:
get "ip==$ip","kontakte"; #oder wie die DB heißt
if (($_amount>0) && ($zeit > time-$sek))
#wenn ja, sperre den Typen:
{
$gesperrt=1;
out "Du kannst nur eine Kontaktanzeige aufgeben !"; # Ausgabe des Hinweises...
}
else
{
put undef,"kontakte"; # alle Daten aus dem Formular werden eingetragen + ip + time (über hidden im Formular)
}
#Wenn er nicht gesperrt wird:
if ($gesperrt==0)
{
#loesche nebenbei alte Eintraege:
del "zeit < ".(time - $sek),"kontakte";
#merke dir die IP und die aktuelle Zeit:
put ["ip", $ip, "zeit", time], "kontakte";
}
</perl>
| Liste der Einträge von 54601 bis 54751: | Einklappen | Zur Eingabe |
| Neueste Einträge << 10 | 9 | 8 | 7 | 6 | 5 | 4 | 3 | 2 | Neuere Einträge < | Zur Eingabe | > Ältere Einträge | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 >> Älteste Einträge |
| © baseportal.de. Alle Rechte vorbehalten. Nutzungsbedingungen |