Form::Processor::Field::Password - Input a password

Form-Processor documentation Contained in the Form-Processor distribution.

Index

Code Index:

NAME

Top

Form::Processor::Field::Password - Input a password

SYNOPSIS

Top

See Form::Processor

DESCRIPTION

Top

The password field validates that the does not contain spaces (\s), contains only wordcharacters (alphanumeric and underscore \w), is not all digets, and is at least 6 characters long.

If there is another field called "login" or "username" will validate that it does not match this field (preventing the same text for both login and password.

Widget

Fields can be given a widget type that is used as a hint for the code that renders the field.

This field's widget type is: "".

Subclass

Fields may inherit from other fields. This field inherits from:

AUTHORS

Top

Bill Moseley

COPYRIGHT

Top

See Form::Processor for copyright.

This library is free software, you can redistribute it and/or modify it under the same terms as Perl itself.

SUPPORT / WARRANTY

Top

Form::Processor is free software and is provided WITHOUT WARRANTY OF ANY KIND. Users are expected to review software for fitness and usability.

Form-Processor documentation Contained in the Form-Processor distribution. 
package Form::Processor::Field::Password;
use strict;
use warnings;
use base 'Form::Processor::Field::Text';
our $VERSION = '0.03';
# use Data::Password ();
#


sub init_widget { 'password' }
sub init_min_length { 6 }
sub init_password { 1 }



sub validate {
    my $self = shift;

    return unless $self->SUPER::validate;

    my $value = $self->input;

    return $self->add_error( 'Passwords must not contain spaces' )
        if $value =~ /\s/;

    return $self->add_error( 'Passwords must be made up from letters, digits, or the underscore' )
        if $value =~ /\W/;

    #return $self->add_error( 'Passwords must include one or more digits' )
    #    unless $value =~ /\d/;

    return $self->add_error( 'Passwords must not be all digits' )
        if $value =~ /^\d+$/;




    # This is too strcit.
    # Need to make sure it doesn't match login
    # my $msg = Data::Password::IsBadPassword( $self->input );
    #return $self->SUPER::validate unless $msg;
    #$self->add_error( $msg );

    # So hack it.
    my $params = $self->form->params;

    for (qw/ login username / ) {
        next if $self->name eq $_;

        return $self->add_error( 'Password must not match ' . $_ )
        if $params->{$_} && $params->{$_} eq $value;
    }

    return 1;


}

sub required_message { 'Please enter a password in this field' }





1;