форум вебмастероff на AlfaSpace.NET

Ubuntu и Linux |реактивный бесплатный хостинг | Киноклуб. ВСЁ БЕСПЛАТНО!
база знаний хостинга | правила форума

  Начало ° Ответить ° Статистика ° Опрос ° Регистрация ° Поиск ° FAQ °
Форум вебмастеров на AlfaSpace.NET / The Matrix Has You / Perl. Скрипт комментариев. Требуется доработка.
Автор Сообщение
webskan
Участник

3		 # Дата: 28 Май 2006 12:56


Протестил скрипт CommentsFSS. Работает хорошо и подходит для моих целей.
Но две проблеммы.
1) Нет защиты от флуда
2) Не контролирует длину слова. Т.е. можно набить без пробелов 500 символов, и дизайн сайта ломается.
К сожалению я не знаком с перлом, буду очень благодаре за помощь.
Фрагмент кода: 
 
$text2=$text; 
$text2 =~ s/\s//g; 
if (length($text2) == 0) 
{ 
$errm="Вы не заполнили поле Комментарий"; 
&msg; 
exit; 
} 

if (length($name) > 10){ 
$errm="В поле Имя не должно быть больше 10 символов."; 
&msg; 
exit; 
} 

elsif (length($text) >= 500){ 
$errm="В поле Комментарий не должно быть больше 500 символов."; 
&msg; 
exit; 
}



Если не правильно вывел фрагмент, могу привести полный листинг.
webskan
Участник

3		 # Дата: 29 Май 2006 12:21 ° Поправил: webskan


листинг. 

 
#use locale; 
$setfile="set.dat"; 
&loadset; 

if ($ENV{'REQUEST_METHOD'} eq "POST") 
{ 
read(STDIN, $bufer, $ENV{'CONTENT_LENGTH'}); 
} 
else 
{ 
$bufer=$ENV{'QUERY_STRING'}; 
} 

@pairs = split(/&/, $bufer); 
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/%0D%0A/\n/g; 
	$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; 
	$FORM{$name} = $value; 
      } 

print "Content-type: text/html\n\n"; 

$id = $FORM{id}; 
if ($id =~ /\W/) 
{ 
#Если в параметре найдены негодный символы, то завершение работы. 
#Читайте справку. 
exit; 
} 
$id =~ s/<([^>]|\n)*>//g; 
$action=$FORM{action}; 
if (length($id) == 0) 
{ 
exit; 
} 
if ($action eq "add") { 
&add; 
} 
else { 
&view; 
} 


sub view 
{ 
#Проверка существования указанного файла 
if (-e "$data$id.txt") { 
#Файл существует, все в порядке. 
} 
else { 
#Файла нет, надо создать. 
open FILE,">$data$id.txt"; 
print FILE ""; 
close FILE; 
chmod(0755,"$data$id.txt"); 
} 
#Открывается файл с html, и %comm% в нем заменяется на комментарии, а %filename 
% 
#на имя вызываемого файла данных. Получившийся код вставляется на страницу. 
open(HTML,"$htmlfile"); 
&comm; 
while ($html = <HTML>) { 
	$html =~ s/\%comm\%/$commh/g; 
	$html =~ s/\%filename\%/$id/g; 
	print "$html"; 
} 
close(HTML); 
} 

