# HG changeset patch
# User wizard
# Date 1269609991 -10800
# Node ID eac47fa4f262369c8691e11c5a3eae74b1800796
# Parent  d92d5ddaf524ed6a9fab044e58370e77e67584f8
docs

diff -r d92d5ddaf524 -r eac47fa4f262 Lib/IMPL/Security/Auth.pm
--- a/Lib/IMPL/Security/Auth.pm	Thu Mar 25 13:05:18 2010 +0300
+++ b/Lib/IMPL/Security/Auth.pm	Fri Mar 26 16:26:31 2010 +0300
@@ -69,7 +69,7 @@
 
 Требуются дополнительные шаги
 
-=item C<AUTH_FAILED>
+=item C<AUTH_FAIL>
 
 Аутентификация неуспешна.
 
diff -r d92d5ddaf524 -r eac47fa4f262 Lib/IMPL/Security/Auth/Simple.pm
--- a/Lib/IMPL/Security/Auth/Simple.pm	Thu Mar 25 13:05:18 2010 +0300
+++ b/Lib/IMPL/Security/Auth/Simple.pm	Fri Mar 26 16:26:31 2010 +0300
@@ -21,9 +21,9 @@
 	my ($this,$challenge) = @_;
 
 	if (Digest::MD5::md5_hex($challenge) eq $this->_passwordImage) {
-		return (SUCCESS,$this->_sessionCookie($this->GenSSID));
+		return (AUTH_SUCCESS,$this->_sessionCookie($this->GenSSID));
 	} elsee {
-		return (FAIL,undef);
+		return (AUTH_FAIL,undef);
 	}
 }
 
@@ -31,9 +31,9 @@
 	my ($this,$cookie) = @_;
 	
 	if ($cookie eq $this->_sessionCookie) {
-		return (SUCCESS,undef);
+		return (AUTH_SUCCESS,undef);
 	} else {
-		return (FAIL,undef);
+		return (AUTH_FAIL,undef);
 	}
 }
 
@@ -46,8 +46,7 @@
 }
 
 sub SecDataArgs {
-	
-		
+	password => 'SCALAR'		
 }
 
 1;
@@ -62,7 +61,29 @@
 
 =head1 DESCRIPTION
 
+Использует алгоритм MD5 для хранения образа пароля.
 
+=head1 MEMBERS
 
+=over
+
+=item C<DoAuth($challenge)>
+
+Аутентифицирует пользователя. Используется один этап. C<$challenge>
+открытый пароль пользователя.
+
+Возвращает C<($status,$challenge)>
+
+=over
+
+=item C<$status>
+
+Результат либо C<AUTH_SUCCESS>, либо C<AUTH_FAIL>
+
+=item
+
+=back
+
+=back
 
 =cut
\ No newline at end of file