#!/usr/bin/perl

use strict;
use warnings;

use VMware::VIRuntime;

my %opts = (
	vmfile => {
		type => "-s",
		variable => "VMFILE",
		help => "Path to file containing list of virtual machines, one per line, for ordered shutdown",
		required => 1,
	},
	
);


Opts::add_options(%opts);
Opts::parse;
Opts::validate();

my ($vm_view, $vm_name, @vm_list, $vm_file);

$vm_file = Opts::get_option('vmfile');
open (VMFILE, $vm_file) or die "Failed to open file, '$vm_file'";
@vm_list = <VMFILE>;
close(VMFILE);

Util::connect();

foreach $vm_name ( @vm_list ) {
	chomp ($vm_name);
	
	$vm_view = Vim::find_entity_view(
		view_type => "VirtualMachine",
		filter => { 'name' => $vm_name },
		properties => \[ 'name' ], # remove backslash before '[', forum mangles this line without it.
	);
	
	unless( defined $vm_view ) { 
		warn "Unable to find virtual machine, '$vm_name'"; 
		next;
	}
	
	eval {
		$vm_view->PowerOffVM_Task();
	};
	
	if ($@) {
		print "Virtual Machine PowerOffVM_Task Error for $vm_name:\n$@ . "\n";
	}
	
}