Mercurial > pub > Impl

comparison Lib/Engine/Security/Cookies.pm @ 0:03e58a454b20

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Создан репозитарий
author Sergey
date Tue, 14 Jul 2009 12:54:37 +0400
parents
children 16ada169ca75
comparison
equal deleted inserted replaced
-1:000000000000 0:03e58a454b20
1 use strict;
2 package Engine::Security::Cookies;
3 use Engine::CGI;
4 use CGI::Cookie;
5
6 sub ReadSecData {
7
8 return Engine::CGI::Query->cookie('SecData');
9 }
10
11 sub WriteSecData {
12 my ($class,$data) = @_;
13
14 Engine::CGI::Query->SetCookies(new CGI::Cookie(-name => 'SecData', -value => $data, -expires => '+1d'));
15 }
16
17 sub ReadSSID {
18 return Engine::CGI::Query->cookie('SSID');
19 }
20
21 sub WriteSSID {
22 my ($class,$data) = @_;
23
24 Engine::CGI::Query->SetCookies(new CGI::Cookie(-name => 'SSID', -value => $data, -expires => '+1d'));
25 }
26
27 1;