Публикация статей посетителей - разн.дизайн

[Green Kakadu]

Настройка внешнего вида страницы, показываемой посетителю после того, как он запостил свою статью.
(данная фича появилась c v1.0)

Приступаем
Файл view.cgi
Находим подпрограмму sub add

в начале подпрограммы вместо my $tmpl; написать:
my ($tmpl, $tmpl1);

В конце, перед строками:
&print_header;
print $tmpl;
(это 244-245 строки)
написать:

open(VIEWFORM, "<$tmpl_dir/tmp-main/viewform.txt")||&WLerr("Can not open $tmpl_dir/tmp-main/viewform.txt, reason: $!");
         if ($use_flock){flock(VIEWFORM, 1);}
    while(){$tmpl1 .=$_;}
    close VIEWFORM;
    $tmpl1=~ s/<%text%>/$tmpl/;

А потом вместо
print $tmpl;

написать
print $tmpl1;

Все. вместе с addform.txt кинуть viewform.txt и для того, чтоб вставить  текст, поместите тег <%text%>

если хотите поменять формат самого текстового сообщения, товместо
$tmpl1=~ s/<%text%>/$tmpl/;

закиньте:
foreach my $input (keys %in) {
 $in{$input}||=\' не указан\';
}
$tmpl1=~ s/<%(\\w+)%>/$in{$1}/g;

вот, и тогда надо будет вставлять не текст
а теги <%article%>, <%note%>, <%mail%>, <%www%> и т.д. (по именам полей)
должно получиться, не пробовал

[alexxmfk]

Спасибо огромное, сейчас попробую.

[alexxmfk]

Великолепно, работает как часы. !!!
Ещё раз спасибо за такой отличный скрипт и за помощь.

[Green Kakadu]

Великолепно, работает как часы. !!!

а каким вариантом воспользовались, с <%text%> или <%article%> и т.д.?

[alexxmfk]

с <%text%>
А разницы то никакой

[alexxmfk]

При использовании второго варианта не появляется надпись Спасибо! Статья отправлена!

[Green Kakadu]

Спасибо! Статья отправлена!

да ж)
можно туда перед  $tmpl2~=/<%(\\w+)%>/$in{$1}/g;
кинуть:
$in{\'end\'}= $in{\'preview\'}? \'

Предпросмотр

\': \'

Спасибо, статья отослана!

\';

Теперь вместо <%end%> будет выводиться одна фраза :

Предпросмотр

\' или  \'

Спасибо, статья отослана!

\'

[alexxmfk]

А можно ли заставить пахать инклуд в шаблонах addform.txt и viewform.txt