pennyworth-tool 0.0.1

data/examples/README.md

@@ -0,0 +1,23 @@
+# Pennyworth Examples
+
+This directory contains an example base image definition and Vagrantfile in
+order to demonstrate how a testing environment can be defined using pennyworth.
+It provides a very basic openSUSE 13.1 machine.
+
+## Base Image
+
+The base image is defined in `examples/kiwi/definitions/base_opensuse13.1_kvm`.
+It can be build with:
+
+`$ bin/pennyworth -d examples/ build-base`
+
+You can then import the resulting image into vagrant:
+
+`$ bin/pennyworth -d examples/ import-base`
+
+## VM
+
+At that point the 13.1 machine is ready to be used and can be started up like
+this:
+
+`$ bin/pennyworth -d examples/ up opensuse131`

data/examples/kiwi/definitions/base_opensuse13.1_kvm/config.sh

@@ -0,0 +1,87 @@
+#!/bin/bash
+#======================================
+# Functions...
+#--------------------------------------
+test -f /.kconfig && . /.kconfig
+test -f /.profile && . /.profile
+
+#======================================
+# Greeting...
+#--------------------------------------
+echo "Configure image: [$kiwi_iname]..."
+
+#======================================
+# Mount system filesystems
+#--------------------------------------
+baseMount
+
+#======================================
+# Setup baseproduct link
+#--------------------------------------
+suseSetupProduct
+
+#======================================
+# Add missing gpg keys to rpm
+#--------------------------------------
+suseImportBuildKey
+
+#======================================
+# Activate services
+#--------------------------------------
+suseInsertService sshd
+
+#======================================
+# Setup default target, multi-user
+#--------------------------------------
+baseSetRunlevel 3
+
+#======================================
+# SuSEconfig
+#--------------------------------------
+suseConfig
+
+#======================================
+# Vagrant
+#--------------------------------------
+date > /etc/vagrant_box_build_time
+# set vagrant sudo
+printf "%b" "
+# added by veewee/postinstall.sh
+vagrant ALL=(ALL) NOPASSWD: ALL
+" >> /etc/sudoers
+
+# speed-up remote logins
+printf "%b" "
+# added by veewee/postinstall.sh
+UseDNS no
+" >> /etc/ssh/sshd_config
+
+#======================================
+# Fixes for base images
+#--------------------------------------
+
+echo 'solver.allowVendorChange = true' >> /etc/zypp/zypp.conf
+echo 'solver.onlyRequires = true' >> /etc/zypp/zypp.conf
+
+# remove non-static files which break the tests on rebuilds
+rm /var/log/YaST2/config_diff_*.log
+rm /etc/zypp/repos.d/dir-*.repo
+
+# avoid mac address configured into system, this results in getting
+# eth1 instead of eth0 in virtualized environments sometimes
+rm -f /etc/udev/rules.d/70-persistent-net.rules
+
+# Disable cron jobs in order to prevent created files breaking the tests
+rm /etc/cron.daily/*
+
+#======================================
+# Repositories
+#--------------------------------------
+zypper --gpg-auto-import-keys ar --refresh --name "Main Repository (OSS)" http://download.opensuse.org/distribution/13.1/repo/oss/ download.opensuse.org-oss
+
+#======================================
+# Umount kernel filesystems
+#--------------------------------------
+baseCleanMount
+
+exit 0

data/examples/kiwi/definitions/base_opensuse13.1_kvm/config.xml

@@ -0,0 +1,64 @@
+<?xml version="1.0" encoding="utf-8"?>
+
+<image schemaversion="6.1" name="Base-openSUSE-13.1">
+    <description type="system">
+        <author>Machinery-Team</author>
+        <contact>machinery@lists.suse.com</contact>
+        <specification>
+            Base openSUSE 13.1 box
+        </specification>
+    </description>
+    <preferences>
+      <type image="vmx" filesystem="ext4" boot="vmxboot/suse-13.1" format="vagrant" bootloader="grub2"  kernelcmdline="root=/dev/vda1 disk=/dev/vda nomodeset LOCAL_BOOT=yes">
+            <vagrantconfig provider="libvirt" virtualsize="16"/>
+            <size unit="G">15</size>
+        </type>
+        <version>1.13.1</version>
+        <packagemanager>zypper</packagemanager>
+        <locale>en_US</locale>
+        <keytable>us.map.gz</keytable>
+        <timezone>Europe/Berlin</timezone>
+        <hwclock>utc</hwclock>
+        <rpm-excludedocs>true</rpm-excludedocs>
+    </preferences>
+    <users group="root">
+        <user name="root" password="vagrant" pwdformat="plain" home="/root"/>
+    </users>
+    <users group="vagrant">
+        <user name="vagrant" password="vagrant" pwdformat="plain" home="/home/vagrant"/>
+    </users>
+    <repository type="yast2">
+        <source path="obs://13.1/repo/oss"/>
+    </repository>
+    <packages type="image">
+        <namedCollection name="base"/>
+        <product name="openSUSE"/>
+        <package name="ifplugd"/>
+        <package name="iputils"/>
+        <package name="vim"/>
+        <package name="grub2"/>
+        <package name="syslinux"/>
+        <package name="lvm2"/>
+        <package name="tar"/>
+        <package name="parted"/>
+        <package name="sudo"/>
+        <package name="rsync"/>
+        <package name="kernel-default"/>
+        <package name="squashfs"/>
+        <package name="iproute2"/>
+        <package name="cronie"/>
+        <package name="nfs-kernel-server"/>
+        <package name="autofs"/>
+    </packages>
+    <packages type="bootstrap">
+        <package name="udev"/>
+        <package name="filesystem"/>
+        <package name="glibc-locale"/>
+        <package name="cracklib-dict-full"/>
+        <package name="ca-certificates"/>
+        <package name="module-init-tools"/>
+    </packages>
+    <packages type="delete">
+        <package name="kernel-debug"/>
+    </packages>
+</image>

data/examples/kiwi/definitions/base_opensuse13.1_kvm/root/etc/sysconfig/network/ifcfg-eth0

@@ -0,0 +1,2 @@
+STARTMODE=onboot
+BOOTPROTO=dhcp

data/examples/kiwi/definitions/base_opensuse13.1_kvm/root/home/vagrant/.ssh/authorized_keys

@@ -0,0 +1 @@
+ssh-rsa AAAAB3NzaC1yc2EAAAABIwAAAQEA6NF8iallvQVp22WDkTkyrtvp9eWW6A8YVr+kz4TjGYe7gHzIw+niNltGEFHzD8+v1I2YJ6oXevct1YeS0o9HZyN1Q9qgCgzUFtdOKLv6IedplqoPkcmF0aYet2PkEDo3MlTBckFXPITAMzF8dJSIFo9D8HfdOV0IAdx4O7PtixWKn5y2hMNG0zQPyUecp4pzC6kivAIhyfHilFR61RGL+GPXQ2MWZWFYbAGjyiYJnAmCP3NOTd0jMZEnDkbUvxhMmBYSdETk1rRgm+R4LOzFUGaHqHDLKLX+FIPKcF96hrucXzcWyLbIbEgE98OHlnVYCzRdK8jlqm8tehUc9c9WhQ== vagrant insecure public key

data/examples/vagrant/Vagrantfile

@@ -0,0 +1,14 @@
+VAGRANTFILE_API_VERSION = "2"
+
+Vagrant.configure(VAGRANTFILE_API_VERSION) do |config|
+  config.vm.define :opensuse131 do |opensuse131|
+    opensuse131.vm.box = "base_opensuse13.1_kvm"
+
+    opensuse131.vm.provider :libvirt do |domain|
+      domain.memory = 1024
+      domain.cpus = 1
+      domain.nested = false
+      domain.volume_cache = 'none'
+    end
+  end
+end

data/files/99-libvirt.rules

@@ -0,0 +1,2 @@
+'org.libvirt.unix.monitor':
+   [ 'yes', 'yes', 'yes' ]

data/files/image_test-template.xml

@@ -0,0 +1,43 @@
+<domain type='kvm'>
+  <name>@@name@@</name>
+<!--  <uuid>#{UUID}</uuid> -->
+  <memory>1048576</memory>
+  <currentMemory>1048576</currentMemory>
+  <vcpu>1</vcpu>
+  <os>
+    <type arch='x86_64'>hvm</type>
+    <boot dev='hd'/>
+  </os>
+  <features>
+    <acpi/>
+    <apic/>
+    <pae/>
+  </features>
+  <clock offset='utc'/>
+  <on_poweroff>destroy</on_poweroff>
+  <on_reboot>restart</on_reboot>
+  <on_crash>restart</on_crash>
+  <devices>
+    <disk type='file' device='disk'>
+      <driver name='qemu' type='qcow2'/>
+      <source file='@@image@@'/>
+      <target dev='vda' bus='virtio'/>
+    </disk>
+    <interface type='network'>
+      <model type='virtio'/>
+      <source network='default'/>
+      <address type='pci' domain='0x0000' bus='0x00' slot='0x05' function='0x0'/>
+    </interface>
+    <serial type='pty'>
+      <target port='0'/>
+    </serial>
+    <console type='pty'>
+      <target port='0'/>
+    </console>
+    <input type='mouse' bus='ps2'/>
+    <graphics type='vnc' port='-1' autoport='yes' keymap='en-us'/>
+    <video>
+      <model type='cirrus' vram='9216' heads='1'/>
+    </video>
+  </devices>
+</domain>

data/files/pool-default.xml

@@ -0,0 +1,6 @@
+<pool type="dir">
+  <name>default</name>
+  <target>
+    <path>/var/lib/libvirt/images</path>
+  </target>
+</pool>

data/lib/image_runner.rb

@@ -0,0 +1,89 @@
+# Copyright (c) 2013-2014 SUSE LLC
+#
+# This program is free software; you can redistribute it and/or
+# modify it under the terms of version 3 of the GNU General Public License as
+# published by the Free Software Foundation.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.   See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, contact SUSE LLC.
+#
+# To contact SUSE about this file by physical or electronic mail,
+# you may find current contact information at www.suse.com
+
+module Pennyworth
+  class ImageRunner < Runner
+    DOMAIN_TEMPLATE = File.join(File.dirname(__FILE__) + "/../files/image_test-template.xml")
+
+    attr_accessor :name
+
+    def initialize(image, username)
+      @image = image
+      @name = File.basename(image)
+      @username = username
+
+      @connection = Libvirt::open("qemu:///system")
+    end
+
+    def start
+      cleanup
+
+      ip = start_built_image
+      @command_runner = RemoteCommandRunner.new(ip, @username)
+
+      ip
+    end
+
+    def stop
+      system = @connection.lookup_domain_by_name(@name)
+      system.destroy
+    end
+
+    def cleanup_directory(_dir)
+      # The machine will be reset anyway after the tests, so this is is a NOP
+    end
+
+    private
+
+    def cleanup
+      system = @connection.lookup_domain_by_name(@name)
+      system.destroy
+    rescue
+    end
+
+    # Creates a transient kvm domain from the predefined image_test-domain.xml
+    # file and returns the ip address for further interaction.
+    def start_built_image
+      domain_config = File.read(DOMAIN_TEMPLATE)
+      domain_config.gsub!("@@image@@", @image)
+      domain_config.gsub!("@@name@@", @name)
+
+      @connection.create_domain_xml(domain_config)
+      system = @connection.lookup_domain_by_name(@name)
+
+      domain_xml = Nokogiri::XML(system.xml_desc)
+      mac = domain_xml.xpath("//domain/devices/interface/mac").attr("address")
+      ip_address = nil
+
+      # Loop until the VM has got an IP address we can return
+      lease_file = "/var/lib/libvirt/dnsmasq/default.leases"
+      300.times do
+        match = File.readlines(lease_file).grep(/#{mac}/).first
+        if match
+          ip_address = match.split[2]
+          break
+        end
+
+        sleep 1
+      end
+
+      ip_address
+    end
+  end
+
+
+end

data/lib/pennyworth.rb

@@ -0,0 +1,65 @@
+# Copyright (c) 2013-2014 SUSE LLC
+#
+# This program is free software; you can redistribute it and/or
+# modify it under the terms of version 3 of the GNU General Public License as
+# published by the Free Software Foundation.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.   See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, contact SUSE LLC.
+#
+# To contact SUSE about this file by physical or electronic mail,
+# you may find current contact information at www.suse.com
+
+require "rubygems"
+
+require "gli"
+require "cheetah"
+require "yaml"
+require "colorize"
+require "libvirt"
+require "nokogiri"
+require "digest"
+require "net/http"
+require "find"
+require "open-uri"
+
+module Pennyworth
+end
+
+require_relative "pennyworth/version"
+require_relative "pennyworth/exceptions"
+require_relative "pennyworth/cli"
+require_relative "pennyworth/helper"
+require_relative "pennyworth/vagrant"
+require_relative "pennyworth/commands/command"
+require_relative "pennyworth/commands/setup_command"
+require_relative "pennyworth/commands/status_command"
+require_relative "pennyworth/commands/base_command"
+require_relative "pennyworth/commands/build_base_command"
+require_relative "pennyworth/commands/import_base_command"
+require_relative "pennyworth/commands/up_command"
+require_relative "pennyworth/commands/down_command"
+require_relative "pennyworth/commands/boot_command"
+require_relative "pennyworth/commands/shutdown_command"
+require_relative "pennyworth/commands/import_ssh_keys_command"
+require_relative "pennyworth/commands/list_command"
+require_relative "pennyworth/vagrant_command"
+require_relative "pennyworth/settings"
+require_relative "pennyworth/runner"
+require_relative "pennyworth/image_runner"
+require_relative "pennyworth/vm"
+require_relative "pennyworth/libvirt"
+require_relative "pennyworth/ssh_keys_importer"
+require_relative "pennyworth/urls"
+require_relative "pennyworth/host_runner"
+require_relative "pennyworth/cli_host_controller"
+require_relative "pennyworth/host_config"
+require_relative "pennyworth/lock_service"
+require_relative "pennyworth/remote_command_runner"
+require_relative "pennyworth/local_runner"
+require_relative "pennyworth/local_command_runner"

data/lib/pennyworth/cli.rb

@@ -0,0 +1,339 @@
+# Copyright (c) 2013-2015 SUSE LLC
+#
+# This program is free software; you can redistribute it and/or
+# modify it under the terms of version 3 of the GNU General Public License as
+# published by the Free Software Foundation.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.   See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, contact SUSE LLC.
+#
+# To contact SUSE about this file by physical or electronic mail,
+# you may find current contact information at www.suse.com
+
+module Pennyworth
+  class Cli
+    extend GLI::App
+
+    program_desc 'A tool for controlling networks of machines for integration testing'
+    program_long_desc <<-LONGDESC
+      Pennyworth is a tool for controlling a network of machines for
+      integration testing. It helps to control virtual and real machines to
+      provide a well-defined test environment for automated tests.
+
+      Use the global `--definitions-dir` option to specify the path to the
+      directory containing Kiwi and Vagrant definitions. The directory needs to
+      contain `kiwi/` and `vagrant/` subdirectories. Default is `~/.pennyworth`.
+
+      Pennyworth writes a log file to `/tmp/pennyworth.log`.
+
+      Use the `help` command to get documentation about the individual commands.
+      Find more documentation at https://github.com/SUSE/pennyworth.
+    LONGDESC
+
+    preserve_argv(true)
+    @version = Pennyworth::VERSION
+    switch :version, :negatable => false, :desc => "Show version"
+    switch [:help, :h], :negatable => false, :desc => "Show help"
+    switch :verbose, :negatable => false, :desc => "Verbose"
+    switch [:silent], :negatable => false, :desc => "Silent mode"
+    flag ["definitions-dir", :d],
+      :desc => "Path to the directory containing machine definitions",
+      :arg_name => "DEFINITIONS_DIR"
+
+    pre do |global_options,command,options,args|
+      @@settings.verbose = !!global_options[:verbose]
+      @@settings.silent = !!global_options[:silent]
+      @@settings.definitions_dir = File.expand_path(
+        global_options["definitions-dir"]
+      ) if global_options["definitions-dir"]
+      true
+    end
+
+    on_error do |e|
+      case e
+      when GLI::UnknownCommandArgument, GLI::UnknownGlobalArgument,
+          GLI::UnknownCommand, GLI::BadCommandLine
+        STDERR.puts e.to_s + "\n\n"
+        command = ARGV & @commands.keys.map(&:to_s)
+        run(command << "--help")
+        exit 1
+      when SystemExit
+        raise
+      when SignalException
+        exit 1
+      else
+        STDERR.puts "Pennyworth experienced an unexpected error. Please file a " \
+          "bug report at https://github.com/SUSE/pennyworth/issues/new.\n"
+        if e.is_a?(Cheetah::ExecutionFailed)
+          result = ""
+          result << "#{e.message}\n"
+          result << "\n"
+
+          if e.stderr && !e.stderr.empty?
+            result << "Error output:\n"
+            result << "#{e.stderr}\n"
+          end
+
+          if e.stdout && !e.stdout.empty?
+            result << "Standard output:\n"
+            result << "#{e.stdout}\n\n"
+          end
+
+          if e.backtrace && !e.backtrace.empty?
+            result << "Backtrace:\n"
+            result << "#{e.backtrace.join("\n")}\n\n"
+          end
+          STDERR.puts result
+          exit 1
+        else
+          raise
+        end
+      end
+      true
+    end
+
+    def self.settings
+      @@settings
+    end
+
+    def self.settings= s
+      @@settings = s
+    end
+
+    desc "Prepare system for running Pennyworth"
+    long_desc <<-LONGDESC
+      Prepare the system to be able to run virtual machines via Pennyworth. This
+      encapsulates package installation as well as set up of required tools such
+      as Vagrant and libvirt.
+
+      See https://github.com/SUSE/pennyworth#installation for more information.
+    LONGDESC
+    command :setup do |c|
+      c.action do |global_options,options,args|
+        SetupCommand.new.execute
+      end
+    end
+
+    desc "Show status of virtual machine"
+    long_desc <<-LONGDESC
+      Show status of specified virtual machine. Use `list` to get a list of all
+      available machines.
+    LONGDESC
+    arg_name "VM_NAME"
+    command :status do |c|
+      c.action do |global_options,options,args|
+        vm_name = args.shift
+        VagrantCommand.setup_environment(@@settings.vagrant_dir)
+        StatusCommand.new.execute(vm_name)
+      end
+    end
+
+    desc "Build base images"
+    long_desc <<-LONGDESC
+      Build base images used by Vagrant. If no specific name is given all base
+      images are built. The images have to be imported with `import-base` to be
+      available to be run.
+    LONGDESC
+    arg_name "IMAGE_NAME", :optional
+    command "build-base" do |c|
+      c.flag [:kiwi_tmp_dir, :k], :type => String, :required => false,
+        :desc => "Temporary KIWI directory for building the Vagrant box.",
+        :arg_name => "KIWI-TMP-Dir"
+      c.action do |global_options,options,args|
+        image_name = args.shift
+        tmp_dir = options[:kiwi_tmp_dir] || "/tmp/pennyworth-kiwi-builds"
+        BuildBaseCommand.new(Cli.settings.kiwi_dir).execute(tmp_dir, image_name)
+      end
+    end
+
+    desc "Import base images"
+    long_desc <<-LONGDESC
+      Import base images used by Vagrant. If no specific name is given all base
+      images are imported. Base images have to be built with `build-base` or
+      imported from a remote location specified with the `--url` option.
+    LONGDESC
+    arg_name "IMAGE_NAME", :optional
+    command "import-base" do |c|
+      c.flag [:url, :u], :type => String, :required => false,
+        :desc => "URL of the remote server where the images will be imported from", :arg_name => "URL"
+      c.action do |global_options,options,args|
+        image_name = args.shift
+        VagrantCommand.setup_environment(@@settings.vagrant_dir)
+        if options[:url]
+          kiwi_dir = File.expand_path("~/.pennyworth/kiwi")
+          remote_url = options[:url]
+          opts = {
+            local: false,
+          }
+        else
+          if !Cli.settings.definitions_dir
+            STDERR.puts "You need to specify a definitions directory when not using --url."
+            exit 1
+          end
+          kiwi_dir = Cli.settings.kiwi_dir
+          opts = {
+            local: true
+          }
+        end
+        ImportBaseCommand.new(kiwi_dir, remote_url).execute(image_name, opts)
+      end
+    end
+
+    desc "Start virtual machine"
+    long_desc <<-LONGDESC
+      Start specified virtual machine
+    LONGDESC
+    arg_name "VM_NAME"
+    command :up do |c|
+      c.switch [:destroy], :default_value => false, :required => false, :negatable => false,
+        :desc => "Destroy vagrant instance(s) before starting them."
+      c.action do |global_options,options,args|
+        vm_name = args.shift
+        VagrantCommand.setup_environment(@@settings.vagrant_dir)
+        UpCommand.new.execute(vm_name, options)
+      end
+    end
+
+    desc "Stop virtual machine"
+    long_desc <<-LONGDESC
+      Stop specified virtual machine
+    LONGDESC
+    arg_name "VM_NAME"
+    command :down do |c|
+      c.action do |global_options,options,args|
+        vm_name = args.shift
+        VagrantCommand.setup_environment(@@settings.vagrant_dir)
+        DownCommand.new.execute(vm_name)
+      end
+    end
+
+    desc "Copy puplic SSH keys to target system"
+    long_desc <<-LONGDESC
+      Copy the public SSH keys to the host named IP-ADDRESS for easy root access
+    LONGDESC
+    arg_name "IP-ADDRESS"
+    command :copy_ssh_keys do |c|
+      c.flag [:password, :p], :type => String, :required => false,
+        :desc => "Password", :arg_name => "PASSWORD"
+      c.action do |global_options,options,args|
+        if !args.empty?
+          ip = args.shift
+        else
+          raise GLI::BadCommandLine.new("You need to provide the IP of the target system as argument.")
+        end
+
+        ImportSshKeysCommand.new.execute(ip, options)
+      end
+    end
+
+    desc "List available machines and images"
+    long_desc <<-LONGDESC
+      List virtual machines, base images, and related data
+    LONGDESC
+    command :list do |c|
+      c.action do |global_options,options,args|
+        VagrantCommand.setup_environment(@@settings.vagrant_dir)
+        ListCommand.new(Cli.settings.kiwi_dir).execute
+      end
+    end
+
+    desc "Boot custom image file"
+    long_desc <<-LONGDESC
+      Boot a custom image from the given file IMAGE in a VM not managed by
+      Vagrant. You can shut down an image booted this way with `shutdown`.
+    LONGDESC
+    arg_name "IMAGE"
+    command :boot do |c|
+      c.action do |global_options,options,args|
+        if !args.empty?
+          image = File.expand_path(args.shift)
+        else
+          raise GLI::BadCommandLine.new("You need to provide the name of the image to boot as argument.")
+        end
+        VagrantCommand.setup_environment(@@settings.vagrant_dir)
+        BootCommand.new.execute(image)
+      end
+    end
+
+    desc "Shutdown custom image"
+    long_desc <<-LONGDESC
+      Shutdown custom image, which was started with `boot`.
+    LONGDESC
+    arg_name "IMAGE"
+    command :shutdown do |c|
+      c.action do |global_options,options,args|
+        if !args.empty?
+          image = args.shift
+        else
+          raise GLI::BadCommandLine.new("You need to provide the name of the VM to shutdown as argument.")
+        end
+        VagrantCommand.setup_environment(@@settings.vagrant_dir)
+        ShutdownCommand.new.execute(name)
+      end
+    end
+
+    def self.host_controller
+      CliHostController.new("~/.pennyworth", STDOUT)
+    end
+
+    desc "Manage test hosts"
+    long_desc <<-LONGDESC
+      This subcommand provides the tools to manage existing machines to be used
+      as test hosts. Hosts are defined in the configuration file
+      `.pennyworth/hosts.yaml`.
+
+      See https://github.com/SUSE/pennyworth#using-existing-hosts for more
+      information.
+    LONGDESC
+    command :host do |c|
+      c.desc "Fetch host configuration"
+      c.long_desc <<-LONGDESC
+        Fetch initial host configuration from a given URL. This can be used to
+        share configuration across multiple machines and users. The argument has
+        to be the URL to the remote configuration file.
+      LONGDESC
+      c.arg_name "URL"
+      c.command :setup do |sc|
+        sc.action do |_, _, args|
+          Cli.host_controller.setup(args[0])
+        end
+      end
+
+      c.desc "List available hosts"
+      c.command :list do |sc|
+        sc.action do
+          Cli.host_controller.list
+        end
+      end
+
+      c.desc "Lock host"
+      c.arg_name "HOST-NAME"
+      c.command :lock do |sc|
+        sc.action do |_, _, args|
+          Cli.host_controller.lock(args[0])
+        end
+      end
+
+      c.desc "Reset host to defined state"
+      c.arg_name "HOST-NAME"
+      c.command :reset do |sc|
+        sc.action do |_, _, args|
+          Cli.host_controller.reset(args[0])
+        end
+      end
+
+      c.desc "Show information about host"
+      c.arg_name "HOST-NAME"
+      c.command :info do |sc|
+        sc.action do |_, _, args|
+          Cli.host_controller.info(args[0])
+        end
+      end
+    end
+  end
+end