diff Lib/Security.pm @ 48:1c3c3e63a314

security in progress
author Sergey
date Fri, 26 Feb 2010 01:43:42 +0300
parents 03e58a454b20
children 16ada169ca75
line wrap: on
line diff
--- a/Lib/Security.pm	Tue Feb 23 22:57:16 2010 +0300
+++ b/Lib/Security.pm	Fri Feb 26 01:43:42 2010 +0300
@@ -17,22 +17,5 @@
     return $CurrentSession;
 }
 
-package Security::AuthResult;
-use Common;
-our @ISA = qw(Object);
-
-BEGIN {
-    DeclareProperty State => ACCESS_READ;
-    DeclareProperty Session => ACCESS_READ;
-    DeclareProperty ClientSecData => ACCESS_READ;
-    DeclareProperty AuthMod => ACCESS_READ;
-}
-
-sub isSuccess {
-    my ($this) = @_;
-    return $this->{$State} == Security::AUTH_SUCCESS;
-}
-
-
 1;