Help for this page

Select Code to Download


  1. or download this
    # if ($dbm1{"$accountAD"} 
#  && $dbm1{"$accountID"} =~ /^$accountAD$/) { # key values reversed
if ($dbm1{"$accountAD"} 
  && $dbm1{"$accountAD"} =~ /^$accountID$/) { # corrected
  2. or download this
    
# debug
...

showdata("Unverified",\%dbm1);
showdata("Verified",\%dbm2);
  3. or download this
    # $dbm1{$form{'usermail'}} = "$accountID";
$dbm1{"$accountID"} = $form{'usermail'};