#
# Находим файл дискуссии, в который надо поместить реплику
#
+ my ($tree,$lockfd)=gettree($ENV{'PATH_TRANSLATED'});
+ my $messagetpl = $tree->look_down(class=>"message");
+ if (!$messagetpl) {
+ show_error($forum,"Шаблон темы не содержит элемента с классом
+ message");
+ exit;
+ }
+ #
+ # Генерируем идентификатор записи.
#
- # Сохраняем приаттаченную картинку, если есть.
+ my $id = get_uid($forum);
+
+
#
-
- # Генерируем идентификатор записи.
+ # Сохраняем приаттаченные картинки, если есть.
#
-
+ my $dir = $ENV{PATH_TRANSLATED};
+ $dir=~ s/[^\/]+$// if (-f $dir);
+ my %attached;
+ for (my $i=1;defined $cgi->param("image$i"); $i++) {
+ my $userpath=$cgi->param("image$i");
+ my $filename=lc($1) if $userpath =~ /([^\/\\]+)$/;
+ attached{$filename} = $id."_".$filename;
+ my $in = $cgi->upload("image$i");
+ my $out;
+ open $out,">$dir/$attached{$filename}";
+ binmode $out,":bytes";
+ local $_=undef;
+ my $data = <$in>;
+ print $out $data;
+ close $in;
+ close $out;
+ }
+
#
# Преобразуем текст записи в html и чистим его
#
- my $txtree = undef;
- if ($cgi->param("format") eq "bbcode") {
-
- } elsif ($cgi->param("format") eq "text") {
- my $text = $cgi->escapeHTML($cgi->param("text"));
- $text=~s/\r?\n\r?\n/<p>/;
- $text=~s/\n/<br>/;
- $txtree =
- HTML::TreeBuilder->new_from_content("<div>$text</div>");
- } else { # Default - html
- $txtree =
- HTML::TreeBuilder->new_from_content("<div>".$cgi->param("text")."</div>");
- for my $badtag
- ("script","style","head","html","object","embed","iframe","frameset","frame",
- ($forum->{forbid_tags}?split(/\s*,\s*/,$forum->{forbid_tags}):())) {
- for my $element ($txtree->find_by_tag_name($badtag)) {
- $element->delete() if defined $element;
- }
+ my $txtree = input2tree($cgi,$forum,"text");
+ #
+ # Находим в тексте URL на приаттаченные картинки и меняем на те
+ # имена, под которыми мы их сохранили.
+ #
+ for my $image ($txtree->find_by_tag_name("img")) {
+ my $file;
+ if ( exists $attached{$file=lc($image->attr("src"))}) {
+ $image->attr("src" => $attached{$file});
+ my ($width,$height) = imgsize($dir ."/".$attached{$file});
+ $image->attr("width" =>$width);
+ $image->attr("height" => $height);
}
}
+ #
+ # Копируем элемент с классом message
+ #
+ my $newmsg = $messagetpl->clone;
+ my $parent = $messagetpl->parent;
+ $parent->push_content($newmsg);
+ #
+ # Подставляем данные сообщения
+ #
+ $newmsg->attr("id"=>$id);
+ if (my $subj=$newmsg->look_down("class"=>"subject") &&
+ $cgi->param("subject")) {
+ $subj->delete_content;
+ $subj->push_content($cgi->param("subject"));
+ }
+ my $textnode=$newmsg->look_down("class"=>"mtext");
+ if (!$textnode) {
+ show_error($forum,"В шаблоне реплики нет места для текста");
+ }
+ $textnode->delete_content();
+ $textnode->push_content($txtree);
+ if ($forum->{authenticated}{signature}) {
+ $textnode->push_content(new HTML::Element("br"),"--",
+ new HTML::Element("br"),str2tree($forum->{authenticated}{signature}));
+ }
+ substitute_user_info($newmsg,$forum);
+ #
+ # Подставляем данные в форму msginfo
+ #
+ my $editform=$newmsg->look_down(_tag=>"form","class"=>"msginfo");
+ if ($editform) {
+ my $idfield = $editform->look_down(_tag=>"input","name"=>"id");
+ if (!$idfield) {
+ show_error($forum,"В форме управления сообщением нет поля
+ id");
+ }
+ $idfield->attr("value" => $id);
+ my $authorfield = $editform->look_down(_tag=>"input","name"=>"author");
+ if (!$authorfield) {
+ show_error($forum,"В форме управления сообщением нет поля
+ id");
+ }
+ $authorfield->attr("value"=>$forum->{authenticated}{user});
+ }
+ # Подставляем mdate
+ my $date = $newmsg->look_down("class"=>"mdate");
+ if ($date) {
+ $date->delete_content;
+ $date->push_content(strftime("%d.%m.%Y %H:%M",localtime()));
+
+ }
+ # Подставляем mreply
+ my $reply_link = $newmsg->look_down(_tag=>"a","class"=>"mreply");
+ $reply_link->attr("href"=> $cgi->url(-absolute=>1,-path_info=>1).
+ "?reply=1&id=$id") if ($reply_link);
+ # Подставляем manchor
+ my $anchor = $newmsg->look_down(_tag=>"a","class"=>"manchor");
+ if (! $anchor) {
+ show_error($forum,"В шаблоне сообщения отсутствует якорь для
+ ссылок на него");
+ exit;
+ }
+ $anchor->attr(href=>undef);
+ $anchor->attr(name=>"#$id");
+ # подставляем mlink
+ my $link = $newmsg->look_down(_tag=>"a","class"=>"mlink");
+ $link->attr(href=>$cgi->path_info."#id");
+ # подставляем mparent
+ my $parent_id=$cgi->param("id");
+ my $parent_link=$newmsg->lookdown(_tag => "a",class=>"mparent");
+ if ($parent_link) {
+ if ($parent_id) {
+ $parent_link->attr("href"=>$cgi->path_info."#$parent_id");
+ } else {
+ # Если parent_id отсутствует, т.е. это начало нового треда
+ # просто делаем ссылку невидимой.
+ $parent_link->delete_content();
+ }
+ }
+
+ #
+ # Проверяем видимость списка сообщений
+ #
+ my $msglist = $tree->look_down("class"=>"messagelist");
+ if ($msglist) {
+ my $style = $msglist->attr("style");
+ $msglist->attr("style",$style) if $style =~ s/display: none;//;
+ }
+ #
+ # Делаем Уфф и сохраняем то, что получилось
+ #
+ savetree($ENV{PATH_TRANSLATED},$tree,$lockfd);
+ forum_redirect($cgi,$forum);
+
}
#
# читает файлы прав доступа в дереве форума, и возвращает
my $f;
open $f,"<",$filename or return undef;
flock $f, LOCK_EX;
- my $tree = HTML::TreeBuider->new_from_file($f);
+ my $tree = HTML::TreeBuilder->new_from_file($f);
return ($tree,$f);
}
#
close $f;
return sprintf ("%08s",$id);
}
-#
-# ----------------- OpenID registration -----------------------------
-#
+# --------------------------------------------------------------------
+# OpenID registration
+# -------------------------------------------------------------------
sub create_openid_consumer {
my ($cgi,$forum) = @_;
return Net::OpenID::Consumer ->new(
exit;
}
}
+#-----------------------------------------------------------------
+# Обработка форматированных текстовых полей
+#-----------------------------------------------------------------
+
+sub input2tree {
+ my ($cgi,$forum,$field_name) = @_;
+ my $format = $cgi->param($field_name."_format");
+ my $text = $cgi->param($field_name);
+
+ if ($format eq "bbcode") {
+ my $parser = HTML::BBReverse->new();
+ $text="<div class=\"bbcode\">".$parser->parse($text)."</div>";
+
+ } elsif ($format eq "text") {
+ $text=~s/\r?\n\r?\n/<\/p><p class=\"text\">/;
+ $text=~s/\r?\n/<br>/;
+ $text = "<p class=\"text\">".$text."</p>";
+ } else {
+ $text="<div>".$text."</div>";
+ }
+ my $txtree = str2tree($text);
+ for my $badtag
+ ("script","style","head","html","object","embed","iframe","frameset","frame",
+ ($forum->{forbid_tags}?split(/\s*,\s*/,$forum->{forbid_tags}):())) {
+ for my $element ($txtree->find_by_tag_name($badtag)) {
+ $element->delete() if defined $element;
+ }
+ }
+ # Проверяем на наличие URL-ок не оформленных ссылками.
+ return $txtree;
+}
+
+
+
+sub str2tree {
+ my ($data)=@_;
+ my $tree = HTML::TreeBuilder->new();
+ # Set parser options here
+ $tree->parse($data);
+ $tree->eof;
+ return $tree;
+
+}
+
+sub tree2str {
+ my ($tree)=@_;
+ return $tree->as_HTML("<>&");
+}
projects / oss / stilllife.git / commitdiff