#! c:/perl/bin/perl.exe -slw
#
$|++;
require 5.008;

use strict;
use warnings 'all';

use Win32;
use Win32::ODBC;

my $dsn = "Hydra_FE";
my $qry = "qrywinbuild";

my $db = new Win32::ODBC($dsn) or die "\nError=>\t$^E : $!\n";
if (! $db)
{
   print "\nError:  $^E, ". Win32::ODBC::Error()."\n";
   exit 1; 
}
else
{
	if ($db->sql("SELECT source_mail,hostname,machine_name FROM $qry WHERE Business_Unit_name = '$ARGV[0]'"))
	{
		print "Error " . $db->Error() . "\n";
	}
	else
	{
		print "\n\nObtaining $qry data from $dsn database\n\n";
		while ($db->FetchRow())
		{
			my @hydra_data = $db->Data;
			for my $data (@hydra_data)
			{
				if ($data)
				{
					my @db_info = split (/ /, $data);
					printf "%s ",$db_info[0];
				}
			}
			print "\n-----------------------------------------\n";
		}
	}
}
$db->Close();