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;+
−