andyh-deprec 1.99.26

data/lib/deprec/templates/xen/xend-config.sxp.erb

@@ -0,0 +1,195 @@
+# -*- sh -*-
+
+#
+# Xend configuration file.
+#
+
+# This example configuration is appropriate for an installation that 
+# utilizes a bridged network configuration. Access to xend via http
+# is disabled.  
+
+# Commented out entries show the default for that entry, unless otherwise
+# specified.
+
+#(logfile /var/log/xen/xend.log)
+#(loglevel DEBUG)
+
+
+# The Xen-API server configuration.  (Please note that this server is
+# available as an UNSUPPORTED PREVIEW in Xen 3.0.4, and should not be relied
+# upon).
+#
+# This value configures the ports, interfaces, and access controls for the
+# Xen-API server.  Each entry in the list starts with either unix, a port
+# number, or an address:port pair.  If this is "unix", then a UDP socket is
+# opened, and this entry applies to that.  If it is a port, then Xend will
+# listen on all interfaces on that TCP port, and if it is an address:port
+# pair, then Xend will listen on the specified port, using the interface with
+# the specified address.
+#
+# The subsequent string configures the user-based access control for the
+# listener in question.  This can be one of "none" or "pam", indicating either
+# that users should be allowed access unconditionally, or that the local
+# Pluggable Authentication Modules configuration should be used.  If this
+# string is missing or empty, then "pam" is used.
+#
+# The final string gives the host-based access control for that listener. If
+# this is missing or empty, then all connections are accepted.  Otherwise,
+# this should be a space-separated sequence of regular expressions; any host
+# with a fully-qualified domain name or an IP address that matches one of
+# these regular expressions will be accepted.
+#
+# Example: listen on TCP port 9363 on all interfaces, accepting connections
+# only from machines in example.com or localhost, and allow access through
+# the unix domain socket unconditionally:
+#
+#   (xen-api-server ((9363 pam '^localhost$ example\\.com$')
+#                    (unix none)))
+#
+# Optionally, the TCP Xen-API server can use SSL by specifying the private
+# key and certificate location:
+#
+#                    (9367 pam '' /etc/xen/xen-api.key /etc/xen/xen-api.crt)
+#
+# Default:
+#   (xen-api-server ((unix)))
+
+
+#(xend-http-server no)
+#(xend-unix-server no)
+#(xend-tcp-xmlrpc-server no)
+#(xend-unix-xmlrpc-server yes)
+#(xend-relocation-server no)
+(xend-relocation-server yes)
+
+#(xend-unix-path /var/lib/xend/xend-socket)
+
+
+# Address and port xend should use for the legacy TCP XMLRPC interface, 
+# if xen-tcp-xmlrpc-server is set.
+#(xen-tcp-xmlrpc-server-address 'localhost')
+#(xen-tcp-xmlrpc-server-port 8006)
+
+# SSL key and certificate to use for the legacy TCP XMLRPC interface.
+# Setting these will mean that this port serves only SSL connections as
+# opposed to plaintext ones.
+#(xend-tcp-xmlrpc-server-ssl-key-file  /etc/xen/xmlrpc.key)
+#(xend-tcp-xmlrpc-server-ssl-cert-file /etc/xen/xmlrpc.crt)
+
+
+# Port xend should use for the HTTP interface, if xend-http-server is set.
+#(xend-port            8000)
+
+# Port xend should use for the relocation interface, if xend-relocation-server
+# is set.
+#(xend-relocation-port 8002)
+
+# Address xend should listen on for HTTP connections, if xend-http-server is
+# set.
+# Specifying 'localhost' prevents remote connections.
+# Specifying the empty string '' (the default) allows all connections.
+#(xend-address '')
+#(xend-address localhost)
+
+# Address xend should listen on for relocation-socket connections, if
+# xend-relocation-server is set.
+# Meaning and default as for xend-address above.
+#(xend-relocation-address '')
+
+# The hosts allowed to talk to the relocation port.  If this is empty (the
+# default), then all connections are allowed (assuming that the connection
+# arrives on a port and interface on which we are listening; see
+# xend-relocation-port and xend-relocation-address above).  Otherwise, this
+# should be a space-separated sequence of regular expressions.  Any host with
+# a fully-qualified domain name or an IP address that matches one of these
+# regular expressions will be accepted.
+#
+# For example:
+#  (xend-relocation-hosts-allow '^localhost$ ^.*\\.example\\.org$')
+#
+#(xend-relocation-hosts-allow '')
+(xend-relocation-hosts-allow '^localhost$ ^localhost\\.localdomain$')
+
+# The limit (in kilobytes) on the size of the console buffer
+#(console-limit 1024)
+
+##
+# To bridge network traffic, like this:
+#
+# dom0: fake eth0 -> vif0.0 -+
+#                            |
+#                          bridge -> real eth0 -> the network
+#                            |
+# domU: fake eth0 -> vifN.0 -+
+#
+# use
+#
+(network-script network-bridge-wrapper)
+#
+# Your default ethernet device is used as the outgoing interface, by default. 
+# To use a different one (e.g. eth1) use
+#
+# (network-script 'network-bridge netdev=eth1')
+#
+# The bridge is named xenbr0, by default.  To rename the bridge, use
+#
+# (network-script 'network-bridge bridge=<name>')
+#
+# It is possible to use the network-bridge script in more complicated
+# scenarios, such as having two outgoing interfaces, with two bridges, and
+# two fake interfaces per guest domain.  To do things like this, write
+# yourself a wrapper script, and call network-bridge from it, as appropriate.
+#
+# (network-script network-dummy)
+
+# The script used to control virtual interfaces.  This can be overridden on a
+# per-vif basis when creating a domain or a configuring a new vif.  The
+# vif-bridge script is designed for use with the network-bridge script, or
+# similar configurations.
+#
+# If you have overridden the bridge name using
+# (network-script 'network-bridge bridge=<name>') then you may wish to do the
+# same here.  The bridge name can also be set when creating a domain or
+# configuring a new vif, but a value specified here would act as a default.
+#
+# If you are using only one bridge, the vif-bridge script will discover that,
+# so there is no need to specify it explicitly.
+#
+(vif-script vif-bridge)
+
+
+## Use the following if network traffic is routed, as an alternative to the
+# settings for bridged networking given above.
+#(network-script network-route)
+#(vif-script     vif-route)
+
+
+## Use the following if network traffic is routed with NAT, as an alternative
+# to the settings for bridged networking given above.
+#(network-script network-nat)
+#(vif-script     vif-nat)
+
+
+# Dom0 will balloon out when needed to free memory for domU.
+# dom0-min-mem is the lowest memory level (in MB) dom0 will get down to.
+# If dom0-min-mem=0, dom0 will never balloon out.
+(dom0-min-mem 196)
+
+# In SMP system, dom0 will use dom0-cpus # of CPUS
+# If dom0-cpus = 0, dom0 will take all cpus available
+(dom0-cpus 0)
+
+# Whether to enable core-dumps when domains crash.
+#(enable-dump no)
+
+# The tool used for initiating virtual TPM migration
+#(external-migration-tool '')
+
+# The interface for VNC servers to listen on. Defaults
+# to 127.0.0.1  To restore old 'listen everywhere' behaviour
+# set this to 0.0.0.0
+#(vnc-listen '127.0.0.1')
+
+# The default password for VNC console on HVM domain.
+# Empty string is no authentication.
+(vncpasswd '')

