diff Lib/IMPL/Web/Handler/SecureCookie.pm @ 263:0f59b2de72af

*fixed IMPL::DOM::Schema circular module references *modified IMPL::Object::Singleton, added auto-activation *code cleanups, docs
author sergey
date Wed, 09 Jan 2013 05:17:44 +0400
parents 4ac39b9e2ca4
children 63709a4e6da0
line wrap: on
line diff
--- a/Lib/IMPL/Web/Handler/SecureCookie.pm	Sat Dec 29 03:22:15 2012 +0400
+++ b/Lib/IMPL/Web/Handler/SecureCookie.pm	Wed Jan 09 05:17:44 2013 +0400
@@ -40,6 +40,17 @@
     return 0;
 }
 
+sub AuthCookie {
+    my ($this,$sid,$cookie,$sign, $context) = @_;
+    
+    if (eval { $context->auth->isa(AuthSimple) }) {
+        my ($result,$challenge) = $context->auth->DoAuth($cookie);
+        return $result;
+    }
+    
+    return AUTH_FAIL;
+}
+
 sub Invoke {
     my ($this,$action,$nextHandler) = @_;