Subversion Repositories sysadmin_scripts

Rev

Rev 116 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 116 Rev 140
Line 4... Line 4...
4 
use warnings;
 4 
use warnings;
5 
use Data::Dumper;
 5 
use Data::Dumper;
6 
 
 6 
 
7 
 
 7 
 
8 
my $target = shift;
 8 
my $target = shift;
- 
 
 9 
die "Syntax: $0 target virtual [virtual...]\n" unless $target;
- 
 
 10 
 
9 
my @toProcess = @ARGV;
 11 
my @toProcess = @ARGV;
10 
 
 12 
 
11 
my $hypervisor = 'virsh'; $hypervisor = 'xl' unless `which $hypervisor`;
 13 
my $hypervisor = 'virsh'; $hypervisor = 'xl' unless `which $hypervisor`;
12 
 
 14 
 
13 
die "Could not determine hypervisor\n" unless `which $hypervisor`;
 15 
die "Could not determine hypervisor\n" unless `which $hypervisor`;