diff Lib/IMPL/Security/Auth/Simple.pm @ 72:eac47fa4f262

docs
author wizard
date Fri, 26 Mar 2010 16:26:31 +0300
parents d92d5ddaf524
children 2f31ecabe9ea
line wrap: on
line diff
--- 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