Fix a leftover 1700 value in the README.

[wloh] / www / index.pl

diff --git a/www/index.pl b/www/index.pl
index 580ad658d040da70b5da15c635fb93da7a8baf79..529163266df023dc7e173e5a6dfec0c4f7a454e3 100755 (executable)
--- a/www/index.pl
+++ b/www/index.pl
@@ -12,6 +12,7 @@ use Encode;
 use utf8;
 use locale;
 require '../config.pm';
+require '../common.pm';
 
 my $cgi = CGI->new;
 
@@ -60,7 +61,7 @@ EOF
        printf MCCALC "%d\n", scalar keys %players;
 
        for my $id (keys %players) {
-               my $rating = $used_ratings->{$id} // 1500.0;
+               my $rating = $used_ratings->{$id} // 500.0;
                printf MCCALC "%s %f\n", $id, $rating;
        }
 
@@ -91,7 +92,7 @@ EOF
                chomp;
                my @x = split /\s+/;
                my $id = $x[0];
-               my $player = sprintf "%s (%.0f ± %.0f)", $players{$id}, ($ratings{$id} // 1500.0), ($ratings_stddev{$id} // $parms{-3});
+               my $player = sprintf "%s (%.0f ± %.0f)", $players{$id}, ($ratings{$id} // 500.0), ($ratings_stddev{$id} // $parms{-3});
                $prob{$player} = [ @x[1..$#x] ];
        }
        close MCCALC;
@@ -294,6 +295,8 @@ EOF
 
 make_table($lowest_division, \%ratings, $cov);
 
+wloh_common::output_last_sync($dbh);
+
 print <<"EOF";
   </body>
 </html>