sundbp
12/3/2012 - 3:59 PM

example.clj

(defn setup-hetzner-kvm-server
  "Set up a fresh hetzner box to act as a KVM server"
  [hostname]
  (println (format "Performing initial setup for %s" hostname))
  (hetzner-initial-setup hostname)
  (println "Sleeping 2mins to enable remote host to reboot..")
  (Thread/sleep (*  2 60 1000)) ;; wait for the host to reboot
  (println (format "Setting up %s as a KVM server.." hostname))
  (configure-kvm-server hostname)
  (println (format "Done with %s" hostname)))