--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/Lib/Engine/Security/Cookies.pm	Tue Jul 14 12:54:37 2009 +0400
@@ -0,0 +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