Authen::PluggableCaptcha::Challenge::TypeString

#!/usr/bin/perl
#
# Authen::PluggableCaptcha::Challenge::TypeString
# Authen::PluggableCaptcha 
#
######################################################

use strict;

package Authen::PluggableCaptcha::Challenge::TypeString;

use vars qw(@ISA $VERSION);
$VERSION= '0.02';

use Authen::PluggableCaptcha::Challenge ();
our @ISA= qw( Authen::PluggableCaptcha::Challenge );

######################################################

use Digest::MD5 qw(md5_hex);

######################################################

sub new {
	my  ( $proto , %kw_args )= @_;
	my  $class= ref($proto) || $proto;
	my  $self= bless ( {} , $class );
	
		die "must supply 'keymanager_instance'" unless $kw_args{'keymanager_instance'};
		
		$self->_keymanager( $kw_args{'keymanager_instance'} );
		$self->_instructions("Please type the text you see");
		$self->_user_prompt(
			substr(
				md5_hex( 
					sprintf(
						"%s|%s|%s|%s" , 
							$self->keymanager->site_secret,
							$self->keymanager->publickey,
							$self->keymanager->publickey,
							$self->keymanager->time_start
					)
				),
				0,
				6
			)
		);
	$self->_correct_response( $self->user_prompt );
	return $self;
}

sub validate {
	my 	( $self , %kw_args )= @_;
	if ( ! defined $kw_args{'user_response'} || !$kw_args{'user_response'} ) {
		die "validate must be called with a 'user_response' argument";
	}
	if ( lc($kw_args{'user_response'}) eq lc($self->correct_response) ) {
		return 1;		
	}
	return 0;
}






###
1;