vz-tools/trunk/vz-enter.pl

#!/usr/bin/perl

use warnings;
use strict;

use lib 'lib';
use VZ;

my $hostname = $ARGV[0] || die "usage: $0 part_of_hostname\n";

check_root;
my $vzlist = vzlist( hash => 1 );

sub ve_info {
        my ( $veid ) = @_;
        return join("\t", map { $vzlist->{$veid}->{$_} } ( qw/ip hostname laverage numproc/ ) );
}

my @veids = grep {
        $vzlist->{$_}->{status} eq 'running' &&
        $vzlist->{$_}->{hostname} =~ m/\Q$hostname\E/ &&
        $vzlist->{$_}->{vpsid}
} keys %$vzlist;

die "$hostname not unique:\n", join("\n",
        map { ve_info( $_ ) } @veids
), "\n" unless $#veids == 0;
my $veid = shift @veids or die "can't find $hostname";

print ve_info( $veid ), "\n";

vzctl( 'enter', $veid );

1	dpavlin	54	#!/usr/bin/perl
2
3			use warnings;
4			use strict;
5
6			use lib 'lib';
7			use VZ;
8
9			my $hostname = $ARGV[0] \|\| die "usage: $0 part_of_hostname\n";
10
11			check_root;
12			my $vzlist = vzlist( hash => 1 );
13
14			sub ve_info {
15			my ( $veid ) = @_;
16			return join("\t", map { $vzlist->{$veid}->{$_} } ( qw/ip hostname laverage numproc/ ) );
17			}
18
19			my @veids = grep {
20			$vzlist->{$_}->{status} eq 'running' &&
21			$vzlist->{$_}->{hostname} =~ m/\Q$hostname\E/ &&
22			$vzlist->{$_}->{vpsid}
23			} keys %$vzlist;
24
25			die "$hostname not unique:\n", join("\n",
26			map { ve_info( $_ ) } @veids
27			), "\n" unless $#veids == 0;
28			my $veid = shift @veids or die "can't find $hostname";
29
30			print ve_info( $veid ), "\n";
31
32			vzctl( 'enter', $veid );
33