<perl>
$sek=10;
$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 "0")
{
get "Id==*", "Umfrage";
$neu=$S1+1; 
mod "Id==*", ["S1", "$neu"],"Umfrage";
}
else
{
out "Du darfst erst in ".($zeit+$sek-$jetztzeit)." Sekunden wieder abstimmen!";
}
</perl>
<include src=Auswertung>