Суть проблемы вот в чем, скрипт генерит формы, всякие html страницы показывает, и что самое плохое, пользователь может нажать в браузере кнопочку и вернутся скажем на предыдущую форму. Это не есть гуд. Я задавал уже этот вопрос, и мне посоветовали обратится к модулю Session.pm, модуль впендюрил в проект, вот только теперь не знаю как его использовать с этой целью. Подскажите как нормальные люди так делают?

r можешь отключить или заблокировать запись в журнал посещений, т.е. кнопочку назад, с помощью js.
С помощью модуля CGI::Session можешь запоминать посещенные страницы пользователем, записывая инфо в сессию, а дальше с этой инфой можешь делать все что захочешь: блокировать, создавать самому ссылку назад на перезагрузку страницы и т.п.
Читай CGI::Session::Cookbook, там есть пример сохранения истории в сессию.


Добавлено @ 00:10

Пора зарегистрироваться!!!

Цитата(sharq @ 2.9.2005, 00:09)

Пора зарегистрироваться!!!

А какой смысл? В инете редко бываю когда деньги на мобиле есть. Спасибо за ответ.

Цитата(sharq @ 2.9.2005, 00:09)

r можешь отключить или заблокировать запись в журнал посещений, т.е. кнопочку назад, с помощью js. С помощью модуля CGI::Session можешь запоминать посещенные страницы пользователем, записывая инфо в сессию, а дальше с этой инфой можешь делать все что захочешь: блокировать, создавать самому ссылку назад на перезагрузку страницы и т.п. Читай CGI::Session::Cookbook, там есть пример сохранения истории в сессию. Добавлено @ 00:10 Пора зарегистрироваться!!!

Извини, как заблокировать запись?
А если у него js не поддерживаются?
Покажи небольшой кусок кода как блокировать, а то моя твоя не понимай. Спасибо.

В принципе, можно выдавать пользователю код 204, и тогда страница не появится. Но проблемма у меня вот в чем, у меня постоянно выдается один и тот-же заголовок:

Код

#!C:\perl\bin\perl -w use strict; use CGI; my $cgi = new CGI; sub form_1{ ... } sub form_2{ ... } sub form_3{ ... } print $cgi->header(-charset =>'Windows-1251'); if( defined $cgi->param('form_1') ) { form_1; } elsif ( defined $cgi->param('form_2') ) {  form_2;   }else { form_3; };

Можно конечно заблокировать одну из форм, но как этак извратится?

А что за проблема с заголовком? Вот твоё условие в конце программы:

Код

# Следующий заголовок удаляем. # print $cgi->header(-charset =>'Windows-1251'); if( defined $cgi->param('form_1') ) {     # Здесь заголовок 1     form_1; } elsif ( defined $cgi->param('form_2') ) {     # Заголовок 2     form_2;   }else {     # Перенаправление     form_3; };

После этого, твоя программа будет возвращать заголовок в зависимости от условия. Или я вопроса не понял???

Я рад что ты появился, сейчас попробую.

Цитата

Я рад что ты появился, сейчас попробую.

Пробуй.
Да у меня с инетом возникли недоразумения. Неделю как на необитаемом острове просидел.

Что-то не получается, конечно получается вставить заголовок в каждую форму это уже плюс, при загрузке первой формы я кладу имя этой формы в сессию, если конечно там ее нет, далее вызывается вторая форма, затем нажимаю на браузере кнопку перехода назад, вижу первую форму и нажимаю на submit и данные оправляются еще раз. Они правда повторно не пишутся в сессию, но все равно неправильно показывать пользователю старые заполненые формы. Тем более попадется какой-нибудь даун как начнет на все подряд жать. Вот задал вопрос на js форуме как у браузера кнопку отключить для начала.

Код

#!C:\perl\bin\perl -w use strict; use CGI; my $cgi = new CGI; sub form_1{ ... } sub form_2{ ... } sub form_3{ my $form = "form_3"; my $sess_ID = new CGI::Session("driver:File", undef, {Directory=>'../publik_html/session/'}); my $header = $sess_ID -> param('form');  if ($header eq $form ){ print $cgi -> redirect(-url=>'mmm'); } print $cgi -> header; ... } print $cgi->header(-charset =>'Windows-1251'); if( defined $cgi->param('form_1') ) { form_1; } elsif ( defined $cgi->param('form_2') ) {  form_2;   }else { form_3; };

А как ты поля формы создаёшь? Если с CGI.pm, то прописывай каждому полю параметр override.

Код

print $cgi->textfield( -name => 'user',                        -size => 25,                        -maxlength => 50,                        -override => 1 );

Я так понимаю, что ты хочешь избежать повторной отправки формы? Так же на JS, сразу же на событии onMouseUp блокируй кнопку отправки. Вот небольшой пример такой формы:

Код

<html>  <head>   <title>Test form</title>  </head>  <body bgcolor="#cccccc" onLoad="location: history.forward()">   <form action="/cgi-bin/test.pl" method="POST" name="test">    <input type="text" size="30" maxlength="50">    <!--// Здесь остальные поля формы //-->    <input type="submit" value="Отправить" name="send" onMouseUp="this.disabled=true">    <input type="reset" value="Очистить">   </form>  </body> </html>

Здесь сразу же после нажатия блокируется кнопка отправки сообщения и если пользователь жмёт кнопку назад, то его автоматом перекидывает на текущую страницу, т.е. путь назад закрыт. Поэксперементируй, правда я не стал переписывать это всё на манер CGI.pm, думаю ты и сам с этим прекрасно справишься.

Это сообщение отредактировал(а) korob2001 - 9.9.2005, 02:57

Не, фигня какая-то, так и не понял куда и что пихать, мне вот подсказали запретить браузеру кешировать результат, а это как? Спасибо.

Так, давай сначала и по порядку. Насколько я понял, ты хочешь создать Multi форму и тебе нужно сделать что бы при переходе к каждой последующей форме пользователь не мог вернуться к пред идущей. Я правильно понимаю задачу? Если да, попробуй такой, не большой, пример:

Код

#!/usr/bin/perl -w use strict; use CGI; my $cgi = new CGI; sub first_form {     print $cgi->h3("Форма 1");     print $cgi->start_form();     print $cgi->b("Ваше имя:");     print $cgi->textfield( -name => 'name',                            -override => 1 );  # Очищаем поле после отправки     print $cgi->submit( -name => 'send1', -value => 'Далее' );     print $cgi->end_form(); } sub second_form {     print $cgi->h3("Форма 2");     print $cgi->start_form();     print $cgi->b("Фамилия:");     print $cgi->hidden( -name => 'name', -value => $cgi->param('name') );     print $cgi->textfield( -name => 'surname',                            -override => 1 ); # Очищаем поле после отправки     print $cgi->submit( -name => 'send2', -value => 'Далее' );     print $cgi->end_form(); } sub third_form {     print $cgi->h3("Форма 3");     print $cgi->start_form();     print $cgi->b("Ваш E-mail:");     print $cgi->hidden( -name => 'name', -value => $cgi->param('name') );     print $cgi->hidden( -name => 'surname', -value => $cgi->param('surname') );     print $cgi->textfield( -name => 'mail',                            -override => 1 ); # Очищаем поле после отправки     print $cgi->submit( -name => 'send3', -value => 'Отправить' );     print $cgi->end_form(); } sub success {     print $cgi->h3( { -style => "color: #aa0000" }, "Получены следующие данные:");     print $cgi->b("Имя: ");     print $cgi->font( $cgi->param('name') );     print $cgi->br();     print $cgi->b("Фамилия: ");     print $cgi->font( $cgi->param('surname') );     print $cgi->br();     print $cgi->b("E-mail: ");     print $cgi->font( $cgi->param('mail') ); } print $cgi->header( -charset => 'Windows-1251' ); # Так как все подпрограммы будут генерировать HTML и мы достаточно ленивы # выводим верхнюю часть страницы только 1 раз print $cgi->start_html( -title => 'Test',                         -onLoad => "history.forward()" ); # <--| Запретим пользователю возврат if ( defined $cgi->param('send1') ) {      second_form(); } elsif ( defined $cgi->param('send2') ) {      third_form(); } elsif ( defined $cgi->param('send3') ) {      success(); } else {      first_form(); } # Также поступим и с нижней частью документа print $cgi->end_html();

Здесь пользователь должен заполнить 3 формы, в каждой из которых по одному полю. Когда заполнишь хотя бы одну и нажмёшь кнопку "Далее", попробуй вернуться к предидущей.

Да блин, пашет здорово пашет. А если будут отключены js?

P.s. Да, ты все-таки по моему мнению лучший специалист. Спасибо.

Цитата

А если будут отключены js?

Ну тогда пользователь сможет вернуться, но это бывает крайне редко. Потому никогда не полагайся на языки, которые работают на клиенте, воспринимай их просто как вспомогательные, всё равно делай всевозможные проверки полученной информации на сервере. Но с другой стороны JavaScript поддерживается всеми современными браузерами и отключают его очень редко, к тому же его поддержка включена по умолчанию в каждом браузере, а если и не в каждом, то в большинстве.

Цитата

P.s. Да, ты все-таки по моему мнению лучший специалист.

Спасибо, я аж застеснялся.

JavaScript - это хорошо, но для полной уверенности необходимо проверять самому (на сервере) данные перед их записью. Например, чтобы один и тот же пользователь не мог каждую секунду редактировать данные, поставить ограничение на редактирование - т.е. защита от так называемого флуда.
Проверка может быть как раз через сессии.
Но это уже лирика.