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";
In reply to Re: Registration Error
by poj
in thread Registration Error
by sulfericacid
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |