#!usr/bin/perl
use strict;
my($tsql, $origresult, $result, $args);

$args = "-H production -U UsernameRemoved -P PasswordRemoved -p 1433 -I InstanceRemoved";

$tsql = `tsql $args`;
	
$origresult = `/usr/bin/printf "%b" "select SUM(ocount) TotalCounts from (\n
		select dbd.DateStart, count(oo.id_orders) As oCount, DATEPART(dw, dbd.datestart) as DayNumber\n
		from [dbo].[DaysBetweenDates](dbo.BeginningOfDay(CURRENT_TIMESTAMP), dbo.endofday(CURRENT_TIMESTAMP)) dbd\n
		left join orders oo on dbd.DateStart = oo.orderdate\n
		and oo.OrderPlacedBypk = '011CA1AF-0C20-4B87-93CC-11886C530E2D'\n
		group by dbd.DateStart\n
		) As Total\n
		where DayNumber not in (6,7)\n
		GO"`;

$result = substr($origresult, 12, 2);
	
if ("$result" >= 20 ){
		print "OK - Order count is at or above average.\n";
		exit 0; #Nagios OK exit code
	}

elsif ("$result" <= 7)
	{
		print "CRITICAL - Order count is below average.\n Current Average = $result";
		exit 2; #Nagios CRITICAL exit code
	}
else
	{
		print "UNKNOWN - Unable to determine order average.\n Variables are:";
		exit 3; #Nagios UNKNOWN exit code
	}