diff options
Diffstat (limited to 'regedit/run-locally')
-rwxr-xr-x | regedit/run-locally | 52 |
1 files changed, 52 insertions, 0 deletions
diff --git a/regedit/run-locally b/regedit/run-locally new file mode 100755 index 0000000..9d9cca9 --- /dev/null +++ b/regedit/run-locally @@ -0,0 +1,52 @@ +#!/usr/bin/perl +# Copyright (C) 2009 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 hivexregedit in +# place without needing to do 'make install' first. +# +# Use it like this: +# ./run-locally [usual hivexregedit args ...] +# eg: +# ./run-locally --export software.hive '\Microsoft' + +use strict; +use warnings; + +use File::Basename qw(dirname); +use File::Spec; +use Cwd qw(abs_path); + +my $path = $0; + +# 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.'/lib/.libs'; +$ENV{PERL5LIB} = $path.'/perl/blib/lib:'.$path.'/perl/blib/arch'; + +#print (join " ", ("$path/regedit/hivexregedit", @ARGV), "\n"); +exec('perl', "$path/regedit/hivexregedit", @ARGV); |