From d403ceb52e007e7b34bc3a5f40986bfbb0eeab97 Mon Sep 17 00:00:00 2001 From: frese Date: Mon, 20 Sep 2004 15:59:15 +0000 Subject: [PATCH] - added a usage-screen and a system-type check --- examples/passwd-wrapper.scm | 21 ++++++++++++++++----- 1 file changed, 16 insertions(+), 5 deletions(-) diff --git a/examples/passwd-wrapper.scm b/examples/passwd-wrapper.scm index d885821..f0ac149 100755 --- a/examples/passwd-wrapper.scm +++ b/examples/passwd-wrapper.scm @@ -321,9 +321,20 @@ Please choose a password with at least 2 character classes.") (else (lp pw)))))))) +(define (display-usage) + (display "Usage: passwd-wrapper.scm\n") + (display "Change NIS, Kerberos IV and Kerberos V passwords at once.\n") + (display "Written by David Frese.\n")) + (define (main args) - (let ((old-pw (ask/check-old-password)) - (new-pw (ask-new-password))) - (if (change-all-passwords old-pw new-pw) - (display "Password changed.\n") - (display "Password could not be changed.\n")))) + (if (null? (cdr args)) + (case system-type + ((freebsd solaris) + (let ((old-pw (ask/check-old-password)) + (new-pw (ask-new-password))) + (if (change-all-passwords old-pw new-pw) + (display "Password changed.\n") + (display "Password could not be changed.\n")))) + (else + (raise-unsupported-machine))) + (display-usage)))