55 lines
535 B
Perl
Executable File
55 lines
535 B
Perl
Executable File
#!/usr/bin/perl -w
|
|
|
|
#
|
|
# Parse arguments, and call 'xt-install-image' + 'xt-customize-image'
|
|
# appropriately.
|
|
#
|
|
|
|
use strict;
|
|
|
|
|
|
#
|
|
# Read configuration file.
|
|
#
|
|
|
|
|
|
#
|
|
# Parse arguments
|
|
#
|
|
|
|
|
|
#
|
|
# Check arguments.
|
|
#
|
|
|
|
|
|
#
|
|
# Create temporary directory to perform installation into
|
|
#
|
|
|
|
|
|
#
|
|
# Call xt-install-image to do the install.
|
|
#
|
|
|
|
|
|
#
|
|
# If that worked call xt-customise-image to setup networking, and
|
|
# run distro-specific hooks.
|
|
#
|
|
|
|
|
|
#
|
|
# Unmount the temporary directory.
|
|
#
|
|
|
|
|
|
#
|
|
# Create xen configuration file.
|
|
#
|
|
|
|
|
|
#
|
|
# Report success.
|
|
#
|