mirror of
https://github.com/libguestfs/libguestfs.git
synced 2026-03-22 07:03:38 +00:00
9ba6717e94
On baremetal you can build and customize a new guest in under 2
minutes. For example:
$ virt-builder fedora-19 \
--root-password password:test \
--install minicom \
--firstboot-command 'yum -y update' \
--firstboot-command 'useradd -m -p "" rjones ; chage -d 0 rjones'
[ 0.0] Downloading: file:///home/rjones/d/libguestfs/builder/website/fedora-19.xz
[ 1.0] Uncompressing: file:///home/rjones/d/libguestfs/builder/website/fedora-19.xz
[ 24.0] Running virt-resize to expand the disk to 4.2G
[ 77.0] Opening the new disk
[ 81.0] Installing packages: minicom
[ 94.0] Installing firstboot command: [001] yum -y update
[ 94.0] Installing firstboot command: [002] useradd -m -p "" rjones ; chage -d 0 rjones
[ 94.0] Finishing off
275 lines
7.4 KiB
Bash
Executable File
275 lines
7.4 KiB
Bash
Executable File
#!/bin/bash -
|
|
# libguestfs 'run' programs locally script
|
|
# Copyright (C) 2011-2013 Red Hat Inc.
|
|
#
|
|
# @configure_input@
|
|
#
|
|
# This library is free software; you can redistribute it and/or
|
|
# modify it under the terms of the GNU Lesser General Public
|
|
# License as published by the Free Software Foundation; either
|
|
# version 2 of the License, or (at your option) any later version.
|
|
#
|
|
# This library 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
|
|
# Lesser General Public License for more details.
|
|
#
|
|
# You should have received a copy of the GNU Lesser General Public
|
|
# License along with this library; if not, write to the Free Software
|
|
# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
|
|
|
|
#----------------------------------------------------------------------
|
|
|
|
# With this script you can run all the virt tools without needing to
|
|
# install them first. You just have to do for example:
|
|
#
|
|
# ./run ./inspector/virt-inspector [args ...]
|
|
#
|
|
# This works for any C program, virt tools, and most non-C bindings
|
|
# and programs in the libguestfs distribution.
|
|
#
|
|
# For lots more ways to use this script, see the libguestfs README
|
|
# file.
|
|
#
|
|
# The script can also be used to make the output of tests shorter:
|
|
# TESTS_ENVIRONMENT = ... $(top_builddir)/run --test [$(VG)]
|
|
# (Use the optional $(VG) when the tests must also be run under
|
|
# valgrind).
|
|
|
|
#----------------------------------------------------------------------
|
|
|
|
if [ "$1" = "--test" ]; then
|
|
test_mode=1
|
|
shift
|
|
fi
|
|
|
|
# Source and build directories (absolute paths so this works from any
|
|
# directory).
|
|
s="$(cd @abs_srcdir@ && pwd)"
|
|
b="$(cd @abs_builddir@ && pwd)"
|
|
|
|
# Set T to current date & time (mainly for valgrind logfile name).
|
|
T=`date +%Y%m%d.%H.%M.%S`
|
|
export T
|
|
|
|
# Set tmpdir and cachedir so the appliance doesn't conflict with
|
|
# globally installed libguestfs.
|
|
#
|
|
# We set it to a subdirectory ('tmp') so that we can label this
|
|
# subdirectory to make libvirt + sVirt + SELinux enforcing work.
|
|
export LIBGUESTFS_TMPDIR="$b/tmp"
|
|
export LIBGUESTFS_CACHEDIR="$b/tmp"
|
|
mkdir -p "$b/tmp"
|
|
chcon --reference=/tmp tmp 2>/dev/null ||:
|
|
|
|
# Only set path if the appliance was enabled.
|
|
if [ "x@ENABLE_APPLIANCE@" = "xyes" ]; then
|
|
export LIBGUESTFS_PATH="$b/appliance"
|
|
elif [ -z "$LIBGUESTFS_PATH" ]; then
|
|
cat <<'EOF' >&2
|
|
run: warning: You used './configure --disable-appliance' so LIBGUESTFS_PATH
|
|
run: warning: has not been set automatically.
|
|
EOF
|
|
fi
|
|
|
|
# Set the PATH to contain guestunmount (called by umount-local API)
|
|
# and virt-resize (called by virt-builder).
|
|
if [ -z "$PATH" ]; then
|
|
PATH="$b/fuse:$b/resize"
|
|
else
|
|
PATH="$b/fuse:$b/resize:$PATH"
|
|
fi
|
|
export PATH
|
|
|
|
# Set LD_LIBRARY_PATH to contain library.
|
|
if [ -z "$LD_LIBRARY_PATH" ]; then
|
|
LD_LIBRARY_PATH="$b/src/.libs:$b/gobject/.libs"
|
|
else
|
|
LD_LIBRARY_PATH="$b/src/.libs:$b/gobject/.libs:$LD_LIBRARY_PATH"
|
|
fi
|
|
export LD_LIBRARY_PATH
|
|
|
|
# Make virt-builder use the local website copy to avoid hitting
|
|
# the network all the time.
|
|
if [ -z "$VIRT_BUILDER_SOURCE" ]; then
|
|
VIRT_BUILDER_SOURCE="file://$s/builder/website/index.asc"
|
|
export VIRT_BUILDER_SOURCE
|
|
fi
|
|
|
|
# For Perl.
|
|
if [ -z "$PERL5LIB" ]; then
|
|
PERL5LIB="$b/perl/blib/lib:$b/perl/blib/arch"
|
|
else
|
|
PERL5LIB="$b/perl/blib/lib:$b/perl/blib/arch:$PERL5LIB"
|
|
fi
|
|
export PERL5LIB
|
|
|
|
# Enable Perl valgrinding.
|
|
# XXX Unclear if this actually makes any difference. It seems you
|
|
# have to recompile the Perl interpreter with debugging enabled.
|
|
export PERL_DEBUG=1
|
|
export PERL_VALGRIND=1
|
|
export PERL_DESTRUCT_LEVEL=2
|
|
|
|
# For Python.
|
|
export PYTHON=@PYTHON@
|
|
if [ -z "$PYTHONPATH" ]; then
|
|
PYTHONPATH="$s/python:$b/python:$b/python/.libs"
|
|
else
|
|
PYTHONPATH="$s/python:$b/python:$b/python/.libs:$PYTHONPATH"
|
|
fi
|
|
export PYTHONPATH
|
|
|
|
# For Ruby.
|
|
export RUBY=@RUBY@
|
|
export RAKE=@RAKE@
|
|
if [ -z "$RUBYLIB" ]; then
|
|
RUBYLIB="$b/ruby/lib:$b/ruby/ext/guestfs"
|
|
else
|
|
RUBYLIB="$b/ruby/lib:$b/ruby/ext/guestfs:$RUBYLIB"
|
|
fi
|
|
export RUBYLIB
|
|
export LD_LIBRARY_PATH="$b/ruby/ext/guestfs:$LD_LIBRARY_PATH"
|
|
|
|
# For OCaml.
|
|
if [ -z "$CAML_LD_LIBRARY_PATH" ]; then
|
|
CAML_LD_LIBRARY_PATH="$b/ocaml"
|
|
else
|
|
CAML_LD_LIBRARY_PATH="$b/ocaml:$CAML_LD_LIBRARY_PATH"
|
|
fi
|
|
export CAML_LD_LIBRARY_PATH
|
|
|
|
# For Java.
|
|
export JAVA_EXE=@JAVA_EXE@
|
|
if [ -z "$CLASSPATH" ]; then
|
|
CLASSPATH="$b/java:$b/java/t:$b/java/libguestfs-@VERSION@.jar"
|
|
else
|
|
CLASSPATH="$b/java:$b/java/t:$b/java/libguestfs-@VERSION@.jar:$CLASSPATH"
|
|
fi
|
|
export CLASSPATH
|
|
|
|
# For Erlang.
|
|
if [ -z "$ERL_LIBS" ]; then
|
|
ERL_LIBS="$b/erlang"
|
|
else
|
|
ERL_LIBS="$b/erlang:$ERL_LIBS"
|
|
fi
|
|
export ERL_LIBS
|
|
if [ -z "$PATH" ]; then
|
|
PATH="$b/erlang"
|
|
else
|
|
PATH="$b/erlang:$PATH"
|
|
fi
|
|
export PATH
|
|
|
|
# For Lua.
|
|
export LUA=@LUA@
|
|
if [ -z "$LUA_CPATH" ]; then
|
|
LUA_CPATH="$b/lua/?.so"
|
|
else
|
|
LUA_CPATH="$b/lua/?.so;$LUA_CPATH"
|
|
fi
|
|
export LUA_CPATH
|
|
|
|
# For golang.
|
|
export GOLANG=@GOLANG@
|
|
if [ -z "$GOPATH" ]; then
|
|
GOPATH="$b/golang"
|
|
else
|
|
GOPATH="$b/golang:$GOPATH"
|
|
fi
|
|
export GOPATH
|
|
if [ -z "$CGO_CFLAGS" ]; then
|
|
CGO_CFLAGS="-I$s/src"
|
|
else
|
|
CGO_CFLAGS="$CGO_CFLAGS -I$s/src"
|
|
fi
|
|
export CGO_CFLAGS
|
|
if [ -z "$CGO_LDFLAGS" ]; then
|
|
CGO_LDFLAGS="-L$b/src/.libs"
|
|
else
|
|
CGO_LDFLAGS="$CGO_LDFLAGS -L$b/src/.libs"
|
|
fi
|
|
export CGO_LDFLAGS
|
|
|
|
# For GObject, Javascript and friends.
|
|
export GJS=@GJS@
|
|
if [ -z "$GI_TYPELIB_PATH" ]; then
|
|
GI_TYPELIB_PATH="$b/gobject"
|
|
else
|
|
GI_TYPELIB_PATH="$b/gobject:$GI_TYPELIB_PATH"
|
|
fi
|
|
export GI_TYPELIB_PATH
|
|
# Be friendly to valgrind (https://live.gnome.org/Valgrind)
|
|
export G_SLICE=always-malloc
|
|
export G_DEBUG=gc-friendly
|
|
|
|
# This is a cheap way to find some use-after-free and uninitialized
|
|
# read problems when using glibc.
|
|
random_val="$(awk 'BEGIN{srand(); print 1+int(255*rand())}' < /dev/null)"
|
|
export MALLOC_PERTURB_=$random_val
|
|
|
|
# Do we have libtool? If we have it then we can use it to make
|
|
# running valgrind simpler. However don't depend on it.
|
|
if libtool --help >/dev/null 2>&1; then
|
|
libtool="libtool --mode=execute"
|
|
fi
|
|
|
|
# Avoid GNOME keyring stupidity
|
|
export GNOME_KEYRING_CONTROL=
|
|
export GNOME_KEYRING_PID=
|
|
|
|
# Run the program.
|
|
if [ -z "$test_mode" ]; then
|
|
exec $libtool "$@"
|
|
fi
|
|
|
|
# For tests (./run --test):
|
|
# - redirect all output to a file, and only print the file if the
|
|
# test fails
|
|
# - print how long it takes to run the test
|
|
# - timeout if the test takes too long to run
|
|
|
|
# Originally 1h, but that is not long enough to run the C API
|
|
# tests on Koji.
|
|
timeout_period=4h
|
|
timeout_kill=30s
|
|
|
|
# Do we have Padraig's timeout utility (from coreutils)?
|
|
if timeout --help >/dev/null 2>&1; then
|
|
# Does this version of timeout have the -k option? (Not on RHEL 6)
|
|
if timeout -k 10s 10s true >/dev/null 2>&1; then
|
|
timeout_k_opt="-k $timeout_kill"
|
|
fi
|
|
# Timeout (SIGTERM) after $timeout_period.
|
|
# Then send a second SIGKILL $timeout_kill seconds later.
|
|
timeout="timeout $timeout_k_opt $timeout_period"
|
|
fi
|
|
|
|
pid=$$
|
|
tmpout=$b/tmp/run-$pid
|
|
rm -f $tmpout
|
|
start_t="$(date +'%s')"
|
|
$timeout $libtool "$@" > $tmpout 2>&1
|
|
fail=$?
|
|
end_t="$(date +'%s')"
|
|
if [ "$fail" -eq 0 ]; then
|
|
# Test successful.
|
|
echo $(($end_t - $start_t)) seconds: "$@"
|
|
elif [ "$fail" -eq 77 ]; then
|
|
# Tests return 77 to mean skipped.
|
|
cat $tmpout
|
|
elif [ "$fail" -eq 124 ]; then
|
|
# Timed out.
|
|
echo "$b/run --test" "$@"
|
|
cat $tmpout
|
|
echo "$b/run: command timed out after $timeout_period"
|
|
else
|
|
# Test failed.
|
|
echo "$b/run --test" "$@"
|
|
cat $tmpout
|
|
echo "$b/run: command failed with exit code $fail"
|
|
fi
|
|
rm -f $tmpout
|
|
exit $fail
|