|
49
|
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;
|
