new functions cfe-config-adduser and cfe-config-adduser-ldap.

Signed-off-by: Andreas Gerler <baronNOSPAMbundesbrandschatzamt.de>

diff --git a/init.el b/init.el
index 9d0f02387960e6de98ef9911d57daf0f4315ad47..b18453e89f18828c78d40b8d7c82594c9384bc3a 100644 (file)
--- 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)
     ))