scsh-conservatory
/
scsh-expect
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fix yppasswd support on linux

This commit is contained in:
eknauel 2004-11-23 12:51:37 +00:00
parent 08b2fa0f6f
commit d4bc81dfff
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
examples/passwd-wrapper.scm
View File

@ -195,13 +195,14 @@ Please choose a password with at least 2 character classes.")
"Please retype new password:" "Please retype new password:"
"Sorry." "Sorry."
"Mismatch - password unchanged." "Mismatch - password unchanged."
#f ;; TODO?? (rx "The NIS password has been changed on"))))))
)))))
(define (verify-yp-password password) (define (verify-yp-password password)
(if (password-stored-in-yp-passwd? (user-login-name)) (let ((user-has-yp-password?
(password-stored-in-yp-passwd? (user-login-name))))
(if user-has-yp-password?
(verify-password yppasswd password) (verify-password yppasswd password)
#t)) #t)))
(define (change-yp-password old-pw new-pw) (define (change-yp-password old-pw new-pw)
(if (password-stored-in-yp-passwd? (user-login-name)) (if (password-stored-in-yp-passwd? (user-login-name))