centostrano 0.1

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_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" 
+  APT_GET="yum -y"
+
+  # 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={})
+    #special_options="--allow-unauthenticated" if version != :stable
+    #sh -c "#{APT_GET} -qyu --force-yes #{special_options.to_s} install #{package_list(packages, version)}"
+    special_options = options[:repositories].collect { |repository| " --enablerepo=#{repository}"} if (options && options[:repositories].is_a?(Array))
+    send(run_method, %{
+      sh -c "#{APT_GET} #{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={})
+    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={})
+    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:

data/lib/vmbuilder_plugins/emerge.rb

@@ -0,0 +1,76 @@
+# =emerge.rb: Gentoo 'emerge' Installer library
+# Capistrano task library to install and manage portage packages
+#
+# Copyright (c) 2007 monki(Wesley Beary)
+#
+# inspiration: vmbuilder by Neil Wilson, Aldur Systems Ltd
+#
+# Licenced under the GNU Public License v2. No warranty is provided.
+
+require 'capistrano'
+
+# =Purpose
+# emerge is a Capistrano plugin module providing a set of methods
+# that invoke the portage package manage (as used in Gentoo)
+#
+# Installs within Capistrano as the plugin _emerge_.
+#
+# =Usage
+#
+#   require 'marshall/plugins/emerge'
+#
+# Prefix all calls to the library with <tt>emerge.</tt>
+#
+module Emerge
+  # Default emerge command - reduce interactivity to the minimum
+  EMERGE="emerge -q"
+  
+  # Emerge a new package or packages
+  def install(packages, options={})
+    cmd = <<-CMD
+    sh -c "#{EMERGE} #{packages.join(" ")}"
+    CMD
+    sudo(cmd, options)
+  end
+  
+  # Run clean old/unused packages
+  def clean(options={})
+    cmd = <<-CMD
+      sh -c "#{EMERGE} -clean"
+    CMD
+    sudo(cmd, options)
+  end
+  
+  # Upgrade installed package list
+  def upgrade(options={})
+    cmd = <<-CMD
+      sh -c "#{EMERGE} --sync"
+    CMD
+    sudo(cmd, options)
+  end
+  
+  # Update portage
+  def update_system(options={})
+    cmd = <<-CMD
+      sh -c "#{EMERGE} portage"
+    CMD
+    sudo(cmd, options)
+  end
+  
+  # Update all installed packages
+  def update(options={})
+    cmd = <<-CMD
+      sh -c "#{EMERGE} --update --deep --newuse world"
+    CMD
+    sudo(cmd, options)
+  end
+  
+  # Boot script manipulation command
+  def rc_update(packages, setting)
+    packages.each do |service|
+      sudo "rc_update add #{service} #{setting}"
+    end
+  end
+end
+
+Capistrano.plugin :emerge, Emerge