| 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 |
<html>
<body bgcolor="#ffffff">
<perl>
$sek=20;
$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 "Du darfst abstimmen!";
}
else
{
out "Du darfst erst in ".($zeit+$sek-$jetztzeit)." Sekunden wieder!";
}
out <<EOF;
<br><a href="http://baseportal.de/cgi-bin/baseportal.pl?htx=/womm/test2">Nochmal</a>
EOF
</perl>
</body>
</html>
| Alle Einträge zum Thema: | Zur Liste |
<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";
#und fuege ab hier die Routinen zum Zaehlen ein...
}
</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";
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";
put ["ip", $ip, "zeit", time], "sperre";
}
if ($gesperrt==0)
{
get "", "Umfrage";
{
$neu=$S4+1;
mod "",["S4",$neu],"Umfrage";
}
}
</perl>
<include src=Auswertung>
<html>
<body bgcolor="#ffffff">
<perl>
$sek=20;
$gesperrt=0;
$ip=$_REMOTE_ADDR;
get "ip==$ip","sperre";
if (($_amount>0) && ($zeit > time-$sek))
{
$gesperrt=1;
}
if ($gesperrt==0) {
del "zeit < ".(time - $sek),"sperre";
put ["ip", $ip, "zeit", time], "sperre";
}
out "Zeitschranke: ".$sek." Sekunden<br>";
if ($gesperrt==0)
{
out "Du darfst abstimmen!";
}
else
{
out "Du darfst erst in ".($zeit+$sek-time)." Sekunden wieder!";
}
out <<EOF;
<br><a href="http://baseportal.de/cgi-bin/baseportal.pl?htx=/womm/test2">Nochmal</a>
EOF
</perl>
</body>
</html>
<html>
<body bgcolor="#ffffff">
<perl>
$sek=20;
$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 "Du darfst abstimmen!";
}
else
{
out "Du darfst erst in ".($zeit+$sek-$jetztzeit)." Sekunden wieder!";
}
out <<EOF;
<br><a href="http://baseportal.de/cgi-bin/baseportal.pl?htx=/womm/test2">Nochmal</a>
EOF
</perl>
</body>
</html>
| Liste der Einträge von 60151 bis 60301: | 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 |