Forum Webscript.Ru

Наши скрипты => Sanitarium WebLoG => Модификации => Тема начата: Green Kakadu от 19 Марта 2002, 02:07:13

Название: Публикация статей посетителей - разн.дизайн
Отправлено: Green Kakadu от 19 Марта 2002, 02:07:13
Настройка внешнего вида страницы, показываемой посетителю после того, как он запостил свою статью.
(данная фича появилась 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 от 19 Марта 2002, 03:02:25
Спасибо огромное, сейчас попробую.
Название: Публикация статей посетителей - разн.дизайн
Отправлено: alexxmfk от 19 Марта 2002, 03:11:34
Великолепно, работает как часы. !!!
Ещё раз спасибо за такой отличный скрипт и за помощь.
Название: Публикация статей посетителей - разн.дизайн
Отправлено: Green Kakadu от 19 Марта 2002, 03:25:38
Цитировать
Великолепно, работает как часы. !!!

а каким вариантом воспользовались, с <%text%> или <%article%> и т.д.?
Название: Публикация статей посетителей - разн.дизайн
Отправлено: alexxmfk от 19 Марта 2002, 03:32:34
с <%text%>
А разницы то никакой
Название: Публикация статей посетителей - разн.дизайн
Отправлено: alexxmfk от 19 Марта 2002, 04:02:57
При использовании второго варианта не появляется надпись Спасибо! Статья отправлена!
Название: Публикация статей посетителей - разн.дизайн
Отправлено: Green Kakadu от 19 Марта 2002, 12:10:12
Цитировать
Спасибо! Статья отправлена!

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

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

\': \'

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

\';

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

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

\' или  \'

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

\'
Название: Публикация статей посетителей - разн.дизайн
Отправлено: alexxmfk от 22 Октября 2002, 01:56:46
А можно ли заставить пахать инклуд в шаблонах addform.txt и viewform.txt ???