data/lib/deprec/templates/xen/xend-init.erb

@@ -0,0 +1,69 @@
+#!/bin/bash
+### BEGIN INIT INFO
+# Provides:          xend
+# Required-Start:    $local_fs
+# Required-Stop:     $local_fs
+# Default-Start:     2 3 4 5
+# Default-Stop:      S 0 1 6
+# Short-Description: XEN control daemon
+# Description:       XEN control daemon
+### END INIT INFO
+
+if ! grep -q "control_d" /proc/xen/capabilities ; then
+	exit 0
+fi
+
+# Wait for Xend to be up
+function await_daemons_up
+{
+	i=1
+	rets=10
+	xend status
+	while [ $? -ne 0 -a $i -lt $rets ]; do
+	    sleep 1
+	    echo -n .
+	    i=$(($i + 1))
+	    xend status
+	done
+}
+
+# Rules for ip forwarding and NAT
+# echo 1 >/proc/sys/net/ipv4/ip_forward
+# echo 1 >/proc/sys/net/ipv4/conf/eth0/proxy_arp
+# echo 1 >/proc/sys/net/ipv4/conf/eth1/proxy_arp
+# IPTABLES=/sbin/iptables
+# EXTIF=eth0
+# INTIF=eth1
+# $IPTABLES -A FORWARD -i $EXTIF -o $INTIF -m state --state ESTABLISHED,RELATED -j ACCEPT
+# $IPTABLES -A FORWARD -i $INTIF -o $EXTIF -j ACCEPT
+# $IPTABLES -t nat -A POSTROUTING -o $EXTIF -s 192.168.1.0/24 -j MASQUERADE
+
+
+case "$1" in
+  start)
+	xend start
+	await_daemons_up
+	;;
+  stop)
+	/etc/init.d/xendomains stop # make sure domains are shut down
+	xend stop
+	;;
+  status)
+	xend status
+	;;
+  reload)
+        xend reload
+        ;;
+  restart|force-reload)
+	xend restart
+	await_daemons_up
+	;;
+  *)
+	# do not advertise unreasonable commands that there is no reason
+	# to use with this device
+	echo $"Usage: $0 {start|stop|status|restart|reload|force-reload}"
+	exit 1
+esac
+
+exit $?
+

