Beefy Boxes and Bandwidth Generously Provided by pair Networks
Do you know where your variables are?
 
PerlMonks  

Re: Re: Mulitple constraints for Data::FormValidator

by Anneq (Vicar)
on Apr 17, 2004 at 01:48 UTC ( #345924=note: print w/ replies, xml ) Need Help??


in reply to Re: Mulitple constraints for Data::FormValidator
in thread Mulitple constraints for Data::FormValidator

Bloody excellent, anon.

I never would have figured to do that clever trick. I tested it and it worked like a charm.

However I changed a few things from your suggested code to get exactly what I needed. I'm including them here in case others might want to use this ingenious tactic.

I reverted to my original regexp constraint for the userid_untaint constraint because I wanted users to know that they had entered invalid characters and didn't want the password silently changed, because then they wouldn't be able to log back in using their original password.

As well, I changed $q->param( userid_untaint => 'dummy junk' ); to $q->param( userid_untaint => $q->param('userid')); and took out the dependancy. Then I added both userid and userid_untaint to the required list. This way, the userid_untaint (I must change the name to something like userid2 or some such) becomes like an additional variable to be tested.

I'll ++ you tomorrow when I have some votes. Its a shame you are anon, because your excellent idea should be recognized.

Why can't you untaint and check your database at the same time?

I wanted a clear separation between each test to make it easier to send messages to the user and to make my code more maintainable. I included only a snippet of code in my OP, however, there are many more tests, including passord confirmation, email validation, etc. I am trying to take full advantage of the power of the D::FV module.

Many thanks,

Anne


Comment on Re: Re: Mulitple constraints for Data::FormValidator
Select or Download Code
Re^3: Multiple constraints for Data::FormValidator
by matthewb (Deacon) on Jul 29, 2004 at 11:55 UTC

    I had a similar problem yesterday (and found this thread while doing a bit of research) but found an alternative solution in the module docs and thought I'd write it up here for the next time someone searches.

    From the docs:

    Multiple constraints can be applied to a single field by defining the value of the constraint to be an array reference.

    I needed to (sort of) check the validity of an email address and make sure that the address' owner was not already registered.

    To complicate matters a bit further, I needed to check that the entry in a field to confirm the email address matched.

    Here's an abridged version of the form profile I used. It presupposes the existence of a Class::DBI derived package that knows about users:

    my $profile = { required => [ qw( user_name user_email user_email_confirm # more stuff here... ) ], msgs => { prefix => q[e_], constraints => { # helpful error messages: user_email_valid => q[Invalid address], user_email_lookup => q[Already registered], emails_match => q[Emails don't match], }, }, # tidy entries: filters => ['trim','strip'], constraints => { user_email => [ { name => q[user_email_valid], constraint => q[email], }, { name => q[user_email_lookup], constraint => sub { # have a look in database: !My::Content::User->search( user_email => $_[0], ); }, params => [ qw( user_email ) ], } ], user_email_confirm => { name => q[emails_match], constraint => sub { $_[0] eq $_[1] }, params => [ qw( user_email user_email_confirm ) ], }, # more constraints, perhaps... }, };

    HTH someone,

    MB

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://345924]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others exploiting the Monastery: (21)
As of 2014-10-20 19:06 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    For retirement, I am banking on:










    Results (89 votes), past polls