# HG changeset patch
# User Sergey
# Date 1267137822 -10800
# Node ID 1c3c3e63a3142fe3a89178fc67f7bd10c1cb7dbc
# Parent  a9b70d836b2858ce87d63551aec615c1318c8e22
security in progress

diff -r a9b70d836b28 -r 1c3c3e63a314 Lib/IMPL/Security/Principal.pm
--- a/Lib/IMPL/Security/Principal.pm	Tue Feb 23 22:57:16 2010 +0300
+++ b/Lib/IMPL/Security/Principal.pm	Fri Feb 26 01:43:42 2010 +0300
@@ -10,6 +10,11 @@
     public property Description => prop_get;
 }
 
+my $nobody;
 
+sub nobody {
+    $nobody = $_[0]->new(Name => 'nobody', Description => '') unless $nobody;
+    return $nobody;
+}
 
 1;
diff -r a9b70d836b28 -r 1c3c3e63a314 Lib/Security.pm
--- 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;