Make rudimentary HTML output for scenario analysis.

diff --git a/www/index.pl b/www/index.pl
index b96058d341677c82ce8218f89de827f1c4c990a1..8274574a23df52464c1c26a6a783d6d74d1be778 100755 (executable)
--- a/www/index.pl
+++ b/www/index.pl
@@ -320,9 +320,6 @@ EOF
 }
 
 sub print_footer {
-       my $dbh = shift;
-       wloh_common::output_last_sync($dbh);
-
        print <<"EOF";
   </body>
 </html>
@@ -334,6 +331,8 @@ my $match_stddev = $aux_parms->{-2} * sqrt(2.0);
 
 my $division = $cgi->param('divisjon') // -1;
 my $subdivision = $cgi->param('avdeling') // -1;
+my $match_player = $cgi->param('spiller');
+my $match_position = $cgi->param('posisjon');
 
 my $season = get_max_season($dbh);
 my @divisions = get_divisions($dbh, $season);
@@ -347,8 +346,36 @@ my $cov = get_covariance_matrix($dbh, keys %players);
 
 print_header($cgi, 'WLoH-plasseringsannsynlighetsberegning');
 
-POSIX::setlocale(&POSIX::LC_ALL, 'nb_NO.UTF-8');
-printf <<"EOF", $match_stddev;
+if (defined($match_player) && defined($match_position)) {
+       my $tmpnam = write_parms_to_file($aux_parms, $match_stddev, \%ratings, $cov);
+
+       --$match_player;
+       --$match_position;
+
+       my @scenario = ();
+       open MCCALC, "$config::base_dir/mcwordfeud $trials $match_player $match_position < $tmpnam |"
+               or die "mccalc: $!";
+       while (<MCCALC>) {
+               /(\d+) (\d+) (-?\d+)/ or next;
+               chomp;
+               push @scenario, [ $1, $2, $3 ];
+       }
+       close MCCALC;
+       #unlink $tmpnam;
+
+       if (scalar @scenario == 0) {
+               # FIXME: distinguish between "all played" and "none found"
+               print "    <p>Fant ingen m&aring;te dette kunne skje p&aring.</p>\n";
+       } else {
+               print "    <ul>\n";
+               for my $m (@scenario) {
+                       printf "    <li>%s &ndash; %s: %+d</li>\n", $players{$m->[0]}, $players{$m->[1]}, $m->[2];
+               }
+               print "    </ul>\n";
+       }
+} else {
+       POSIX::setlocale(&POSIX::LC_ALL, 'nb_NO.UTF-8');
+       printf <<"EOF", $match_stddev;
     <h1>WLoH-plasseringsannsynlighetsberegning</h1>
 
     <p><em>Dette er et hobbyprosjekt fra tredjepart, og ikke en offisiell del av
@@ -362,20 +389,23 @@ printf <<"EOF", $match_stddev;
     <p>Spillerne er sortert etter nick.</p>
 EOF
 
-print_division_selector($dbh, \@divisions, \@subdivisions, $division, $subdivision);
+       print_division_selector($dbh, \@divisions, \@subdivisions, $division, $subdivision);
 
-my $max_division = $divisions[$#divisions];
-my $lowest_division = ($division == $max_division);
-make_table($aux_parms, $match_stddev, $lowest_division, {}, {});
+       my $max_division = $divisions[$#divisions];
+       my $lowest_division = ($division == $max_division);
+       make_table($aux_parms, $match_stddev, $lowest_division, {}, {});
 
-print <<"EOF";
+       print <<"EOF";
     <p>Under er en variant som tar relativ spillestyrke med i beregningen;
       se <a href="/rating">ratingsiden</a>.</p>
 EOF
 
-make_table($aux_parms, $match_stddev, $lowest_division, \%ratings, $cov);
+       make_table($aux_parms, $match_stddev, $lowest_division, \%ratings, $cov);
+
+       my $avg_rating = find_avg_rating(\%ratings);
+       printf "    <p>Gjennomsnittlig rating i denne avdelingen er <strong>%.1f</strong>.</p>\n", $avg_rating;
 
-my $avg_rating = find_avg_rating(\%ratings);
-printf "    <p>Gjennomsnittlig rating i denne avdelingen er <strong>%.1f</strong>.</p>\n", $avg_rating;
+       wloh_common::output_last_sync($dbh);
+}
 
-print_footer($dbh);
+print_footer();