github.com/xen-tools.xen-tools
1
0
Fork 0
mirror of synced 2026-05-05 07:43:42 +00:00
Code Releases Activity

Show what has been deleted by default.

Browse Source 
(Closes: #452756)
This commit is contained in:
Steve Kemp
2008-01-15 22:10:21 +00:00
parent 6d8c81559c
commit f02f2bcf44
1 changed files with 29 additions and 27 deletions
Download Patch File Download Diff File Expand all files Collapse all files

56
bin/xen-delete-image
View File

@@ -208,7 +208,7 @@ if ( (!$CONFIG{'test'}) && ( $EFFECTIVE_USER_ID != 0 ) )
E_O_ROOT E_O_ROOT
exit; exit 127;
} }
@@ -248,7 +248,7 @@ foreach my $name ( @$hosts )
# #
# All done. # All done.
# #
exit; exit 0;
@@ -463,13 +463,17 @@ sub deleteXenImage
{ {
my ($hostname) = ( @_ ); my ($hostname) = ( @_ );
#
# Collect the names of files to delete.
#
my @delete;
# #
# Delete the Xen auto-start file if it exists. # Delete the Xen auto-start file if it exists.
# #
if ( -e "/etc/xen/auto/$hostname.cfg" ) if ( -e "/etc/xen/auto/$hostname.cfg" )
{ {
$CONFIG{'verbose'} && print "Removing /etc/xen/auto/$hostname.cfg\n"; push( @delete, "/etc/xen/auto/$hostname.cfg" );
unlink("/etc/xen/auto/$hostname.cfg" )
} }
# #
@@ -477,38 +481,36 @@ sub deleteXenImage
# #
if ( -e "/etc/xen/$hostname.cfg" ) if ( -e "/etc/xen/$hostname.cfg" )
{ {
$CONFIG{'verbose'} && print "Removing /etc/xen/$hostname.cfg\n"; push( @delete, "/etc/xen/$hostname.cfg" );
unlink("/etc/xen/$hostname.cfg" )
} }
# #
# If we're working on disk images remove them. # If we're working on disk images remove them.
# #
foreach my $file ( @delete )
{
if ( -e $file )
{
print "Deleting: $file\n";
unlink( $file );
}
else
{
print "Ignoring missing file: $file\n";
}
}
if ( defined( $CONFIG{'dir'} ) ) if ( defined( $CONFIG{'dir'} ) )
{ {
my $prefix = $CONFIG{'dir'} . "/domains/"; my $prefix = $CONFIG{'dir'} . "/domains/";
#
# Delete the files
#
foreach my $file ( "/swap.img", "/disk.img", "/install.log" )
{
# complete path
my $path = $prefix . $hostname . $file;
if ( -e $path )
{
$CONFIG{'verbose'} && print "Removing $path\n";
unlink( $path );
}
}
# #
# Now remove the directory. # Now remove the directory.
# #
if ( -d $prefix . $hostname ) if ( -d $prefix . $hostname )
{ {
$CONFIG{'verbose'} && print "Removing directory: $prefix" . $hostname . "\n"; print "Removing: " . $prefix . $hostname . "\n";
rmdir ( $prefix . $hostname ); rmdir ( $prefix . $hostname );
} }
} }
@@ -523,13 +525,13 @@ sub deleteXenImage
if ( -e "/dev/$CONFIG{'lvm'}/$hostname-swap" ) if ( -e "/dev/$CONFIG{'lvm'}/$hostname-swap" )
{ {
$CONFIG{'verbose'} && print "Removing LVM swap volume\n"; print "Removing swap volume\n";
runCommand( "lvremove /dev/$CONFIG{'lvm'}/$hostname-swap --force" ); runCommand( "lvremove /dev/$CONFIG{'lvm'}/$hostname-swap --force" );
} }
if ( -e "/dev/$CONFIG{'lvm'}/$hostname-disk" ) if ( -e "/dev/$CONFIG{'lvm'}/$hostname-disk" )
{ {
$CONFIG{'verbose'} && print "Removing LVM disk volume\n"; print "Removing LVM disk volume\n";
runCommand( "lvremove /dev/$CONFIG{'lvm'}/$hostname-disk --force" ); runCommand( "lvremove /dev/$CONFIG{'lvm'}/$hostname-disk --force" );
} }
@@ -545,14 +547,14 @@ sub deleteXenImage
if ( -e "/dev/evms/$hostname-swap" ) if ( -e "/dev/evms/$hostname-swap" )
{ {
$CONFIG{'verbose'} && print "Removing EVMS swap volume\n"; print "Removing EVMS swap volume\n";
runCommand( "echo Delete : /dev/evms/$hostname-swap | evms" ); runCommand( "echo Delete : /dev/evms/$hostname-swap | evms" );
runCommand( "echo Delete : $CONFIG{'evms'}/$hostname-swap | evms" ); runCommand( "echo Delete : $CONFIG{'evms'}/$hostname-swap | evms" );
} }
if ( -e "/dev/evms/$hostname-disk" ) if ( -e "/dev/evms/$hostname-disk" )
{ {
$CONFIG{'verbose'} && print "Removing EVMS disk volume\n"; print "Removing EVMS disk volume\n";
runCommand( "echo Delete : /dev/evms/$hostname-disk | evms" ); runCommand( "echo Delete : /dev/evms/$hostname-disk | evms" );
runCommand( "echo Delete : $CONFIG{'evms'}/$hostname-disk | evms" ); runCommand( "echo Delete : $CONFIG{'evms'}/$hostname-disk | evms" );
} }
@@ -563,7 +565,7 @@ sub deleteXenImage
print "Error: No installation type specified\n"; print "Error: No installation type specified\n";
print "Can't happen!\n"; print "Can't happen!\n";
print "Hostname : $hostname\n"; print "Hostname : $hostname\n";
exit; exit 127;
} }
} }