From f56e78ca7fffdf21d46dd1edc35c958e30e26f28 Mon Sep 17 00:00:00 2001 From: Andreas Gerler Date: Mon, 28 Apr 2014 10:50:57 +0200 Subject: [PATCH] new functions cfe-config-adduser and cfe-config-adduser-ldap. Signed-off-by: Andreas Gerler --- init.el | 24 ++++++++++++++++++++---- 1 file changed, 20 insertions(+), 4 deletions(-) diff --git a/init.el b/init.el index 9d0f0238..b18453e8 100644 --- a/init.el +++ b/init.el @@ -406,10 +406,10 @@ directory to make multiple eshell windows easier." (interactive) (find-file "~/.cfagent/inputs/config.cf") ) -;; cfe-config-adduser runs ldapsearch with cn=user to fill some values. +;; cfe-config-adduser-ldap runs ldapsearch with cn=user to fill some values. -(defun cfe-config-adduser ( user ) - "Insert usertemplate for config.cf" +(defun cfe-config-adduser-ldap ( user ) + "Insert usertemplate based on ldap information 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) "\"; @@ -424,6 +424,22 @@ directory to make multiple eshell windows easier." ) +(defun cfe-config-adduser ( user ) + "Insert usertemplate for config.cf" + (interactive "sUser: ") + (insert " \"users[" user "][login]\" string => \"" user "\"; + \"users[" user "][fullname]\" string => \"\"; + \"users[" user "][uid]\" string => \"\"; + \"users[" user "][gid]\" string => \"\"; + \"users[" user "][group]\" string => \"" user "\"; + \"users[" user "][groups]\" slist => { \"" user "\" }; + \"users[" user "][home]\" string => \"/home/" user "\"; + \"users[" user "][shell]\" string => \"/bin/bash\"; + \"users[" user "][flags]\" string => \"-m\"; + \"users[" user "][authorized_keys][0]\" string => \"\";" ) + +) + (defun cfe-insert-bundle ( name ) "Insert bundletemplate" (interactive "sBundle: ") @@ -450,7 +466,7 @@ bundle " name " (add-hook 'cfengine3-mode-hook (lambda () (define-key cfengine3-mode-map "\C-cb" 'cfe-insert-bundle) - (define-key cfengine3-mode-map "\C-cu" 'cfe-config-adduser) + (define-key cfengine3-mode-map "\C-cu" 'cfe-config-adduser-ldap) (define-key cfengine3-mode-map "\C-c\C-c" 'compile) )) -- 2.47.3