438 |
(sit-for 2)) |
(sit-for 2)) |
439 |
try-regexp)) |
try-regexp)) |
440 |
; (username (read-no-blanks-input |
; (username (read-no-blanks-input |
441 |
; (format "Username [default: %s]: " |
; (format "Username (default %s): " |
442 |
; (shadow-get-user primary)) |
; (shadow-get-user primary)) |
443 |
; (if old (or (shadow-cluster-username old) "") |
; (if old (or (shadow-cluster-username old) "") |
444 |
; (user-login-name)))) |
; (user-login-name)))) |
458 |
(name (nth 2 hup)) |
(name (nth 2 hup)) |
459 |
user site group) |
user site group) |
460 |
(while (setq site (shadow-read-site)) |
(while (setq site (shadow-read-site)) |
461 |
(setq user (read-string (format "Username [default %s]: " |
(setq user (read-string (format "Username (default %s): " |
462 |
(shadow-get-user site))) |
(shadow-get-user site))) |
463 |
name (read-string "Filename: " name)) |
name (read-string "Filename: " name)) |
464 |
(setq group (cons (shadow-make-fullname site |
(setq group (cons (shadow-make-fullname site |