vz-tools/trunk/vz-remove.pl

#!/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";
1	dpavlin	36	#!/usr/bin/perl -w
2
3			use strict;
4	dpavlin	43	use Shell qw/rm/;
5	dpavlin	36
6	dpavlin	40	use lib 'lib';
7			use VZ;
8			check_root;
9	dpavlin	36
10			my $VEID = shift @ARGV;
11
12	dpavlin	43	die "Usage: $0 VEID\n\n", join("\n",conf_veids()),"\n" unless $VEID;
13	dpavlin	36
14	dpavlin	40	my $c = "$vz_conf/$VEID.conf";
15	dpavlin	36	if ( -e $c ) {
16	dpavlin	43	vzctl('stop', $VEID) if defined( vzlist( hash => 1 )->{ $VEID } );
17	dpavlin	36	unlink $c \|\| die "can't remove $c: $!";
18	dpavlin	40	warn "# removed $c\n";
19	dpavlin	36	} else {
20			warn "WARNING: configuration file $c doesn't exist\n";
21			}
22
23			foreach my $p ( qw/root private/ ) {
24	dpavlin	40	my $c = "$vz_root/$p/$VEID";
25	dpavlin	36	if ( -e $c ) {
26			rm('-Rf', $c);
27			die "can't remove $c: $!" if -e $c;
28	dpavlin	40	warn "# removed $c\n";
29	dpavlin	36	} else {
30			warn "WARNING: directory $c doesn't exist\n";
31			}
32			}
33
34			print "OK: $VEID removed\n";