Support k != 10, ie. the new table.

[foosball] / www / assess-single.pl

diff --git a/www/assess-single.pl b/www/assess-single.pl
index 66480e6dcc174ebd9a92c3a5e36dbe5569faf6e3..e9ffee198e27a1157d5e9713db79e2e32614a349 100755 (executable)
--- a/www/assess-single.pl
+++ b/www/assess-single.pl
@@ -24,13 +24,29 @@ my $dbh = foosball::db_connect();
 my ($rating1, $rd1) = foosball::find_single_rating($dbh, $username1);
 my ($rating2, $rd2) = foosball::find_single_rating($dbh, $username2);
 
-open ASSESS, "/srv/foosball.sesse.net/foosrank $rating1 $rd1 $rating2 $rd2 |"
+# 10-x table
+open ASSESS, "/srv/foosball.sesse.net/foosrank $rating1 $rd1 $rating2 $rd2 10 |"
        or die "foosrank: $!";
 
-my @results = ();
+my @results10 = ();
 while (<ASSESS>) {
        my ($score, $prob, $rdiff1, $rdiff2) = split /,/, $_;
-       push @results, {
+       push @results10, {
+               score => $score,
+               prob => (sprintf "%.3f", $prob),
+               rdiff1 => (sprintf "%+d", int($rdiff1+0.5)),
+               rdiff2 => (sprintf "%+d", int($rdiff2+0.5)),
+       };
+}
+
+# 7-x table
+open ASSESS, "/srv/foosball.sesse.net/foosrank $rating1 $rd1 $rating2 $rd2 7 |"
+       or die "foosrank: $!";
+
+my @results7 = ();
+while (<ASSESS>) {
+       my ($score, $prob, $rdiff1, $rdiff2) = split /,/, $_;
+       push @results7, {
                score => $score,
                prob => (sprintf "%.3f", $prob),
                rdiff1 => (sprintf "%+d", int($rdiff1+0.5)),
@@ -45,6 +61,7 @@ my $doc = XML::Template::process_file('assess.xml', {
        'username2' => $username2,
        'rating1' => int($rating1+0.5),
        'rating2' => int($rating2+0.5),
-       '#results' => \@results,
+       '#results10' => \@results10,
+       '#results7' => \@results7,
 });
 print $doc->toString;