у меня есть простейший скрипт голосования:
#!/usr/bin/perl
print "Content-type:text/html\\n\\n";
read(STDIN, $buffer, $ENV{\'CONTENT_LENGTH\'});
@pairs = split(/&/, $buffer);
foreach $pair (@pairs)
{
($name, $value) = split(/=/, $pair);
$FORM{$name} = $value;
$FORM{\'req\'}=~s/ //g;
}
open (LOG,"
@ST =
;
close (LOG);
foreach $line (@ST)
{
chop $line;
}
if ($FORM{\'put\'} eq "yes")
{
$ST[0]++;
}
elsif ($FORM{\'put\'} eq "no")
{
$ST[1]++;
}
else
{
$ST[2]++;
}
open (LOG,">stats.log");
flock LOG, 2;
print LOG "$ST[0]\\n";
print LOG "$ST[1]\\n";
print LOG "$ST[2]\\n";
close (LOG);
#calculate percentages
$hundred = $ST[0]+$ST[1]+$ST[2];
$yes = 100*$ST[0]/$hundred;
$yes = int ($yes);
$no = 100*$ST[1]/$hundred;
$no = int ($no);
$op = 100-$yes-$no;
print <<"EOF";
Results:
$hundred people have voted!
EOF
print "| Yes | ";
while ($num < $yes)
{
print "![](\\"bar.jpg\\") ";
$num++;
}
print " | $yes% | ";
print "| No | ";
while ($nm < $no)
{
print "";
$nm++;
}
print " | $no% | ";
print "| No opinion | ";
while ($nmi < $op)
{
print "";
$nmi++;
}
print " | $op% | ";
print <<"EOF";
|
EOF
подскажите чайнику как добавить в него функцию защиты от накруток (определение ип), а главное как сделать, чтобы просмотр результатов происходил не автоматически (как сейчас), а по клику на ссылку?
хелп!!! :confused:
