Forum Webscript.Ru
Наши скрипты => Sanitarium WebLoG => Модификации => Тема начата: 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%> и т.д. (по именам полей)
должно получиться, не пробовал ;)
-
Спасибо огромное, сейчас попробую.
-
Великолепно, работает как часы. !!!
Ещё раз спасибо за такой отличный скрипт и за помощь.
-
Великолепно, работает как часы. !!!
а каким вариантом воспользовались, с <%text%> или <%article%> и т.д.?
-
с <%text%>
А разницы то никакой
-
При использовании второго варианта не появляется надпись Спасибо! Статья отправлена!
-
Спасибо! Статья отправлена!
да ж)
можно туда перед $tmpl2~=/<%(\\w+)%>/$in{$1}/g;
кинуть:
$in{\'end\'}= $in{\'preview\'}? \'Предпросмотр
\': \'Спасибо, статья отослана!
\';
Теперь вместо <%end%> будет выводиться одна фраза :
Предпросмотр
\' или \'Спасибо, статья отослана!
\'
-
А можно ли заставить пахать инклуд в шаблонах addform.txt и viewform.txt ???