github.com/xen-tools.xen-tools
1
0
Fork 0
mirror of synced 2026-01-21 17:55:25 +00:00
Code Releases Activity

2006-06-07 09:13:46 by steve

Browse Source 
Remove the installation log if present.
This commit is contained in:
steve 2006-06-07 09:13:46 +00:00
parent f881ee1025
commit f212ac5324
1 changed files with 19 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
xen-delete-image
View File

@ -6,7 +6,7 @@ xen-delete-image - Delete previously created Xen instances.
=head1 SYNOPSIS
xen-delete-image [options] imageName1 imageName2 ... imageNameN
xen-delete-image [options] imageName1 imageName2 ... imageNameN
Help Options:
--help Show help information.
@ -79,7 +79,7 @@ Specify the LVM volume where images were previously saved.
--
http://www.steve.org.uk/
$Id: xen-delete-image,v 1.30 2006-05-26 15:02:35 steve Exp $
$Id: xen-delete-image,v 1.31 2006-06-07 09:13:46 steve Exp $
=cut
@ -215,17 +215,17 @@ sub readConfigurationFile
open( FILE, "<", $file ) or die "Cannot read file '$file' - $!";
my $line = "";
my $line = "";
while (defined($line = <FILE>) )
while (defined($line = <FILE>) )
{
chomp $line;
if ($line =~ s/\\$//)
if ($line =~ s/\\$//)
{
$line .= <FILE>;
redo unless eof(FILE);
}
# Skip lines beginning with comments
next if ( $line =~ /^([ \t]*)\#/ );
@ -249,7 +249,7 @@ sub readConfigurationFile
$key =~ s/\s+$//;
$val =~ s/^\s+//;
$val =~ s/\s+$//;
# Store value.
$CONFIG{ $key } = $val;
}
@ -283,14 +283,14 @@ sub parseCommandLineArguments
"manual", \$MANUAL,
"version", \$VERSION
);
pod2usage(1) if $HELP;
pod2usage(-verbose => 2 ) if $MANUAL;
if ( $VERSION )
{
my $REVISION = '$Revision: 1.30 $';
my $REVISION = '$Revision: 1.31 $';
if ( $REVISION =~ /1.([0-9.]+) / )
{
@ -329,7 +329,7 @@ sub deleteXenImage
# Now the swap image
#
if ( -e $CONFIG{'dir'} . "/domains/" . $hostname . "/swap.img" )
{
{
unlink( $CONFIG{'dir'} . "/domains/" . $hostname . "/swap.img" );
}
@ -337,11 +337,19 @@ sub deleteXenImage
# Now the disk image
#
if ( -e $CONFIG{'dir'} . "/domains/" . $hostname . "/disk.img" )
{
{
unlink( $CONFIG{'dir'} . "/domains/" . $hostname . "/disk.img" );
}
#
# Now the install log.
#
if ( -e $CONFIG{'dir'} . "/domains/" . $hostname . "/install.log" )
{
unlink( $CONFIG{'dir'} . "/domains/" . $hostname . "/install.log" );
}
#
# Now remove the directory.
#