Adds the autostart feature

Closes #11

Author: ralt

Makefile

@@ -50,7 +50,7 @@ rpm: $(APP_OUT)
 
 install: $(APP_OUT)
 	install $(APP_OUT) $(DESTDIR)/usr/bin
-	install -g 0 -o 0 -m 0644 lxc-wrapper.1.gz /usr/share/man/man1/
+	install -g 0 -o 0 -m 0644 dist/root/usr/share/man/man1/lxc-wrapper.1.gz /usr/share/man/man1/
 
 bin:
 	@mkdir bin

src/cli.lisp

@@ -96,7 +96,6 @@ Commands:
   (format t "
 	Overridable variables and default values for all commands (must be BEFORE the command):
 		--default-shell=/bin/bash
-		--debug
 
 "))
 

src/lxc-wrapper.lisp

@@ -133,6 +133,25 @@
       (format t " done.~%")
       (init-lxc cli-name *hosts-file*))))
 
+(defcommand autostart (name args)
+  "autostart NAME
+	Toggles the autostart status of the container named NAME
+
+	Overridable variables and default values (must be BEFORE the command):
+		--lxc-default-folder=/var/lib/lxc/
+		--lxc-config=config"
+  (declare (ignore args))
+  (let* ((cli-name (adapt-arg name))
+	 (lxc-path (merge-pathnames *lxc-config*
+				    (merge-pathnames
+				     (concatenate 'string cli-name "/")
+				     *lxc-default-folder*)))
+	 (config-content (alexandria:read-file-into-string
+			  lxc-path)))
+    (if (lxc-config-has-autostart config-content)
+	(toggle-autostart-value lxc-path config-content)
+	(add-autostart-line lxc-path))))
+
 (defun adapt-arg (name)
   "Adapts an argument to string"
   (when (symbolp name)

src/lxc.lisp

@@ -81,3 +81,31 @@
       (cl-ppcre:scan-to-strings "\\n\\s*lxc\\.utsname\\s*=\\s*(\\w+)" config)
     (declare (ignore match))
     (elt name 0)))
+
+(defun lxc-config-has-autostart (content)
+  "Finds out if a content holds the autostart line"
+  (cl-ppcre:scan "lxc\\.start\\.auto" content))
+
+(defun toggle-autostart-value (file content)
+  "Toggles the autostart value"
+  (let ((value (parse-integer
+		(elt
+		 (multiple-value-bind (match val)
+		     (cl-ppcre:scan-to-strings "lxc\\.start\\.auto\\s*=\\s*(\\d+)"
+					       content)
+		   (declare (ignore match))
+		   val)
+		 0))))
+    (alexandria:write-string-into-file
+     (cl-ppcre:regex-replace "lxc\\.start\\.auto\\s*=\\s*\\d+"
+			     content
+			     (format nil
+				     "lxc.start.auto = ~A"
+				     (if (= value 0) 1 0)))
+     file
+     :if-exists :overwrite)))
+
+(defun add-autostart-line (file)
+  "Adds the autostart line in the file"
+  (with-open-file (f file :direction :output :if-exists :append)
+    (format f "lxc.start.auto = 1")))