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