open SLA, ">SLA.dat";
foreach $site (@sites) {
        undef %total; undef %total_time;
        open INPUT, "<$input_data_directory/$site\.dat" or next;
        while (<INPUT>) {
                chomp;
                $dataline = $_;
                undef @data;
                @data = split(/\t/);
                ($date,$time) = split(/\./,$data[0]);
                ($hour,$min)  = split(/:/,$time);
                ($mon, $mday, $year) = split(/\//,$date);
                $timeinseconds = timelocal( 0, 0, 12, $mday, $mon-1, $year);
                $dayOfWeek = (Sun,Mon,Tue,Wed,Thu,Fri,Sat)[(localtime($timeinseconds))[6]];
                next if (($dayOfWeek eq 'Sun')or($dayOfWeek eq 'Sat'));
                next if (($hour < 8) or ($hour > 19));
                $total{$date}++; ### Total number of tests done per day
                shift @data;
                $total = 0;
                foreach (@data) {
                        if (($_ eq "0")or($_ eq "0.00")) {
                                $failed{$date}++;
                        }
                        $total+=$_;
                }
                $total_time{$date}+=$total;
        }
        @keys = sort keys %total;
        foreach (@keys) {
                $reliability = (int((($total{$_}-$failed{$_})/$total{$_})*100)*100)/100;
                $average = (int(($total_time{$_}/$total{$_})*100))/100;
                if (($reliability<$reliability{$site})or($average>$speed{$site})) {
                        print SLA "$_\t$site\tFAILED\n";
                }
                else {
                        print SLA "$_\t$site\tPASSED\n";
                }
        }
}
close SLA;