in reply to Re: Re: Re: Registration Error
in thread Registration Error

When you say 'all the suggestions', what did you mean ? Just the update I posted was all you had to do, this makes the generated ID the key and the accountAD the value. If you do that the test should be
if ($dbm1{"$accountAD"} # you have an accountAD to test && $dbm1{"$accountID"} =~ /^$accountAD$/) # ID is key AD is value
poj

Replies are listed 'Best First'.
Re: Re: Re: Re: Re: Registration Error
by sulfericacid (Deacon) on Mar 08, 2003 at 18:59 UTC
    I meant that I was already doing database prints to see if things were being stored, all I added new was your UPDATE change but that didn't fix the problem.

    "Age is nothing more than an inaccurate number bestowed upon us at birth as just another means for others to judge and classify us"

    sulfericacid
      OK, I think the problem is the accountAD ie the email address includes a @ character which needs escaping when you use it in a URL
      sub email { my $accountAD = CGI::escape( "$form{'usermail'}" ); ## here open (MAIL, "|$sendmail -t") or die "Cannot access mail"; print MAIL "To: $form{'usermail'}\n"; print MAIL "From: $adminmail\n"; print MAIL "Subject: Verify your Email Address\n\n"; print MAIL "http://sulfericacid.perlmonk.org/evs/revised.pl?accountI +D=$accountID&accountAD=$accountAD\n"; close (MAIL); }
      poj
        That does make sense actually. I tried escape the email address and noticed in the url thats sent it says your%40address.com . Are there any other characters in the $ID itself that need to be escaped incase it's a special character? I originally allowed & to be in there but someone said to remove that unless I wanted to escape it (it's removed) but I'm not sure if any of the other characters are special.

        Thanks!

        "Age is nothing more than an inaccurate number bestowed upon us at birth as just another means for others to judge and classify us"

        sulfericacid