Perl Subroutines

Service Level Agreement testing

Are we in SLA hours? Hours are Monday to Friday, 09:00 to 17:30.
This returns $slastatus, $serviceday and $servicehour. $slastatus is the most important result, the others are really just returned because they are calculated internally and may be of use.
Download
sla.pl