if ($query->param('newwebpass') && $query->param('newwebpassvrfy')) {
if ($query->param('newwebpass') ne $query->param('newwebpassvrfy')) {
# passwords don't match...
if ($query->param('newwebpass') && $query->param('newwebpassvrfy')) {
if ($query->param('newwebpass') ne $query->param('newwebpassvrfy')) {
# passwords don't match...
}
my ($r, $msg) = &Util::checkPasswordQuality($query->param('newwebpass'), undef, [@ldapinfo_for_pwcheck]);
if ($r) {
}
my ($r, $msg) = &Util::checkPasswordQuality($query->param('newwebpass'), undef, [@ldapinfo_for_pwcheck]);
if ($r) {
&Util::LDAPUpdate($ldap, $editdn, 'webPassword', $newwebpassword);
}
&Util::LDAPUpdate($ldap, $editdn, 'webPassword', $newwebpassword);
}