ага блин, не получается ни фига. выдает ошибку 500, в какое место его вставлять то надо ? Я не нашел там этих тегов, мне их надо самому вставлять. если да, то в какле место???
<CODE>
#!/usr/bin/perl
require "cfg.pl";
if ($ENV{'REQUEST_METHOD'} eq 'GET') {
@pairs = split(/&/, $ENV{'QUERY_STRING'});
}
elsif ($ENV{'REQUEST_METHOD'} eq 'POST') {
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $buffer);
}
else {
&error('request_method');
}
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$name =~ tr/+/ /;
$name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s/\n/\s/g;
if ($name && $value) { $input{$name} = $value; }
}
print "Content-type: text/html\n\n";
#ip
if ($ip_logging == 1) {
if (!$ENV{'REMOTE_HOST'}) {
$visitor=$ENV{'REMOTE_ADDR'};
}
else {
$visitor=$ENV{'REMOTE_HOST'};
}
open (ip, "<ip.txt") or &error("Невозможно открыть файл ip.txt");
if ($flock==1) {
flock ip, 2;
}
@ip=<ip>;
close(ip);
foreach $ip(@ip) {
chomp($ip);
@dip=split(/|/, $ip);
if ($ip eq "$visitor|$input{'id'}") {
&header;
print "<h2>Ваш ответ отвергнут</h2>";
print "Наши регистрационные данные говорят что Вы уже голосовали. Нет никакой необходимости голосовать второй раз.<br>\n";
print "Однако Вы можете посмотреть <a href=\"$result?id=$input{'id'}\">результаты опроса.</a><br>\n";
&footer;
&log_time;
exit;
}
}
open (wip, ">>ip.txt") or &error("Невозможно открыть ip.txt");
if ($flock==1) {
flock wip, 2;
}
print wip "$visitor|$input{'id'}\n";
close(wip);
&log_time;
}
##clean log
sub log_time {
$time=time();
open (iptime, "<iptime.txt") or &error("Невозможно открыть iptime.txt");
if ($flock==1) {
flock iptime, 2;
}
$iptime=<iptime>;
close(iptime);
$logtime=$time-$iptime;
if ($logtime>$log_clean) {
open (wiptime, ">iptime.txt") or &error("Невозможно открыть iptime.txt");
if ($flock==1) {
flock wiptime, 2;
}
print wiptime "$time";
close(wiptime);
open (cip, ">ip.txt") or &error("Невозможно открыть ip.txt");
if ($flock==1) {
flock cip, 2;
}
close(cip);
}
}
#
if ($input{'id'}=~ tr/;<>*|`&$!#()[]{}:'"//) {
print "Предупреждение Защиты! Действие отменено.<br>\n";
print "Пожалуйста не используйте сверхъестественные символы\n";
exit;
}
open (count, "<$data_location/id.txt") or &error("Невозможно открыть id.txt.");
if ($flock eq "y") {
flock count, 2;
}
$count=<count>;
close(count);
if (!$input{'id'} or $input{'id'} >= $count) {
&header;
print "Ошибка: опрос-$input{'id'} не найден.";
&footer;
exit;
}
if (!$input{'response'}) {
&header;
print "Ошибка: Вы не выбрали ответ.";
&footer;
exit;
}
open (data, "<$data_location/$input{'id'}.txt") or &error("Невозможно открыть файл данных опроса.");
if ($flock eq "y") {
flock data, 2;
}
@data=<data>;
close(data);
$update=$input{'response'};
$update++;
if (!@data[$update]) {
&header;
print "Ошибка: ответ не найден.";
&footer;
exit;
}
@datax=split(/-x%x-/, @data[$update]);
$vote=@datax[1];
$total=@data[0];
$vote++;
$total++;
@data[$update]="@datax[0]-x%x-$vote\n";
@total="$total\n";
splice(@data, 0, 1, @total);
splice(@data, $update, 1, @data[$update]);
open (data, ">$data_location/$input{'id'}.txt") or &error("Невозможно открыть файл данных опроса.");
if ($flock eq "y") {
flock data, 2;
}
print data @data;
close(data);
&header;
print "<h2>@data[1]</h2>";
$base=@data[0];
splice(@data, 0,2);
foreach $data (@data) {
@datax= split(/-x%x-/, $data);
$cal=@datax[1]/$base;
$percent=sprintf("%.2f", 100*$cal);
print "<b>@datax[0]</b> <font size=\"-1\">(@datax[1] голосов)</font> <img src=\"$bar\" width=\"$percent\" height=\"5\"> <font size=\"-1\"><b>$percent%</b></font><br>\n";
}
print "(Всего голосов: $base)";
&footer;
######################input
sub header {
open (header, "<header.txt") or &error("Невозможно открыть header.txt");
if ($flock eq "y") {
flock header, 2;
}
@header=<header>;
close(header);
print @header;
}
sub footer {
open (footer, "<footer.txt") or &error("Невозможно открыть footer.txt");
if ($flock eq "y") {
flock footer, 2;
}
@footer=<footer>;
close(footer);
print @footer;
}
exit;
#####error
sub error {
print "Произошла ошибка. <br> $_[0]<br>\n";
print "$!\n";
exit;
}
</CODE>
[ 13 Августа 2002: Исправлено MR.BLACK ]
[ 13 Августа 2002: Исправлено MR.BLACK ]
Новости дизайна |
Галереи |
О проекте |
RSS
Правила |
FAQ |
Поиск |
Наша команда |
Регистрация |
Вход
