#!/usr/bin/perl -s -Ilib

use warnings;
use strict;
no strict 'refs';

our $stdin;

use Data::Dumper;
use CROSS::DMOSS;
use CROSS::DMOSS::Reporters;

my $dmoss;
if ($stdin) {
  $dmoss = CROSS::DMOSS::from_stdout();
}
else {
  my $file = shift;
  $file = 'dmoss.data' unless $file;
  $dmoss = CROSS::DMOSS::load($file);
}

my $output = __start_html_report();
my $total = 0;
my $count = 0;

my $reporters = $dmoss->reporters;
my %html;
foreach (keys %$reporters) {
	my $f = $reporters->{$_};
	my $html = &{"CROSS::DMOSS::Reporters::$f"}($dmoss);

	# XXX
	if ($html =~ m/<span class='grade'>(\w+)<\/span/) {
		my $g = $1;
		if ($g =~ m/a/i) {$total += 5}
		if ($g =~ m/b/i) {$total += 4}
		if ($g =~ m/c/i) {$total += 3}
		if ($g =~ m/d/i) {$total += 2}
		if ($g =~ m/f/i) {$total += 0}
		$count++;
	}
	# /XXX

	if ($html and ($html=~m/grade_(\w)\W/) ) {
		my $l = lc $1;
		$html{$l} .= $html;
	}
	#$output .= $html if $html;
}
foreach (sort keys %html) {
	$output .= $html{$_};
}

my %grades = (5=>'A',4=>'B',3=>'C',2=>'D',1=>'D',0=>'F');
my $final = int($total/$count);
$final = $grades{$final};

$output .= "<div class='grade_box grade_final'>";
$output .= "<span class='grade' style='color: white;'>$final</span><span class='title'>Final</span>\n";
$output .= "</div>\n";

print $output;

sub __start_html_report {
	my $html =<<'HTML';
<script type="text/javascript">
	function show(id) {
   	var div = document.getElementById(id);

   	if (div.style.display == '')
      	div.style.display = 'none';
   	else
      	div.style.display = '';
	}
</script>
<style type="text/css">
.grade_box {
	font-family: "Arial";
	font-size: 16px;
	padding: 10px 20px;
	margin: 10px;
	border-radius: 10px;
	width: 400px;
	border: 2px solid black;
}
.grade_a {
	background-color: #14E322;
}
.grade_b {
   background-color: #14E322;
}
.grade_c {
   background-color: #F5F542;
}
.grade_d {
   background-color: #F5F542;
}
.grade_e {
   background-color: red;
}
.grade_f {
   background-color: red;
}
.grade_final {
   background-color: black;
	color: white;
}
.grade {
	color: black;
	padding-right: 20px;
	font-weight: bold;
}
.title a {
	color: black;
}
.grade_box_more {
	border-top: 1px solid black;
	padding-top: 10px;
	margin-top: 10px;
	font-size: 14px;
}
</style>
HTML

	return $html;
}