github.com/xen-tools.xen-tools
1
0
Fork 0
mirror of synced 2026-01-21 09:53:08 +00:00
Code Releases Activity

2006-06-09 19:55:10 by steve

Browse Source 
Support RPMStrap.
  Test that the systems installation succeeded
This commit is contained in:
steve 2006-06-09 19:55:10 +00:00
parent 27535637f2
commit ef9883c8fc
1 changed files with 57 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

60
bin/xt-install-image
View File

@ -79,7 +79,7 @@ Install the distribution specified by the B<--dist> argument using the debootstr
--
http://www.steve.org.uk/
$Id: xt-install-image,v 1.9 2006-06-09 19:49:18 steve Exp $
$Id: xt-install-image,v 1.10 2006-06-09 19:55:10 steve Exp $
=cut
@ -151,7 +151,7 @@ elsif ( $CONFIG{'debootstrap'} )
}
elsif ( $CONFIG{'rpmstrap'} )
{
print "TODO: rpmstrap\n";
installRPMStrapImage();
}
else
{
@ -164,6 +164,24 @@ else
}
#
# At this point we should have a freshly installed system.
#
# However errors have been known to happen ;)
#
# Test that we have some standard files.
#
foreach my $file ( qw( /bin/ls /bin/cp /etc/fstab ) )
{
if ( ! -x $CONFIG{'location'} . $file )
{
print "The installation of the new system appears to have failed.\n";
print "\n";
print "There is no '$file' installed in the new installation directory\n";
exit 1;
}
}
#
# Exit cleanly - any errors which have already occurred will result
@ -216,7 +234,7 @@ sub parseCommandLineArguments
if ( $VERSION )
{
my $REVISION = '$Revision: 1.9 $';
my $REVISION = '$Revision: 1.10 $';
if ( $REVISION =~ /1.([0-9.]+) / )
{
@ -406,6 +424,42 @@ sub installDebootstrapImage
=head2 installRPMStrapImage
Install a new distribution of GNU/Linux using the rpmstrap tool.
=cut
sub installRPMStrapImage
{
#
# Make sure we have the rpmstrap binary present.
#
if ( ! -x '/usr/bin/rpmstrap' )
{
print "You've chosen to use the rpmstrap program, but it isn't installed.\n";
exit;
}
#
# Propogate the verbosity setting.
#
my $VERBOSE='';
if ( $CONFIG{'verbose'} )
{
$VERBOSE .= "--verbose";
}
#
# The command we're going to run.
#
my $command = "rpmstrap $VERBOSE $CONFIG{'dist'} $CONFIG{'location'}";
}
=head2 runCommand
A utility method to run a system command. We will capture the return