#!/usr/bin/perl -w
use strict;
use VRTSAgent;
use Data::Dumper;

my (@lines, $i, @tmp);
my (@agents, @keys);

my ($infile, $outfile);
$infile = "matrix.csv";
$outfile = "out.csv";
open (INFILE, $infile);
while (<INFILE>) {
	chomp;
	push @lines, $_;
}
close INFILE;

my $j = -1 ;
my $lastAgent = "something thats not an agent";
my (@osKey, $var, $var2, $var3, @tmp2, $agent);
for ($i=2; $i < @lines; $i++) {
	@tmp = split /,/,$lines[$i];
	if($lastAgent ne $tmp[3]){
		$agents[++$j]= new VRTSAgent;
		$agents[$j]->new();
		$lastAgent = $tmp[3];
		$agents[$j]->agent($tmp[3]);
		print "New Agent == $tmp[3]\n";
	}
	$agents[$j]->os($tmp[1]." ".$tmp[2],$tmp[4]." ".$tmp[5],$tmp[6]);
	@tmp = undef;
}


foreach $var (@agents) { 
	$var->make_Versions;
}
my @ver;
foreach $var (@agents) {
	$agent = $var->agent;
	@ver= $var->get_versions;
	foreach $var2 (@ver){ 
		#print "$agent $var2 \n";
	}
}