Mercurial > pub > Impl

diff Lib/IMPL/Security/Auth/Simple.pm @ 68:739f1288ca84

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Auth in progress
author wizard
date Tue, 23 Mar 2010 16:55:25 +0300
parents 15d720913562
children d92d5ddaf524
line wrap: on
line diff
--- a/Lib/IMPL/Security/Auth/Simple.pm	Fri Mar 19 20:06:12 2010 +0300
+++ b/Lib/IMPL/Security/Auth/Simple.pm	Tue Mar 23 16:55:25 2010 +0300
@@ -2,7 +2,6 @@
 
 use base qw(IMPL::Security::Auth);
 use Digest::MD5;
-import IMPL::Security::Auth qw(:Const GenSSID);
 
 use IMPL::Class::Property;
 
@@ -21,7 +20,7 @@
 	my ($this,$challenge) = @_;
 
 	if (Digest::MD5::md5_hex($challenge) eq $this->_passwordImage) {
-		return (SUCCESS,$this->_sessionCookie(GenSSID));
+		return (SUCCESS,$this->_sessionCookie($this->GenSSID));
 	} elsee {
 		return (FAIL,undef);
 	}