|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Alexander Bolotnov 2:5052/4.82 03 Nov 2000 18:36:15
To : All
Subject : Почему?
--------------------------------------------------------------------------------
> вот, пробую куки делать, все, вроде правильно, но кука не ставится,
> почему, а?
не в ту доку смотрел... :)
вот теперь вроде работает, может проверите на вшивость...
> <html>
> <body>
> <form action=set.pl>
> name: <input type=text name=name>
> pwd: <input type=text name=pwd>
> <input type=submit value=send>
> </form>
> </body>
> </html>
хтмыл тот же...
а вот прога другая...
=== Cut ===
#!d:\perl\bin\perl.exe
use CGI qw/:standard/;
use CGI::Cookie;
$q = new CGI;
$name = $q->param('name');
$pwd = $q->param('pwd');
if (!cookie('info')){
$c = new CGI::Cookie(-name=>'info', -value=>$name._.$pwd, -expires=>'+1M');
print header(-cookie=>[$c]);
}
else{
($n,$p) = cookie('info') =~/(.+)_(.+)/;
print header;
}
print start_html,
start_form(-action=>'set.pl'),
"name: ",textfield(-value=> "$n", 'name'),
"pwd: ",textfield(-value=> "$p", 'name'),
submit,
end_form,
end_html;
=== Cut ===
спасибо большое заранива :)))
[NewNet] Alexander Bolotnov.
---
* Origin: Ищу тепло... чужое телпо... :-( (2:5052/4.82)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
| Тема: |
Автор: |
Дата: |
|
Почему? |
Alexander Bolotnov |
03 Nov 2000 17:56:32 |
 Почему? |
Alexander Bolotnov |
03 Nov 2000 18:36:15 |
|
|
