#! /usr/bin/perl

package diskman::runner;

use strict;
use warnings;

use XML::Simple;

# Accept arguments from the config.xml file
my $args = XMLin('config/config.xml') or die "Can not read config.xml\n";

# Run the HP utility on every server in the config file
foreach my $server (@{$args->{server}})
{
	system(qq[wine "/home/nathan/.wine/drive_c/Program\ Files/HP\ Remote\ System\ Management/"hprsmcli.exe -s $server -u $args->{user} -p $args->{pass} -f $args->{fmt} -o $args->{winepath}.$server -t $args->{options}]);
}

# Script is done
print "Runner Done\n";