X-Git-Url: http://www.wagner.pp.ru/gitweb/?p=oss%2Fstilllife.git;a=blobdiff_plain;f=forum%2Fforum;fp=forum%2Fforum;h=bc685450577ae4cfd35d1e81175f1304172b3af6;hp=7cb882b48c9c9234da43ab5d6d0ec89cd5dadeb5;hb=d0acd3927cbe4e0f7e4faccca7ef6dd68911ecd5;hpb=f66c0d31896664d40c4e78e21d14621c463f7ef6 diff --git a/forum/forum b/forum/forum index 7cb882b..bc68545 100755 --- a/forum/forum +++ b/forum/forum @@ -262,7 +262,7 @@ sub show_error { print $cgi->header(-type=>'text/html',-charset=>'utf-8'); print "Ошибка конфигурации форума", "

Ошибка конфигурации форума

", - $cgi->escapeHTML($msg),"

", + escapeHTML($msg),"

", "

При обработке этой ошибки не обнаружен шаблон сообщения об ошибке

"; } exit; @@ -1479,7 +1479,7 @@ sub delete_comment { my ($cgi,$forum,$topic,$id) = @_; my ($tree,$lockfd) = gettree($topic); my ($msg) = $tree->look_down(id => $id); - show_error("В данной теме нет реплики с id=$id") if (!$msg); + show_error($forum,"В данной теме нет реплики с id=$id") if (!$msg); if (getrights($cgi,$forum) ne "moderator" && getrights($cgi,$forum) ne "admin") { my $author= $msg->look_down(_tag=>"input",name=>"author"); @@ -1910,7 +1910,7 @@ sub input2tree { } elsif ($format eq "text") { $text=~s/\r?\n\r?\n/<\/p>

/; $text=~s/\r?\n/
/; - $text = "

".$text."

"; + $text = "

".escapeHTML($text)."

"; } my $txtree = str2tree($text); for my $badtag @@ -1920,7 +1920,7 @@ sub input2tree { $element->delete() if defined $element; } } - # Проверяем на наличие URL-ок не оформленных ссылками. + # FIXME Проверяем на наличие URL-ок не оформленных ссылками. return $txtree; } @@ -2065,3 +2065,10 @@ sub newlistelement { } } +sub escapeHTML { + local $_ = shift; + s/\&/&/g; + s/\/>/g; + return $_; +}