data/lib/deprec/templates/xen/xendomains.erb

@@ -0,0 +1,137 @@
+## Path: System/xen
+## Description: xen domain start/stop on boot
+## Type: string
+## Default: 
+#
+# The xendomains script can send SysRq requests to domains on shutdown.
+# If you don't want to MIGRATE, SAVE, or SHUTDOWN, this may be a possibility
+# to do a quick and dirty shutdown ("s e i u o") or at least sync the disks
+# of the domains ("s").
+#
+XENDOMAINS_SYSRQ=""
+
+## Type: integer 
+## Default: 100000
+#
+# If XENDOMAINS_SYSRQ is set, this variable determines how long to wait
+# (in microseconds) after each SysRq, so the domain has a chance to react.
+# If you want to a quick'n'dirty shutdown via SysRq, you may want to set
+# it to a relatively high value (1200000).
+#
+XENDOMAINS_USLEEP=100000
+
+## Type: integer
+## Default: 5000000
+#
+# When creating a guest domain, it is sensible to allow a little time for it
+# to get started before creating another domain or proceeding through the
+# boot process.  Without this, the booting guests will thrash the disk as they
+# start up.  This timeout (in microseconds) specifies the delay after guest
+# domain creation.
+#
+XENDOMAINS_CREATE_USLEEP=5000000
+
+## Type: string
+## Default: ""
+#
+# Set this to a non-empty string if you want to migrate virtual machines
+# on shutdown. The string will be passed to the xm migrate DOMID command
+# as is: It should contain the target IP address of the physical machine
+# to migrate to and optionally parameters like --live. Leave empty if
+# you don't want to try virtual machine relocation on shutdown.
+# If migration succeeds, neither SAVE nor SHUTDOWN will be executed for
+# that domain.
+#
+XENDOMAINS_MIGRATE=""
+
+## Type: string
+## Default: /var/lib/xen/save
+#
+# Directory to save running domains to when the system (dom0) is
+# shut down. Will also be used to restore domains from if # XENDOMAINS_RESTORE
+# is set (see below). Leave empty to disable domain saving on shutdown 
+# (e.g. because you rather shut domains down).
+# If domain saving does succeed, SHUTDOWN will not be executed.
+#
+# XENDOMAINS_SAVE=/var/lib/xen/save
+
+## Type: string
+## Default: "--halt --wait"
+#
+# If neither MIGRATE nor SAVE were enabled or if they failed, you can
+# try to shut down a domain by sending it a shutdown request. To do this,
+# set this to "--halt --wait". Omit the "--wait" flag to avoid waiting
+# for the domain to be really down. Leave empty to skip domain shutdown.
+#
+XENDOMAINS_SHUTDOWN="--halt --wait"
+
+## Type: string
+## Default: "--all --halt --wait"
+#
+# After we have gone over all virtual machines (resp. all automatically
+# started ones, see XENDOMAINS_AUTO_ONLY below) in a loop and sent SysRq,
+# migrated, saved and/or shutdown according to the settings above, we
+# might want to shutdown the virtual machines that are still running
+# for some reason or another. To do this, set this variable to
+# "--all --halt --wait", it will be passed to xm shutdown.
+# Leave it empty not to do anything special here.
+# (Note: This will hit all virtual machines, even if XENDOMAINS_AUTO_ONLY
+# is set.)
+# 
+XENDOMAINS_SHUTDOWN_ALL="--all --halt --wait"
+
+## Type: boolean
+## Default: true
+#
+# This variable determines whether saved domains from XENDOMAINS_SAVE
+# will be restored on system startup. 
+#
+XENDOMAINS_RESTORE=true
+
+## Type: string
+## Default: /etc/xen/auto
+#
+# This variable sets the directory where domains configurations
+# are stored that should be started on system startup automatically.
+# Leave empty if you don't want to start domains automatically
+# (or just don't place any xen domain config files in that dir).
+# Note that the script tries to be clever if both RESTORE and AUTO are 
+# set: It will first restore saved domains and then only start domains
+# in AUTO which are not running yet. 
+# Note that the name matching is somewhat fuzzy.
+#
+XENDOMAINS_AUTO=/etc/xen/auto
+
+## Type: boolean
+## Default: false
+# 
+# If this variable is set to "true", only the domains started via config 
+# files in XENDOMAINS_AUTO will be treated according to XENDOMAINS_SYSRQ,
+# XENDOMAINS_MIGRATE, XENDOMAINS_SAVE, XENDMAINS_SHUTDOWN; otherwise
+# all running domains will be. 
+# Note that the name matching is somewhat fuzzy.
+# 
+XENDOMAINS_AUTO_ONLY=false
+
+## Type: integer
+## Default: 300
+#
+# On xendomains stop, a number of xm commands (xm migrate, save, shutdown,
+# shutdown --all) may be executed. In the worst case, these commands may
+# stall forever, which will prevent a successful shutdown of the machine.
+# If this variable is non-zero, the script will set up a watchdog timer
+# for every of these xm commands and time it out after the number of seconds
+# specified by this variable.
+# Note that SHUTDOWN_ALL will not be called if no virtual machines or only
+# zombies are still running, so you don't need to enable this timeout just
+# for the zombie case.
+# The setting should be large enough to make sure that migrate/save/shutdown
+# can succeed. If you do live migrations, keep in mind that live migration
+# of a 1GB machine over Gigabit ethernet may actually take something like
+# 100s (assuming that live migration uses 10% of the network # bandwidth).
+# Depending on the virtual machine, a shutdown may also require a significant
+# amount of time. So better setup this variable to a huge number and hope the
+# watchdog never fires.
+#
+XENDOMAINS_STOP_MAXWAIT=300
+

