Subversion Repositories sysadmin_scripts

#! /usr/bin/env perl

use strict;

use warnings;

use Data::Dumper;

my $virtual = shift;

die `virsh list --inactive` unless $virtual;

my @temp = `findVirtuals.pl -s | grep $virtual`;

chomp @temp;

my %running = split( "\t", @temp );

die "$virtual already running on $running{$virtual}\n" if $running{$virtual};

print "I would start $virtual here\n";

1;