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