mirror of
https://github.com/libguestfs/libguestfs.git
synced 2026-03-21 22:53:37 +00:00
1efed122c0
New APIs: set-tmpdir, get-tmpdir, set-cachedir, get-cachedir. The current code has evolved over time and has a number of problems: (a) A single environment variable ($TMPDIR) controls the location of several directories. (b) It's hard for the library user to predict which directory libguestfs will use, unless the user simulates the same internal steps that libguestfs performs. This commit fixes these issues. (a) Now three environment variables control the location of all small temporary files, and the appliance cache: For temporary files: $LIBGUESTFS_TMPDIR or $TMPDIR or /tmp. For the appliance cache: $LIBGUESTFS_CACHEDIR or $TMPDIR or /var/tmp. The user can also set these directories explicitly through API calls (guestfs_set_tmpdir and guestfs_set_cachedir). (b) The user can also retrieve the actual directories that libguestfs will use, by calling guestfs_get_tmpdir and guestfs_get_cachedir. These functions are also used internally. This commit also: - reworks the internal tmpdir code - removes the internal (undocumented) guestfs_tmpdir call (replacing it with calls to the documented guestfs_get_tmpdir API instead) - changes the ./run script to set LIBGUESTFS_TMPDIR and LIBGUESTFS_CACHEDIR - adds a test - fixes a few places like libguestfs-make-fixed-appliance which depended on $TMPDIR
151 lines
4.4 KiB
Bash
Executable File
151 lines
4.4 KiB
Bash
Executable File
#!/bin/bash -
|
|
# libguestfs 'run' programs locally script
|
|
# Copyright (C) 2011-2012 Red Hat Inc.
|
|
#
|
|
# This program is free software; you can redistribute it and/or modify
|
|
# it under the terms of the GNU General Public License as published by
|
|
# the Free Software Foundation; either version 2 of the License, or
|
|
# (at your option) any later version.
|
|
#
|
|
# 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, 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. Also you can make a
|
|
# symbolic [not hard] link to this 'run' script from anywhere
|
|
# (eg. $HOME/bin/run) if you wish.
|
|
#
|
|
# 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
|
|
|
|
# Find this script.
|
|
b=@abs_builddir@
|
|
|
|
# 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 ||:
|
|
|
|
# Set local environment relative to this script.
|
|
export LIBGUESTFS_PATH="$b/appliance"
|
|
|
|
library_path="$b/src/.libs:$b/gobject/.libs"
|
|
if [ -z "$LD_LIBRARY_PATH" ]; then
|
|
LD_LIBRARY_PATH=$library_path
|
|
else
|
|
LD_LIBRARY_PATH="$library_path:$LD_LIBRARY_PATH"
|
|
fi
|
|
export LD_LIBRARY_PATH
|
|
|
|
# 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
|
|
|
|
# For Python.
|
|
export PYTHON=@PYTHON@
|
|
if [ -z "$PYTHONPATH" ]; then
|
|
PYTHONPATH="$b/python:$b/python/.libs"
|
|
else
|
|
PYTHONPATH="$b/python:$b/python/.libs:$PYTHONPATH"
|
|
fi
|
|
export PYTHONPATH
|
|
|
|
# For Ruby.
|
|
export RUBY=@RUBY@
|
|
export RUBYLIB="$b/ruby/lib:$b/ruby/ext/guestfs"
|
|
export LD_LIBRARY_PATH="$LD_LIBRARY_PATH:$b/ruby/ext/guestfs"
|
|
|
|
# For OCaml.
|
|
export CAML_LD_LIBRARY_PATH="$b/ocaml"
|
|
|
|
# For Java.
|
|
export JAVA_EXE=@JAVA_EXE@
|
|
export CLASSPATH="$b/java:$b/java/t:$b/java/libguestfs-@VERSION@.jar"
|
|
|
|
# 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 "$@"
|
|
else
|
|
# For tests (./run --test), redirect all output to a file, and
|
|
# only print the file if the test fails.
|
|
pid=$$
|
|
tmpout=$b/tmp/run-$pid
|
|
rm -f $tmpout
|
|
start_t="$(date +'%s')"
|
|
$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
|
|
else
|
|
# Test failed.
|
|
echo "$b/run --test" "$@"
|
|
cat $tmpout
|
|
echo "$b/run: command failed with exit code $fail"
|
|
fi
|
|
rm -f $tmpout
|
|
exit $fail
|
|
fi
|