Handle MD5 passwords

https://sourceforge.net/tracker/?func=detail&atid=117457&aid=3142014&group_id=17457

diff --git a/cluster-passwd/save_passwd.cgi b/cluster-passwd/save_passwd.cgi
index 29ea35c..a9c2cd0 100755 (executable)
--- a/cluster-passwd/save_passwd.cgi
+++ b/cluster-passwd/save_passwd.cgi
@@ -16,6 +16,8 @@ $user || &error($passwd::text{'passwd_euser'});
 if ($access{'old'} == 1 ||
     $access{'old'} == 2 && $user->{'user'} ne $remote_user) {
        &unix_crypt($in{'old'}, $user->{'pass'}) eq $user->{'pass'} ||
+          &useradmin::encrypt_password($in{'old'}, $user->{'pass'}) eq
+          $user->{'pass'} ||
                &error($passwd::text{'passwd_eold'});
        }
 if ($access{'repeat'}) {