package IMPL::Security::Auth::Simple;
use strict;

use parent qw(IMPL::Object IMPL::Security::Auth);
use Digest::MD5;

use IMPL::Class::Property;
use IMPL::Security::Auth qw(:Const);

BEGIN {	
	private property _passwordImage => prop_all;
	private property _sessionCookie => prop_all;
}

sub CTOR {
	my ($this,$secData) = @_;
	
	my ($passImg,$cookie) = split /\|/,$secData;
	
	$this->_passwordImage($passImg);
	$this->_sessionCookie($cookie);
}

sub secData {
	my ($this) = @_;
	
	if ($this->_sessionCookie) {
		return join ('|',$this->_passwordImage, $this->_sessionCookie );
	} else {
		return $this->_passwordImage;
	}
}

sub isTrusted {
	my ($this) = @_;
	
	$this->_sessionCookie ? 1 : 0;
}

sub DoAuth {
	my ($this,$challenge) = @_;

	if (Digest::MD5::md5_hex($challenge) eq $this->_passwordImage) {
		return (AUTH_SUCCESS,$this->_sessionCookie($this->GenSSID));
	} elsee {
		return (AUTH_FAIL,$this->_sessionCookie(undef));
	}
}

sub ValidateSession {
	my ($this,$cookie) = @_;
	
	die new IMPL::InvalidOperationException("The context is untrusted") unless $this->_sessionCookie;
	
	if ($cookie eq $this->_sessionCookie) {
		return (AUTH_SUCCESS,undef);
	} else {
		return (AUTH_FAIL,undef);
	}
}

sub CreateSecData {
	my ($self,%args) = @_;
	
	die new IMPL::InvalidArgumentException("The parameter is required",'password') unless $args{password};
	
	return Digest::MD5::md5_hex($args{password});
}

sub SecDataArgs {
	password => 'SCALAR'		
}

1;

__END__

=pod

=head1 NAME

C<IMPL::Security::Auth::Simple> ������ ������� �����������.

=head1 DESCRIPTION

���������� �������� MD5 ��� �������� ������ ������.

=head1 MEMBERS

=over

=item C<CTOR($secData)>

������� ������ ��������������, ��������� ��� ������ ��� �������������.

=item C<[get]secData>

���������� ������ ������������, ������� ����� ������������ ��� ��������������
��������� �������.

=item C<[get]isTrusted>

�������� �� ������ ���������� ��� �������������� ������ (������ ������ ������
��� �������������� ������).

=item C<DoAuth($challenge)>

��������������� ������������. ������������ ���� ����. C<$challenge>
�������� ������ ������������.

���������� C<($status,$challenge)>

=over

=item C<$status>

��������� ���� C<AUTH_SUCCESS>, ���� C<AUTH_FAIL>

=item C<$challenge>

� ������ ������ ���������� cookie (���������� �����) ������

=back

=item C<ValidateSession($challenge)>

��������� ������������� ������. ���������� ���� ����. C<$challenge> cookie
������, ���������� ��� ���������� ������ C<DoAuth>.

���������� C<($status,$challenge)>

=over

=item C<$status>

��������� ���� C<AUTH_SUCCESS>, ���� C<AUTH_FAIL>

=item C<$challenge>

������ C<undef>

=back

=back

=cut