Mercurial > pub > Impl
view Lib/Engine/Security/Cookies.pm @ 31:d59526f6310e
Small fixes to Test framework (correct handlinf of the compilation errors in the test units)
Imported and refactored SQL DB schema from the old project
author | Sergey |
---|---|
date | Mon, 09 Nov 2009 01:39:16 +0300 |
parents | 03e58a454b20 |
children | 16ada169ca75 |
line wrap: on
line source
use strict; package Engine::Security::Cookies; use Engine::CGI; use CGI::Cookie; sub ReadSecData { return Engine::CGI::Query->cookie('SecData'); } sub WriteSecData { my ($class,$data) = @_; Engine::CGI::Query->SetCookies(new CGI::Cookie(-name => 'SecData', -value => $data, -expires => '+1d')); } sub ReadSSID { return Engine::CGI::Query->cookie('SSID'); } sub WriteSSID { my ($class,$data) = @_; Engine::CGI::Query->SetCookies(new CGI::Cookie(-name => 'SSID', -value => $data, -expires => '+1d')); } 1;