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 ersten 150 Einträge: | Einklappen | Zur Eingabe |
Zur Eingabe | > Ältere Einträge | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 >> Älteste Einträge |
© baseportal.de. Alle Rechte vorbehalten. Nutzungsbedingungen |