From d4bc81dfffcd7c80a2132db8a087b9b52de75008 Mon Sep 17 00:00:00 2001 From: eknauel Date: Tue, 23 Nov 2004 12:51:37 +0000 Subject: [PATCH] fix yppasswd support on linux --- examples/passwd-wrapper.scm | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/examples/passwd-wrapper.scm b/examples/passwd-wrapper.scm index cd4ba40..00841a1 100755 --- a/examples/passwd-wrapper.scm +++ b/examples/passwd-wrapper.scm @@ -195,13 +195,14 @@ Please choose a password with at least 2 character classes.") "Please retype new password:" "Sorry." "Mismatch - password unchanged." - #f ;; TODO?? - ))))) + (rx "The NIS password has been changed on")))))) (define (verify-yp-password password) - (if (password-stored-in-yp-passwd? (user-login-name)) - (verify-password yppasswd password) - #t)) + (let ((user-has-yp-password? + (password-stored-in-yp-passwd? (user-login-name)))) + (if user-has-yp-password? + (verify-password yppasswd password) + #t))) (define (change-yp-password old-pw new-pw) (if (password-stored-in-yp-passwd? (user-login-name))