in reply to Registration Error
which generates the $accountID and then thissub generate_id { do { $accountID = join '', map { $chars[ rand @chars ] } 1..17; } while grep {$_ eq $ID} my @used; print $ID;
Should $ID be $accountID$dbm1{$form{'usermail'}} = "$ID";
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: Re: Registration Error
by sulfericacid (Deacon) on Mar 06, 2003 at 20:04 UTC |