I have added my modified libvirt-guests script.

The changes I have made are:

1) Added ON_SHUTDOWN=migrate option

2) Added a RELOCATION_HOST variable

3) Added a migrate_guest() function

4) Modified the on stop function to add the migrate option

I hope the changes will be added to future libvirt releases.

Best regards,

Maurits van de Lande

#######################################################################

#!/bin/sh

# the following is the LSB init header

### BEGIN INIT INFO

# Provides: libvirt-guests

# Required-Start: libvirtd

# Required-Stop: libvirtd

# Default-Start: 2 3 4 5

# Default-Stop: 0 1 6

# Short-Description: suspend/resume libvirt guests on shutdown/boot

# Description: This is a script for suspending or migrating active libvirt guests

# on shutdown and resuming the suspended guest on next boot.

# See http://libvirt.org

### END INIT INFO

# the following is chkconfig init header

# libvirt-guests: suspend/resume libvirt guests on shutdown/boot

# chkconfig: 345 99 01

# description: This is a script for suspending active libvirt guests \

# on shutdown and resuming them on next boot \

# See http://libvirt.org

sysconfdir=/etc

localstatedir=/var

libvirtd=/usr/sbin/libvirtd

# Source function library.

test ! -r "$sysconfdir"/rc.d/init.d/functions ||

. "$sysconfdir"/rc.d/init.d/functions

URIS=default

ON_BOOT=start

ON_SHUTDOWN=suspend

#ON_SHUTDOWN=migrate

SHUTDOWN_TIMEOUT=0

RELOCATION_HOST=relocation_server_name.domain.local

test -f "$sysconfdir"/sysconfig/libvirt-guests && . "$sysconfdir"/sysconfig/libvirt-guests

LISTFILE="$localstatedir"/lib/libvirt/libvirt-guests

VAR_SUBSYS_LIBVIRT_GUESTS="$localstatedir"/lock/subsys/libvirt-guests

RETVAL=0

retval() {

"$@"

if [ $? -ne 0 ]; then

RETVAL=1

return 1

else

return 0

}

run_virsh() {

uri=$1

shift

if [ "x$uri" = xdefault ]; then

conn=

else

conn="-c $uri"

virsh $conn "$@" </dev/null

}

run_virsh_c() {

( export LC_ALL=C; run_virsh "$@" )

}

list_guests() {

uri=$1

list=$(run_virsh_c $uri list)

if [ $? -ne 0 ]; then

RETVAL=1

return 1

uuids=

for id in $(echo "$list" | awk 'NR > 2 {print $1}'); do

uuid=$(run_virsh_c $uri dominfo $id | awk '/^UUID:/{print $2}')

if [ -z "$uuid" ]; then

RETVAL=1

return 1

uuids="$uuids $uuid"

done

echo $uuids

}

guest_name() {

uri=$1

uuid=$2

name=$(run_virsh_c $uri dominfo $uuid 2>/dev/null | \

awk '/^Name:/{print $2}')

[ -n "$name" ] || name=$uuid

echo "$name"

}

guest_is_on() {

uri=$1

uuid=$2

guest_running=false

info=$(run_virsh_c $uri dominfo $uuid)

if [ $? -ne 0 ]; then

RETVAL=1

return 1

id=$(echo "$info" | awk '/^Id:/{print $2}')

[ -n "$id" ] && [ "x$id" != x- ] && guest_running=true

return 0

}

started() {

touch "$VAR_SUBSYS_LIBVIRT_GUESTS"

}

start() {

[ -f "$LISTFILE" ] || { started; return 0; }

if [ "x$ON_BOOT" != xstart ]; then

echo $"libvirt-guests is configured not to start any guests on boot"

rm -f "$LISTFILE"

started

return 0

while read uri list; do

configured=false

for confuri in $URIS; do

if [ $confuri = $uri ]; then

configured=true

break

done

if ! $configured; then

echo $"Ignoring guests on $uri URI"

continue

echo $"Resuming guests on $uri URI..."

for guest in $list; do

name=$(guest_name $uri $guest)

echo -n $"Resuming guest $name: "

if guest_is_on $uri $guest; then

if $guest_running; then

echo $"already active"

else

retval run_virsh $uri start "$name" >/dev/null && \

echo $"done"

done

done <"$LISTFILE"

rm -f "$LISTFILE"

started

}

suspend_guest()

{

uri=$1

guest=$2

name=$(guest_name $uri $guest)

label=$"Suspending $name: "

echo -n "$label"

run_virsh $uri managedsave $guest >/dev/null &

virsh_pid=$!

while true; do

sleep 1

kill -0 $virsh_pid >/dev/null 2>&1 || break

progress=$(run_virsh_c $uri domjobinfo $guest 2>/dev/null | \

awk '/^Data processed:/{print $3, $4}')

if [ -n "$progress" ]; then

printf '\r%s%12s ' "$label" "$progress"

else

printf '\r%s%-12s ' "$label" "..."

done

retval wait $virsh_pid && printf '\r%s%-12s\n' "$label" $"done"

}

