;; ;; adams - system administrator written in Common Lisp ;; ;; Copyright 2013,2014,2018 Thomas de Grivel ;; ;; Permission to use, copy, modify, and distribute this software for any ;; purpose with or without fee is hereby granted, provided that the above ;; copyright notice and this permission notice appear in all copies. ;; ;; THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES ;; WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF ;; MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ;; ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES ;; WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ;; ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF ;; OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. ;; (in-package :cl-user) (require :adams) (in-package :adams-user) ;; TEST (setf (debug-p :shell) t) (setf (debug-p :sb-shell) nil) (assert (string= (machine-instance) (run-1 "hostname"))) (adams:clear-resources) (adams:clear-probed) (resource 'host "ams.kmx.io" :user "root" :hostname "ams" :packages '("emacs:no_x11" "git" "rsync" "sbcl" "texinfo" "texlive_texmf-full") (resource 'group "dx" :gid 19256) (resource 'user "dx" :uid 19256 :gid 19256 :home "/home/dx")) (with-host "ams.kmx.io" (sync *host*)) (resource 'host "vu.kmx.io" :user "root" :hostname "vu" :packages '("emacs:no_x11" "git" "rsync" "sbcl" "texinfo" "texlive_texmf-full") (resource 'group "dx" :gid 19256 :ensure :present) (resource 'user "dx" :uid 19256 :gid 19256 :home "/home/dx" :ensure :present) (resource 'group "git" :gid 7000 :ensure :present) (resource 'user "git" :uid 7000 :gid 7000 :home "/home/git" :shell "/usr/local/bin/git-auth" :ensure :present)) (with-host "vu.kmx.io" (sync *host*))