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

I've tried all the suggestions you proposed, Poj, but the results aren't changing. I actually have been doing database prints to verify things are actually stored so they can be compared to. Things are storing as I expected them to so the only possible problem is with the verification which we concluded earlier.

Maybe what's confusing you is what's going on so I'll try to explain that small section.

AccountID is their generated $ID number which is a 17 character string. AccountAD is their email address collected from the form. Both of these are stored in the DB1 just fine. I'm trying to verify the url_params (accountID=xxx&accountAD=xxx) to what's being stored so I can add them to DB2.

That's what I am after anyways, is this what the code is actually doing or am I confusing that entire process? Thanks so much. sulfericacid

"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

Replies are listed 'Best First'.
Re: Re: Re: Re: Registration Error
by poj (Abbot) on Mar 08, 2003 at 18:52 UTC
    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

    [download]
    poj
[reply]
[d/l]
      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
[reply]
        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);
}

        [download]
        poj
[reply]
[d/l]

In Section Seekers of Perl Wisdom