data/lib/deprec/templates/xen/xm.tmpl.erb

@@ -0,0 +1,85 @@
+#
+# Configuration file for the Xen instance {$hostname}, created
+# by xen-tools {$xen_tools_version} on { scalar localtime }.
+#
+
+#
+#  Kernel + memory size
+#
+{ if ( $kernel )
+  {
+    $OUT.= "kernel      = '$kernel'";
+  }
+}
+{ if ( $initrd )
+  {
+    $OUT.= "ramdisk     = '$initrd'";
+  }
+}
+memory      = '{$memory}'
+
+#
+#  Disk device(s).
+#
+root        = '/dev/{$device}1 ro'
+{ if ( $noswap ) 
+  {
+        $OUT .= "disk        = [ '$image_vbd,$device" . "1,w' ]";
+  }
+  else
+  {
+        $OUT .= "disk        = [ '$image_vbd,$device" . "1,w', '$swap_vbd,$device" . "2,w' ]";
+  }
+}
+
+#
+#  Hostname
+#
+name        = '{$hostname}'
+
+#
+#  Networking
+#
+{ if ( $dhcp )
+  {
+    $OUT .= "dhcp        = 'dhcp'\n";
+
+    # Setup the mac address, if present.
+    my $m = '';
+    if ( $mac )
+    { 
+      $m = "mac=$mac"
+    }
+
+    $OUT .= "vif         = [ '$m' ]";
+  }    
+  else
+  {
+    #
+    # Setup the mac address, if present.
+    #
+    my $m = '';
+    if ( $mac )
+    { 
+      $m = ",mac=$mac"
+    }
+
+    $OUT .= "vif         = [ 'ip=$ip1"; 
+    $OUT .= "$m' ]";
+  }
+}
+
+#
+#  Behaviour
+#
+on_poweroff = 'destroy'
+on_reboot   = 'restart'
+on_crash    = 'restart'
+
+
+{ if ( $admins )
+  {
+    $OUT .= "xen_shell = '$admins'\n";
+  }
+}
+extra = ' TERM=xterm xencons=tty console=tty1'

