|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : ‘⥯ ®ў ђ‚ 2:5020/400 23 Jun 2000 04:27:49
To : All
Subject : Как получить page expired
--------------------------------------------------------------------------------
Всем привет
Я все о своем.
Как получается сообщение PAGE EXPIRED
У меня вот есть такой пример,
#!/usr/local/bin/perl
use CGI qw/:standard/;
$newcgi= new CGI;
print $newcgi->header(-Expires=>'now');
print $newcgi->start_html();
print $newcgi->param("thetext") if $newcgi->param("thetext");
print<<FORM;
<form method="POST" action="/cgi-bin/form2.cgi">
Type text:
<input type="text" name="thetext" value="$thetext">
<input type="submit" value="go">
</form>
FORM
print $newcgi->end_html;
ввожу текстуху делаю submit, попадаю на следующую страницу.
после,
если нажимаю в бровзере кнопку back, попадаю на старницу с которой сделал
submit, а хочется
получить page expired.
Кто, чем может, плиз. Какой-нибудь правильный примерчик кинте, что-ли.
WBR,RVS
--- ifmail v.2.15dev5
* Origin: EDN Sovintel (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