shutdown_guest()

{

uri=$1

guest=$2

name=$(guest_name $uri $guest)

label=$"Shutting down $name: "

echo -n "$label"

retval run_virsh $uri shutdown $guest >/dev/null || return

timeout=$SHUTDOWN_TIMEOUT

while [ $timeout -gt 0 ]; do

sleep 1

timeout=$[timeout - 1]

guest_is_on $uri $guest || return

$guest_running || break

printf '\r%s%-12d ' "$label" $timeout

done

}

migrate_guest()

{

uri=$1

guest=$2

name=$(guest_name $uri $guest)

label=$"Migrating $name: to $RELOCATION_HOST"

echo -n "$label"

echo

retval run_virsh $uri migrate --live --verbose $guest "qemu+ssh://$RELOCATION_HOST/system" || return

# if guest_is_on $uri $guest; then

# if $guest_running; then

# printf '\r%s%-12s\n' "$label" $"failed to migrate"

# else

# printf '\r%s%-12s\n' "$label" $"done"

# fi

}

stop() {

# last stop was not followed by start

[ -f "$LISTFILE" ] && return 0

suspending=true

case "x$ON_SHUTDOWN" in

xshutdown )

suspending=false

if [ $SHUTDOWN_TIMEOUT -le 0 ]; then

echo $"Shutdown action requested but SHUTDOWN_TIMEOUT was not set"

RETVAL=6

return

;;

xmigrate )

suspending=false

;;

esac

# if [ "x$ON_SHUTDOWN" = xshutdown ]; then

# suspending=false

# if [ $SHUTDOWN_TIMEOUT -le 0 ]; then

# echo $"Shutdown action requested but SHUTDOWN_TIMEOUT was not set"

# RETVAL=6

# return

# fi

: >"$LISTFILE"

for uri in $URIS; do

echo -n $"Running guests on $uri URI: "

if [ "x$uri" = xdefault ] && [ ! -x "$libvirtd" ]; then

echo $"libvirtd not installed; skipping this URI."

continue

list=$(list_guests $uri)

if [ $? -eq 0 ]; then

empty=true

for uuid in $list; do

$empty || printf ", "

echo -n $(guest_name $uri $uuid)

empty=false

done

if $empty; then

echo $"no running guests."

else

echo

echo $uri $list >>"$LISTFILE"

done

while read uri list; do

if $suspending; then

echo $"Suspending guests on $uri URI..."

else

if [ "x$ON_SHUTDOWN" = xshutdown ]; then

echo $"Shutting down guests on $uri URI..."

else

echo $"Migrating guests on $uri URI... to $RELOCATION_HOST"

for guest in $list; do

if $suspending; then

suspend_guest $uri $guest

else

if [ "x$ON_SHUTDOWN" = xshutdown ]; then

shutdown_guest $uri $guest

else

migrate_guest $uri $guest

done

if [ "x$ON_SHUTDOWN" = xmigrate ]; then

#delete listfile after migration all VM's

rm -f $LISTFILE

done <"$LISTFILE"

rm -f "$VAR_SUBSYS_LIBVIRT_GUESTS"

}

gueststatus() {

for uri in $URIS; do

echo "* $uri URI:"

retval run_virsh $uri list || echo

done

}

# rh_status

# Display current status: whether saved state exists, and whether start

# has been executed. We cannot use status() from the functions library,

# since there is no external daemon process matching this init script.

rh_status() {

if [ -f "$LISTFILE" ]; then

echo $"stopped, with saved guests"

RETVAL=3

else

if [ -f "$VAR_SUBSYS_LIBVIRT_GUESTS" ]; then

echo $"started"

else

echo $"stopped, with no saved guests"

RETVAL=0

}

# usage [val]

# Display usage string, then exit with VAL (defaults to 2).

usage() {

echo $"Usage: $0 {start|stop|status|restart|condrestart|try-restart|reload|force-reload|gueststatus|shutdown}"

exit ${1-2}

}

# See how we were called.

if test $# != 1; then

usage

case "$1" in

--help)

usage 0

;;

start|stop|gueststatus)

;;

restart)

stop && start

;;

condrestart|try-restart)

[ -f "$VAR_SUBSYS_LIBVIRT_GUESTS" ] && stop && start

;;

reload|force-reload)

# Nothing to do; we reread configuration on each invocation

;;

status)

rh_status

;;

shutdown)

ON_SHUTDOWN=shutdown

stop

;;

usage

;;

esac

exit $RETVAL