use Util;
use English;
use URI::Escape;
+use Crypt::PasswdMD5;
use Net::LDAP qw(LDAP_SUCCESS LDAP_PROTOCOL_ERROR);
my %config = &Util::ReadConfigFile;
}
# create a md5 crypted password
- $newwebpassword = crypt($query->param('newwebpass'), &Util::CreateCryptSalt(1));
+ $newwebpassword = apache_md5_crypt($query->param('newwebpass'), &Util::CreateCryptSalt(1));
&Util::LDAPUpdate($ldap, $editdn, 'webPassword', $newwebpassword);
}