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

- changed package loading 

- added (partial) support for solaris
This commit is contained in:
frese 2004-08-31 10:30:48 +00:00
parent 44c9d5be05
commit 4a49fb8f30
1 changed files with 30 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
examples/passwd-wrapper.scm
View File

@ -1,5 +1,5 @@
#!/bin/sh #!/bin/sh
exec scsh -lm ../scheme/packages.scm -o threads -o chat -o expect -o let-opt -e main -s "$0" "$@" exec scsh -lel expect/load.scm -o threads -o expect -o let-opt -e main -s "$0" "$@"
!# !#
;; TODO: ;; TODO:
@ -208,9 +208,13 @@ Please choose a password with at least 2 character classes.")
"kpasswd: Password incorrect" "kpasswd: Password incorrect"
"Verify failure" "Verify failure"
"Success")) "Success"))
((solaris) (define-passwd "/afs/wsi/sun4x_58/krb5-1.3.1/bin/kpasswd"
;; TODO
))
;; ((linux) (define-passwd "/afs/wsi/i386_rh90/heimdal-0.6/bin/kpasswd"
;; ;; TODO
;; ))
)) ))
;;((solaris) (define-passwd "/afs/wsi/sun4x_58/krb5-1.3.1/bin/kpasswd"
;; TODO))
(define (verify-kerbv-password password) (define (verify-kerbv-password password)
(verify-password kerberos-v password)) (verify-password kerberos-v password))
@ -218,6 +222,19 @@ Please choose a password with at least 2 character classes.")
(define (change-kerbv-password old-pw new-pw) (define (change-kerbv-password old-pw new-pw)
(change-password kerberos-v old-pw new-pw)) (change-password kerberos-v old-pw new-pw))
(define (valid-kerbv-ticket?)
;; neither "No ticket file" nor ">>>Expired<<<" in klist output
#f ;; TODO
)
(define (get-kerbv-ticket password)
;; TODO look at status result
(run (kinit)))
(define (ensure-kerbv-ticket password)
(or (valid-kerbv-ticket?)
(get-kerbv-ticket password)))
;; *** AFS (Kerberos IV) interface *********************************** ;; *** AFS (Kerberos IV) interface ***********************************
(define afs (define afs
@ -231,9 +248,17 @@ Please choose a password with at least 2 character classes.")
"kpasswd: Incorrect old password." "kpasswd: Incorrect old password."
"Mismatch" "Mismatch"
"Password changed.")) "Password changed."))
((solaris) (define-passwd "/afs/wsi/sun4x_58/openafs-1.2.11/bin/kpasswd"
"Old password: "
"New password (RETURN to abort): "
"Retype new password: "
"kpasswd: Incorrect old password."
"Mismatch"
"Password changed."))
;; ((linux) (define-passwd "/usr/bin/kpasswd"
;; ;; TODO
;; ))
)) ))
;;((solaris) (define-passwd "/afs/wsi/sun4x_58/openafs-1.2.11/bin/kpasswd"
;; TODO))
(define (change-afs-password old-pw new-pw) (define (change-afs-password old-pw new-pw)
(change-password afs old-pw new-pw)) (change-password afs old-pw new-pw))