55 lines
553 B
Perl
Executable File
55 lines
553 B
Perl
Executable File
#!/usr/bin/perl -w
|
|
|
|
#
|
|
# Install Linux into a given directory, either via:
|
|
#
|
|
# * debootstrap
|
|
# * rpmstrap
|
|
# * untarring.
|
|
# * copying
|
|
#
|
|
|
|
use strict;
|
|
|
|
|
|
#
|
|
# Parse our arguments.
|
|
#
|
|
|
|
|
|
#
|
|
# Check arguments.
|
|
#
|
|
|
|
#
|
|
# Work out how to install:
|
|
#
|
|
if ( $CONFIG{'debootstrap'} )
|
|
{
|
|
}
|
|
elsif ( $CONFIG{'rpmstrap'} )
|
|
{
|
|
}
|
|
elsif ( $CONFIG{'copy-from'} )
|
|
{
|
|
}
|
|
elsif ( $CONFIG{'untar'} )
|
|
{
|
|
}
|
|
else
|
|
{
|
|
#
|
|
# error
|
|
#
|
|
# return a code so that xen-create-image can abort.
|
|
}
|
|
|
|
|
|
#
|
|
# Finished
|
|
#
|
|
|
|
#
|
|
# Return 0 so that xen-create-image knows we succeeded.
|
|
#
|