#!/usr/local/bin/bash
use CGI qw(:standard);
use Win32::ODBC;

$qry = new Win32::ODBC('support_agreement_DSN');
@mac = split (/,/,param('MAC'));
foreach $mac_addr (@mac) {
	$sql = "SELECT agreement.Field2 FROM agreement WHERE (((agreement.Field1)='$mac_addr'))";
	$qry->Sql($sql);
	$qry->FetchRow();
	$support_status{$mac_addr}= $qry->Data('agreement.Field2');
}
$qry->Close();