X-Git-Url: http://mj.ucw.cz/gitweb/?a=blobdiff_plain;ds=sidebyside;f=bin%2Fmo-score;h=4fce9e44be5f9aa32e21c6a344c5d05b88b692bd;hb=04cca68f101b8071504da6b304b9ffd83bc2d238;hp=1c2c012cdc44781909a1965b475dc709db09176b;hpb=b774361c00873c619adc74e75807cd618f7661a9;p=eval.git diff --git a/bin/mo-score b/bin/mo-score index 1c2c012..4fce9e4 100755 --- a/bin/mo-score +++ b/bin/mo-score @@ -15,6 +15,8 @@ while (($arg = $ARGV[0]) =~ /^--([a-z]+)$/) { } @ARGV || die $usage; +@tasks = @ARGV; + print STDERR "Scanning contestants... "; open (CT, "bin/mo-get-users --full |") || die "Cannot get list of contestants"; while () { @@ -42,6 +44,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)) { @@ -58,6 +62,7 @@ foreach $u (keys %users) { $ttest = $1; $tpts = $2; $trem = $3; + $ttest =~ s/[^0-9]//g; $known_tests{$t}{$ttest} = 1; $results{$u}{$t}{$ttest} = $tpts; $remarks{$u}{$t}{$ttest} = $trem; @@ -71,6 +76,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; @@ -172,19 +185,89 @@ if ($debug) { print '', "\n"; print "Rank list\n"; print "

Rank list

\n"; - print "\n"; - $hdr = 1; - foreach $r (@table) { - print "", join('',map { - if ($hdr) { $_ = ""; + + foreach $r (@table[1..($#table - 1)]) { + &printHtmlRow(@{$r}[@perm]); } + + print ""; + &printHtmlRow(@{$table[$#table]}[@perm]); + print "

$_"; } - else { $_ = "	14 ? " width=150" : "") . ">$_"; } - } @$r), "\n"; - $hdr = 0; + + my @perm; + &printHtmlHeader(\@perm); + print "

\n"; + if ($detail) { + print "

Error codes

$r: $error_codes{$r}\n"; } + print "

\n"; + } print "\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"; } +} + + +sub printHtmlRow { + print "", join('',map { + if ($hdr) { $_ = "$_"; } + else { $_ = " 14 ? " width=150" : "") . ">$_"; } + } @_), "\n"; +} + + +sub printHtmlHeader { + + my ($perm) = @_; + + my $colspec = ""; + my $hdr1; + my $hdr2; + + @$perm = (0, 1, 2); + my $p = 3; + + if ($detail) { + $hdr1 = "RankUserName"; + for my $task (@tasks) { + + my $nSub = scalar(keys %{$known_tests{$task}}); + + $p++; + map { push @$perm, $p++ } (1..$nSub); + push @$perm, $p - $nSub - 1; + + $colspec .= "\n"; + $colspec .= "\n"; + $hdr1 .= "$task"; + $hdr2 .= join("", map { "$_" } sort {$a <=> $b} keys %{$known_tests{$task}}); + $hdr2 .= "Total"; + } + + $hdr1 .= "Total"; + + } else { ## no detail + + $hdr1 = "RankUserName"; + + for my $task (@tasks) { + push @$perm, $p++; + $hdr1 .= "$task"; + } + $hdr1 .= "Total"; + $colspec .= ""; + } + + push @$perm, $p++; + + print "\n"; + print "$colspec\n"; + print "$hdr1\n"; + print "$hdr2\n" if $detail; + }