[ic] UserDB.pm v2.52 - emails with numbers

[Peter]

On 05/24/2007 08:15 AM, Josh Lavin wrote:
> Thanks to Jeff Boes, here is a diff from 2.52 for patching to make this
> work properly:
> 
> --- UserDB.pm.252       2007-05-13 17:30:25.000000000 -0500
> +++ UserDB.pm   2007-05-23 10:47:08.000000000 -0500
> @@ -1613,7 +1613,7 @@
>                                 and $self->{USERNAME} =~
> m!$self->{OPTIONS}{username_mask}!;
>                 die errmsg("Sorry, user name must be an email address.")
> . "\n"
>                         if $self->{OPTIONS}{username_email}
> -                               and $self->{USERNAME} !~
> m!^[:alnum:]([.]?([[:alnum:]._-]+)*)?@([[:alnum:]\-_]+\.)+[a-zA-Z]{2,4}$!;
> +                               and $self->{USERNAME} !~
> m!^[[:alnum:]]([.]?([[:alnum:]._-]+)*)?@([[:alnum:]\-_]+\.)+[a-zA-Z]{2,4}$!;
> 
>                 die errmsg("Must enter at least %s characters for
> password.",
>                         $self->{PASSMINLEN}) . "\n"
>                         if length($self->{PASSWORD}) < $self->{PASSMINLEN};

Thanks Josh. Patch committed to CVS.

Peter