From 29d9c3f9dd179269ed7f0a11738bb17548e26fdf Mon Sep 17 00:00:00 2001
From: Martin Mares <mj@ucw.cz>
Date: Fri, 11 Apr 2003 09:51:12 +0000
Subject: [PATCH] Improved score table.

---
 bin/mo-score | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

diff --git a/bin/mo-score b/bin/mo-score
index 1c2c012..e04c47b 100755
--- a/bin/mo-score
+++ b/bin/mo-score
@@ -42,6 +42,8 @@ if ($extras && open (EX, "exceptions")) {
 
 print STDERR "Scanning task results... ";
 $need_tasks = join("|", @ARGV);
+%messages = ();
+%error_codes = ();
 foreach $u (keys %users) {
 	opendir (D, "testing/$u") or next;
 	foreach $t (readdir(D)) {
@@ -71,6 +73,14 @@ foreach $u (keys %users) {
 					($cmt = "$1$2") =~ tr/a-z/A-Z/;
 				}
 				elsif ($trem =~ /^Wrong answer/) { $cmt = "WA"; }
+				if (!defined $messages{$trem}) {
+					$messages{$trem} = $cmt;
+					if (!defined $error_codes{$cmt}) {
+						$error_codes{$cmt} = $trem;
+					} else {
+						$error_codes{$cmt} .= ", $trem";
+					}
+				}
 			}
 			$comment{$u}{$t}{$ttest} = $cmt;
 			$total{$u}{$t} += $tpts;
@@ -182,9 +192,14 @@ if ($debug) {
 		$hdr = 0;
 	}
 	print "</TABLE>\n";
+	print "<H2>Error codes</H2><UL>\n";
+	foreach $r (sort keys %error_codes) { print "<LI>$r: $error_codes{$r}\n"; }
+	print "</UL>\n";
 	print "</BODY></HTML>\n";
 } elsif ($tex) {
 	print "\\error{TeX output not supported yet!}\n";
 } else {
 	foreach $r (@table) { print join("\t",@$r), "\n"; }
+	print "\n";
+	foreach $r (sort keys %error_codes) { print "$r: $error_codes{$r}\n"; }
 }
-- 
2.39.2