if($password =~ /\S\S\d\d\S\S/){
#if there is a password user then exists in ldap, update the username
$error = ChangeUsername($old_username, $new_username, 'suppliers', 'select', 'dci');
# make sure user has "approved" status
record_username_success([EMAIL PROTECTED], $count);
print "username changed from \"$old_username\" to \"$new_username\" using password \"$password\" \n";
}else{
handle_error($error, [EMAIL PROTECTED], $count);
}
It prints off the username that has been changed and its password. Then the handle_error function is called.
Anyone got any ideas?
Cheers in advance,
Graeme :)
-- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>