<perl>
$sek=86400;
$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";
if ($beendet ne "1")
{$neu=$S1+1; 
mod "Id==*", ["S1", "$neu"],"Umfrage";}

}
else
{
out "<i class=rotes>Du kannst erst in ".($zeit+$sek-$jetztzeit)." sek wieder abstimmen!</i><p><hr>";
}
</perl>