sub comm 
{ 
#Получение комментаиев из указанного файла данных. тут же создается дизайн. 
open (htmlcommfile, "<$htmlcommfile") || return; 
#Открытие файла с дизайном ОДНОГО комментария, и запись его в переменную. 
while (<htmlcommfile>) 
{ 
$htmlcf = "$htmlcf$_"; 
} 
close htmlcommfile; 
$htmlcf =~ s/\n//g; 
$num = "0"; 
open(commfile,"$data$id.txt"); 
while (<commfile>) { 
$htmlcfc = $htmlcf; 
$num = $num+1; 
	$_ =~ s/\n/<br><br>/g; #Перенос строки в файле данных заменяется на два перено 
са <br><br> 
	$name="$_"; 
	$name =~ s/\)NAME.*//g; 
	$name =~ s/NAME\(//g; 
	$name =~ s/\n//g; 
	$date="$_"; 
	$date =~ s/.*DATE\(//g; 
	$date =~ s/\)DATE\@.*//g; 
	$date =~ s/DATE\(//g; 
	$text="$_"; 
	$text =~ s/^NAME\(.*\)NAME//g; 
	$text =~ s/DATE\(.*\)DATE\@//g; 
	$htmlcfc =~ s/\%num\%/$num/g; 
	$htmlcfc =~ s/\%name\%/$name/g; 
	$htmlcfc =~ s/\%date\%/$date/g; 
	$htmlcfc =~ s/\%text\%/$text/g; 

#А это очень интересная строчка. Если вы хотите, чтобы комментарии показывались 
# по порядку (сначала первый, потом второй, и т.д.), то в следующей строчке 
#измените $htmlcfc$commh на $commh$htmlcfc. 
        $commh="$htmlcfc$commh"; 
} 
close(commfile); 

} 


sub add 
{ 
$id = ""; 
$name = ""; 
$date = ""; 
$text = ""; 
$errm=""; 
$id = $FORM{id}; 
$name = $FORM{name}; 
$text = $FORM{text}; 

($sec,$min,$hour,$mday,$mon,$year,$wday) = localtime(time); 
$year-=100; 
if ($mon<10) {$mon="0$mon"} 
if ($mday<10) {$mday="0$mday"} 
if ($min<10) {$min="0$min"} 
if ($hour<10) {$hour="0$hour"} 
if ($sec<10) {$sec="0$sec"} 
if ($year<10) {$year="0$year"} 
#Это формат даты. $mday-число, $mon-месяц, $year-год, $hour-час, $min-минута, 
#$sec-секунда. Можно разделять символами. 
$date="$mday/$mon/$year $hour:$min"; 

if (not length($adminkey) == 0){ 
if ($name =~ /$adminkey/){ 
($key,$aname) = split(/=/,$name,2); 
if ($key eq $adminkey){ 
$name2=$aname; 
$name2 =~ s/\s//g; 
if (length($name2) == 0) 
{ 
$errm="Вы не заполнили поле Имя"; 
&msg; 
exit; 
} 
if (not length($adminname) == 0){ 
$adminname =~ s/\%adminname\%/$aname/g;} 
else{ 
$adminname = $aname;} 
$name=$adminname; 
goto ADMIN; 
} 
} 
}


webskan
Участник

3		 # Дата: 29 Май 2006 12:25 ° Поправил: webskan


Продолжение 
 
$name2=$name; 
$name2 =~ s/\s//g; 
if (length($name2) == 0) 
{ 
$errm="Вы не заполнили поле Имя"; 
&msg; 
exit; 
} 

$text2=$text; 
$text2 =~ s/\s//g; 
if (length($text2) == 0) 
{ 
$errm="Вы не заполнили поле Комментарий"; 
&msg; 
exit; 
} 

if (length($name) > 10){ 
$errm="В поле Имя не должно быть больше 10 символов."; 
&msg; 
exit; 
} 

elsif (length($text) >= 500){ 
$errm="В поле Комментарий не должно быть больше 500 символов."; 
&msg; 
exit; 
} 

if ($disable_html == 1) 
{ 
if ($text =~ /<([^>]|\n)*>/) 
{ 
$text =~ s/<([^>]|\n)*>//g; 
$errm="В вашем комментарии были найдены html коды. Они удалены, а остальное доб 
авлено."; 
} 
if ($name =~ /<([^>]|\n)*>/) 
{ 
$name =~ s/<([^>]|\n)*>//g; 
$errm="В вашем комментарии были найдены html коды. Они удалены, а остальное доб 
авлено."; 
} 
} 

#Начало автозамены 
open(AUREP,"$autorepfile"); 
while (<AUREP>) { 
	chomp($_); 
	($per1,$per2) = split(/=/,$_,2); 

#	$per1 =~ s/\)/\\)/g; 
#	$per1 =~ s/\(/\\(/g; 

	if (not length($per1) == 0){ 
	$text =~ s/$per1/$per2/gi; 
	} 
} 
close(AUREP); 
#Конец автозамены 

$text =~ s/(\n){2,}/<br>/g; 

$text =~ s/^\(//g; 
$text =~ s/\)$//g; 
ADMIN: 
$text =~ s/\n/<br>/g; 
$text =~ s/NAME\(//g; 
$text =~ s/\)NAME//g; 
$text =~ s/DATE\(//g; 
$text =~ s/\)DATE\@//g; 

open FILE,">>$data$id.txt"; 
print FILE "NAME($name)NAMEDATE($date)DATE\@$text\n"; 
close FILE; 

if ($savecomm="1") { 
#Запись в админ-файл 
open FILE,">>$adminfile"; 
print FILE "<b>$date\n"; 
print FILE "<b>Новое сообщение в файл данных $id.txt:\n"; 
print FILE "Страница сайта: $ENV{'HTTP_REFERER'}\n</b>"; 
print FILE "$name <b>писал:</b>\n"; 
print FILE "$text\n"; 
print FILE "<a href=\"$adminurl?id=$id\">Ссылка для редактирования</a>\n"; 
if (length($errm) == 0) { 
print FILE "<b>Комментарий добавлен без ошибок.</b>\n\n\n"; 
} 
else { 
print FILE "<b>Комментарий добавлен с ошибкой: $errm</b>\n\n\n"; 
} 
close FILE; 
} 

if ($sendcomm = 1 and not length($sendmail) == 0 and not length($adminmail) ==  
0) { 
#Отправка письма администратору 
	open (MAIL, "|$sendmail -t"); 
	print MAIL "Subject: Новый комментарий от $name\n"; 
	print MAIL "To: \"Администратор\" \<$adminmail\>\n"; 
	print MAIL "From: \"$name\" \<$adminmail\>\n"; 
	print MAIL "X-mailer: CommentsFSS 1.2\n"; 
	print MAIL "X-originalip: $ENV{REMOTE_ADDR}\n\n"; 
        print MAIL "Новое сообщение в файл данных $id.txt:\n"; 
	print MAIL "Страница сайта: $ENV{'HTTP_REFERER'}\n"; 
	print MAIL "$name писал:\n"; 
	print MAIL "$text\n"; 
	if (length($errm) == 0) { 
	print MAIL "Комментарий добавлен без ошибок.\n"; 
	} 
	else { 
	print MAIL "Комментарий добавлен с ошибкой: $errm\n"; 
	} 
	print MAIL "Ссылка для редактирования: $adminurl?id=$id\n"; 
	print MAIL "          CommentsFSS v 1.2 © 2004, 7'th method, Paul, http://paul 
.webhost.ru\n"; 
	print MAIL "\n\n"; 
	close (MAIL); 
} 
&msg; 
} 


sub msg { 
#Вывод сообщения пользователю. 
$gburl = $ENV{'HTTP_REFERER'};# Определение, с какой страницы он пришел. 
if (length($gburl) == 0) 
{ 
$gburl="javascript:history.back(1)"; 
} 
if (length($errm) > 0) { 
#Возникла какая-то ошибка, и пользователю надо назад. Адрес той страницы 
#заменяется на "Назад." 
$gburl="javascript:history.back(1)"; 
} 
print <<EOF; 
<html> 
<head><title>Комментарии</title> 
<meta http-equiv="refresh" content="3;url= 
EOF 
print "$gburl";#Подстановка адреса той страницы в поле автоматического 
#перенаправления через 3 секунды. 
print <<EOF; 
"> 
<meta http-equiv="cache-control" content="no-cache" > 
<meta http-equiv="pragma" content="no-cache" > 
<meta http-equiv="content-type" content="text/html; charset=windows-1251"> 
<meta http-equiv="content-language" content="ru" > 
</head> 
<body> 
<div align="center"> 
  <p> 
EOF 
if (length($errm) == 0) { 
#Все в порядке. 
print "$name, ваш комментарий добавлен. Большое спасибо!"; 
} 
else { 
#Возникла какая-то ошибка, ее причина выводится. 
print "$errm"; 
} 
print <<EOF; 
</p> 
  <p><a href=" 
EOF 
#Ссылка на ту страницу. 
print "$gburl"; 
print <<EOF; 
">Назад</a></p> 
</div> 
</body> 
</html> 
EOF 
} 


sub loadset{ 
#Загрузка настроек 
if (-e "$setfile") { 
#Если файл настроек найден, то чтение 
open(SETTINGS,"$setfile"); 
while (<SETTINGS>) { 
	chomp($_); 
	($name,$value) = split(/=/,$_,2); 
	$VARS{$name} = $value; 
} 
close(SETTINGS); 
$data="$VARS{data}"; 
$htmlfile="$VARS{htmlfile}"; 
$htmlcommfile="$VARS{commfile}"; 
$adminfile="$VARS{adminfile}"; 
$sendmail="$VARS{sendmailp}"; 
$adminmail="$VARS{adminmail}"; 
$disable_html = "0"; 
$sendcomm = "0"; 
$savecomm = "0"; 
$passwordadm="$VARS{pass}"; 
$adminurl="$VARS{adminurl}"; 
$adminkey="$VARS{adminkey}"; 
$adminname="$VARS{adminname}"; 
$autorepfile="$VARS{autorepfile}"; 

if ($VARS{dhtml} =~ /1/){$disable_html ="1";} 
if ($VARS{sendcomm} =~ /1/){$sendcomm ="1";} 
if ($VARS{savecomm} =~ /1/){$savecomm ="1";} 
$adminmail =~ s/\@/\\@/g; 
#$adminname =~ s/"/\"/g; 
} 
else 
#А если не найден, то установка значений по умолчанию 
{ 
$data="data/"; 
$htmlfile="html.txt"; 
$htmlcommfile="comm.txt"; 
$adminfile="admin.txt"; 
$sendmail="/usr/sbin/sendmail"; 
$disable_html="1"; 
$sendcomm="0"; 
$adminmail=""; 
$savecomm="0"; 
$passwordadm="3"; 
$adminurl="admin.pl"; 
$adminkey=""; 
$adminname=""; 
$autorepfile="aurep.txt"; 
} 
}


acsid
Alfa Guru

2388		 # Дата: 29 Май 2006 14:56


оч занимательная вещ
Ваш ответ

Quote  Bold Style  Italic Style  Underlined Style  URL Link  Email Link  Script AutoTab  Preformatted Text  Отменить *Что это?
... Запретить смайлы


Перед отправкой "нелатинского" текста проверьте кодировку броузера!
 » Логин  » Пароль 
 
Powered by miniBB forum software © 2001-2008
Powered by miniBB-gzipper. Original size:34326, gzipped size:11254

Mp3 Download || Webs Studio™ || Song's Lyrics
eXTReMe Tracker Rambler's Top100 Рейтинг@Mail.ru Форум ТвойWeb [Valid RSS]