Mercurial > pub > Impl
diff Lib/Engine/Security/Cookies.pm @ 49:16ada169ca75
migrating to the Eclipse IDE
author | wizard@linux-odin.local |
---|---|
date | Fri, 26 Feb 2010 10:49:21 +0300 |
parents | 03e58a454b20 |
children |
line wrap: on
line diff
--- a/Lib/Engine/Security/Cookies.pm Fri Feb 26 01:43:42 2010 +0300 +++ b/Lib/Engine/Security/Cookies.pm Fri Feb 26 10:49:21 2010 +0300 @@ -1,27 +1,27 @@ -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; \ No newline at end of file +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;