Mercurial > pub > Impl
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;