github.com/xen-tools.xen-tools
1
0
Fork 0
mirror of synced 2026-01-18 16:56:58 +00:00
Code Releases Activity

2006-01-07 17:38:27 by steve

Browse Source 
Added a --test flag to allow our test script to work.
This commit is contained in:
steve 2006-01-07 17:38:27 +00:00
parent 721dbac61a
commit ee7c2b4753
1 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
xen-list-images
View File

@ -17,6 +17,8 @@ xen-list-images - List all the created and configured Xen images.
General Options:
--dir Specify where the output images are located.
Testing options:
--test List an image even if there is no configuration file in /etc/xen
=head1 OPTIONS
@ -31,6 +33,9 @@ Show the scripts help information.
=item B<--manual>
Read the manual.
=item B<--test>
This flag causes an image to be listed even if the configuration file in /etc/xen doesn't exist. It is soley used for the test script.
=item B<--version>
Show the version number and exit.
@ -85,7 +90,7 @@ Show the version number and exit.
--
http://www.steve.org.uk/
$Id: xen-list-images,v 1.11 2006-01-07 17:25:27 steve Exp $
$Id: xen-list-images,v 1.12 2006-01-07 17:38:27 steve Exp $
=cut
@ -125,7 +130,7 @@ my $RELEASE = '0.7';
#
# Read configuration file(s) if they exist.
# Read the global configuration file if it exists.
#
if ( -e "/etc/xen-tools/xen-tools.conf" )
{
@ -160,7 +165,7 @@ foreach my $entry ( glob( $dir . "*" ) )
#
# Xen configuration file.
#
# if ( -e "/etc/xen/" . $entry . ".cfg" )
if ( $CONFIG{'test'} or ( -e "/etc/xen/" . $entry . ".cfg" ) )
{
my $image = $CONFIG{'dir'} . "/domains/$entry/disk.img";
my $swap = $CONFIG{'dir'} . "/domains/$entry/swap.img";
@ -269,6 +274,7 @@ sub parseCommandLineArguments
#
GetOptions(
"dir=s", \$CONFIG{'dir'},
"test", \$CONFIG{'test'},
"help", \$HELP,
"manual", \$MANUAL,
"version", \$VERSION
@ -280,7 +286,7 @@ sub parseCommandLineArguments
if ( $VERSION )
{
my $REVISION = '$Id: xen-list-images,v 1.11 2006-01-07 17:25:27 steve Exp $';
my $REVISION = '$Id: xen-list-images,v 1.12 2006-01-07 17:38:27 steve Exp $';
$VERSION = join (' ', (split (' ', $REVISION))[2]);
$VERSION =~ s/,v\b//;
$VERSION =~ s/(\S+)$/$1/;