data/lib/deprec.rb

@@ -0,0 +1,8 @@
+unless Capistrano::Configuration.respond_to?(:instance)
+  abort "deprec2 requires Capistrano 2"
+end
+
+require "#{File.dirname(__FILE__)}/deprec/capistrano_extensions"
+require "#{File.dirname(__FILE__)}/vmbuilder_plugins/all"
+require "#{File.dirname(__FILE__)}/deprec/recipes"
+

data/lib/deprec_cmd_completion.sh

@@ -0,0 +1,26 @@
+export CAP_TASKS=$( cap -T | grep '^cap' | cut -d' ' -f 2 )
+_cap() 
+{
+	local cur tasks colonprefixes
+	COMPREPLY=()
+	cur="${COMP_WORDS[COMP_CWORD]}"
+
+	tasks=$CAP_TASKS
+    # uncomment this for dynamic task lists
+	# tasks=$( cap -T | cut -d' ' -f 2 | grep deprec)
+
+	# Work-around bash_completion issue where bash interprets a colon
+	# as a separator.
+	# Work-around borrowed from the darcs work-around for the same
+	# issue.
+	colonprefixes=${cur%"${cur##*:}"}
+	COMPREPLY=( $(compgen -W "${tasks}" -- ${cur}) )
+	local i=${#COMPREPLY[*]}
+	while [ $((--i)) -ge 0 ]; do
+		COMPREPLY[$i]=${COMPREPLY[$i]#"$colonprefixes"}
+	done
+
+	return 0
+
+}
+complete -F _cap cap

data/lib/vmbuilder_plugins/all.rb

@@ -0,0 +1,20 @@
+# =all.rb: Load all the Capistrano Plugins in the directory.
+#
+# Require all other ruby files in the directory.
+#
+# ----
+# Copyright (c) 2007 Neil Wilson, Aldur Systems Ltd
+#
+# Licensed under the GNU Public License v2. No warranty is provided.
+# ----
+# = Usage
+#
+#     require 'vmbuilder_plugins/all'
+
+# Splitting and joining __FILE__ deals with the current directory case
+# properly
+Dir[File.join( File.dirname(__FILE__), '*.rb')].each do |plugin_name|
+  unless plugin_name == File.join(File.dirname(__FILE__), File.basename(__FILE__))
+    require plugin_name
+  end
+end

data/lib/vmbuilder_plugins/apt.rb

@@ -0,0 +1,93 @@
+# =apt.rb: Debian 'apt' Installer library
+# Capistrano plugin module to install and manage apt packages
+#
+# ----
+# Copyright (c) 2007 Neil Wilson, Aldur Systems Ltd
+#
+# Licensed under the GNU Public License v2. No warranty is provided.
+
+require 'capistrano'
+
+# = Purpose
+# Apt is a Capistrano plugin module providing a set of methods
+# that invoke the *apt* package manager (as used in Debian and Ubuntu)
+#
+# Installs within Capistrano as the plugin _apt_.
+#
+# =Usage
+#    
+#    require 'vmbuilder_plugins/apt'
+#
+# Prefix all calls to the library with <tt>apt.</tt>
+#
+module Apt 
+
+  # Default apt-get command - reduces any interactivity to the minimum.
+  APT_GET="DEBCONF_TERSE='yes' DEBIAN_PRIORITY='critical' DEBIAN_FRONTEND=noninteractive apt-get" 
+
+  # Run the apt install program across the package list in 'packages'. 
+  # Select those packages referenced by <tt>:base</tt> and the +version+
+  # of the distribution you want to use.
+  def install(packages, version, options={})
+    update
+    special_options="--allow-unauthenticated" if version != :stable
+    send(run_method, %{
+      sh -c "#{APT_GET} -qyu --force-yes #{special_options.to_s} install #{package_list(packages, version)}"
+    }, options)
+  end
+
+  # Run an apt clean
+  def clean(options={})
+    send(run_method, %{sh -c "#{APT_GET} -qy clean"}, options)
+  end
+
+  # Run an apt autoclean
+  def autoclean(options={})
+    send(run_method, %{sh -c "#{APT_GET} -qy autoclean"}, options)
+  end
+
+  # Run an apt distribution upgrade
+  def dist_upgrade(options={})
+    update
+    send(run_method, %{sh -c "#{APT_GET} -qy dist-upgrade"}, options)
+  end
+
+  # Run an apt upgrade. Use dist_upgrade instead if you want to upgrade
+  # the critical base packages.
+  def upgrade(options={})
+    update
+    send(run_method, %{sh -c "#{APT_GET} -qy upgrade"}, options)
+  end
+
+  # Run an apt update.
+  def update(options={})
+    send(run_method, %{sh -c "#{APT_GET} -qy update"}, options)
+  end
+
+  # RPM package install via alien
+  def rpm_install(packages, options={})
+    install({:base => %w(wget alien) }, :base)
+    send(run_method, "wget -Ncq #{packages.join(' ')}", options)
+    files=packages.collect { |package| File.basename(package) }
+    send(run_method, "alien -i #{files.join(' ')}", options)
+  end
+
+  # Clear the source list and package cache
+  def clear_cache(options={})
+    clean
+    cmd="rm -f /var/cache/apt/*.bin /var/lib/apt/lists/*_* /var/lib/apt/lists/partial/*"
+    send(run_method, cmd, options)
+  end
+
+private
+
+  # Provides a string containing all the package names in the base
+  #list plus those in +version+.
+  def package_list(packages, version)
+    packages[:base].to_a.join(' ') + ' ' + packages[version].to_a.join(' ')
+  end
+
+end
+
+Capistrano.plugin :apt, Apt
+# vim: nowrap sw=2 sts=2 ts=8 ff=unix ft=ruby: