diff options
Diffstat (limited to 'resize/run-resize-locally')
-rwxr-xr-x | resize/run-resize-locally | 53 |
1 files changed, 0 insertions, 53 deletions
diff --git a/resize/run-resize-locally b/resize/run-resize-locally deleted file mode 100755 index 0d840dd8..00000000 --- a/resize/run-resize-locally +++ /dev/null @@ -1,53 +0,0 @@ -#!/usr/bin/perl -# Copyright (C) 2009-2011 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., 675 Mass Ave, Cambridge, MA 02139, USA. - -# This script sets up the environment so you can run virt-* tools in -# place without needing to do 'make install' first. You can also run -# the tools by creating a symlink to this script and putting it in -# your path. -# -# Use it like this: -# ./run-resize-locally [usual virt-resize args ...] - -use strict; -use warnings; - -use File::Basename qw(dirname); -use File::Spec; -use Cwd qw(abs_path); - -my $path = $0; -my $tool = "resize"; - -# Follow symlinks until we get to the real file -while(-l $path) { - my $link = readlink($path) or die "readlink: $path: $!"; - if(File::Spec->file_name_is_absolute($link)) { - $path = $link; - } else { - $path = File::Spec->catfile(dirname($path), $link); - } -} - -# Get the absolute path of the parent directory -$path = abs_path(dirname($path).'/..'); - -$ENV{LD_LIBRARY_PATH} = $path.'/src/.libs'; -$ENV{LIBGUESTFS_PATH} = $path.'/appliance'; - -#print (join " ", ("$path/$tool/virt-$tool", @ARGV), "\n"); -exec("$path/$tool/virt-$tool", @ARGV); |