From e658390ae3ba9945dd4f82d366fdf9f42a5c05de Mon Sep 17 00:00:00 2001 From: Andreas Gerler Date: Fri, 8 Nov 2013 15:06:05 +0100 Subject: [PATCH] added function cfe-config-adduser. --- init.el | 17 +++++++++++++++++ 1 file changed, 17 insertions(+) diff --git a/init.el b/init.el index 2eb16b57..653fe21c 100644 --- a/init.el +++ b/init.el @@ -159,6 +159,23 @@ load-path)) (interactive) (find-file "~/.cfagent/inputs/config.cf") ) +;; cfe-config-adduser runs ldapsearch with cn=user to fill some values. + +(defun cfe-config-adduser ( user ) +"Insert usertemplate for config.cf" + (interactive "sUser: ") + (insert " \"users[" user "][login]\" string => \"" user "\"; + \"users[" user "][fullname]\" string => \"" (substring ( shell-command-to-string (concat "ldapse " user " givenName ")) 0 -1) " " (substring ( shell-command-to-string (concat "ldapse " user " sn ")) 0 -1) "\"; + \"users[" user "][uid]\" string => \"" (substring ( shell-command-to-string (concat "ldapse " user " uidNumber")) 0 -1) "\"; + \"users[" user "][gid]\" string => \"" (substring ( shell-command-to-string (concat "ldapse " user " uidNumber")) 0 -1)"\"; + \"users[" user "][group]\" string => \"" user "\"; + \"users[" user "][groups]\" slist => { \"adm\",\"apache\",\"games\" }; + \"users[" user "][home]\" string => \"/home/" user "\"; + \"users[" user "][shell]\" string => \"/bin/bash\"; + \"users[" user "][flags]\" string => \"-m\"; + \"users[" user "][authorized_keys][0]\" string => \"\";" ) + +) ;;(defun scpload (&rest args) ;;"scp copy from pottwal" ;; (shell-command ( scp andreas@pottwal: emacstmp/)) -- 2.47.3