1
0
mirror of synced 2026-02-01 05:52:01 +00:00

2006-06-29 15:31:21 by steve

Test that our companion scripts are present.
This commit is contained in:
steve
2006-06-29 15:31:21 +00:00
parent a2ac251e8c
commit fe7a419443

View File

@@ -433,7 +433,7 @@ Install an X11 server, using VNC and XDM
--
http://www.steve.org.uk/
$Id: xen-create-image,v 1.51 2006-06-29 13:28:11 steve Exp $
$Id: xen-create-image,v 1.52 2006-06-29 15:31:21 steve Exp $
=cut
@@ -637,22 +637,23 @@ exit;
Test that this system is fully setup for the new xen-create-image
script.
This means that the two binaries xt-install-image and xt-customize-image
are present.
This means that the the companion scripts xt-* are present on the
host.
=cut
sub checkSystem
{
if ( ! -x "/usr/bin/xt-customize-image" )
my @required = qw ( /xt-customize-image xt-install-image xt-create-xen-config/ );
foreach my $bin ( @required )
{
print "The script 'xt-customize-image' was not found.";
print "\nAborting\n\n";
}
if ( ! -x "/usr/bin/xt-install-image" )
{
print "The script 'xt-install-image' was not found.";
print "\nAborting\n\n";
if ( ! -x "/usr/bin/" . $bin )
{
print "The script '$bin' was not found.\n";
print "Aborting\n\n";
exit;
}
}
}
@@ -852,7 +853,7 @@ sub parseCommandLineArguments
if ( $VERSION )
{
my $REVISION = '$Revision: 1.51 $';
my $REVISION = '$Revision: 1.52 $';
if ( $REVISION =~ /1.([0-9.]+) / )
{