Forum Webscript.Ru

Программирование => Perl => Тема начата: kott от 02 Апреля 2004, 19:40:43

Название: помогите модифицировать голосование
Отправлено: kott от 02 Апреля 2004, 19:40:43

у меня есть простейший скрипт голосования:

#!/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 ""; print ""; print ""; print <<"EOF"; Yes "; while ($num < $yes) { print ""; $num++; } print " $yes% No "; while ($nm < $no) { print ""; $nm++; } print " $no% No opinion "; while ($nmi < $op) { print ""; $nmi++; } print " $op%

EOF

подскажите чайнику как добавить в него функцию защиты от накруток (определение ип), а главное как сделать, чтобы просмотр результатов происходил не автоматически (как сейчас), а по клику на ссылку????
хелп!!! :confused:

Название: помогите модифицировать голосование
Отправлено: AnnA от 02 Апреля 2004, 20:06:38

imho, легче будет найти уже готовый скрипт в котором все это уже есть. ;)

Цитировать

добавить в него функцию защиты от накруток (определение ип), а главное как сделать, чтобы просмотр результатов происходил не автоматически