Repository List / vz-tools / trunk / vz-remove.pl @ HEAD

#!/usr/bin/perl -w

use strict;
use Shell qw/rm/;

use lib 'lib';
use VZ;
check_root;

my $VEID = shift @ARGV;

die "Usage: $0 VEID\n\n", join("\n",conf_veids()),"\n" unless $VEID;

my $c = "$vz_conf/$VEID.conf";
if ( -e $c ) {
	vzctl('stop', $VEID) if defined( vzlist( hash => 1 )->{ $VEID } );
	unlink $c || die "can't remove $c: $!";
	warn "# removed $c\n";
} else {
	warn "WARNING: configuration file $c doesn't exist\n";
}

foreach my $p ( qw/root private/ ) {
	my $c = "$vz_root/$p/$VEID";
	if ( -e $c ) {
		rm('-Rf', $c);
		die "can't remove $c: $!" if -e $c;
		warn "# removed $c\n";
	} else {
		warn "WARNING: directory $c doesn't exist\n";
	}
}

print "OK: $VEID removed\n";