Mercurial > pub > Impl

comparison Lib/Security.pm @ 48:1c3c3e63a314

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
security in progress
author Sergey
date Fri, 26 Feb 2010 01:43:42 +0300
parents 03e58a454b20
children 16ada169ca75
comparison
equal deleted inserted replaced
47:a9b70d836b28 48:1c3c3e63a314
15 15
16 $CurrentSession = $newSession if @_>=2; 16 $CurrentSession = $newSession if @_>=2;
17 return $CurrentSession; 17 return $CurrentSession;
18 } 18 }
19 19
20 package Security::AuthResult;
21 use Common;
22 our @ISA = qw(Object);
23
24 BEGIN {
25 DeclareProperty State => ACCESS_READ;
26 DeclareProperty Session => ACCESS_READ;
27 DeclareProperty ClientSecData => ACCESS_READ;
28 DeclareProperty AuthMod => ACCESS_READ;
29 }
30
31 sub isSuccess {
32 my ($this) = @_;
33 return $this->{$State} == Security::AUTH_SUCCESS;
34 }
35
36
37 1; 20 1;
38 21