6 use CGI::Carp qw(fatalsToBrowser);
9 my $dbh = foosball::db_connect();
10 $dbh->{AutoCommit} = 0;
12 $dbh->do('delete from double_rating');
15 my $q = $dbh->prepare('select * from double_results order by gametime');
18 while (my $ref = $q->fetchrow_hashref) {
19 for my $user (($ref->{'team1_username1'}, $ref->{'team1_username2'},
20 $ref->{'team2_username1'}, $ref->{'team2_username2'})) {
21 if (!exists($ratings{$user})) {
22 $ratings{$user} = [ 1500, 350 ];
26 my $rating1_1 = $ratings{$ref->{'team1_username1'}}->[0];
27 my $rd1_1 = $ratings{$ref->{'team1_username1'}}->[1];
28 my $rating1_2 = $ratings{$ref->{'team1_username2'}}->[0];
29 my $rd1_2 = $ratings{$ref->{'team1_username2'}}->[1];
30 my $rating2_1 = $ratings{$ref->{'team2_username1'}}->[0];
31 my $rd2_1 = $ratings{$ref->{'team2_username1'}}->[1];
32 my $rating2_2 = $ratings{$ref->{'team2_username2'}}->[0];
33 my $rd2_2 = $ratings{$ref->{'team2_username2'}}->[1];
34 my $score1 = $ref->{'score1'};
35 my $score2 = $ref->{'score2'};
37 # make virtual "team players"
38 my $rating_team1 = 0.5 * ($rating1_1 + $rating1_2);
39 my $rd_team1 = sqrt($rd1_1 * $rd1_1 + $rd1_2 * $rd1_2) / sqrt(2.0);
40 my $rating_team2 = 0.5 * ($rating1_2 + $rating2_2);
41 my $rd_team2 = sqrt($rd2_1 * $rd2_1 + $rd2_2 * $rd2_2) / sqrt(2.0);
43 my ($new_t1r, undef) = foosball::calc_rating($rating_team1, $rd_team1, $rating_team2, $rd_team2, $score1, $score2);
44 my ($new_t2r, undef) = foosball::calc_rating($rating_team2, $rd_team2, $rating_team1, $rd_team1, $score2, $score1);
45 my $newr1_1 = $rating1_1 + ($new_t1r - $rating_team1);
46 my $newr1_2 = $rating1_2 + ($new_t1r - $rating_team1);
47 my $newr2_1 = $rating2_1 + ($new_t2r - $rating_team2);
48 my $newr2_2 = $rating2_2 + ($new_t2r - $rating_team2);
50 my (undef, $newrd1_1) = foosball::calc_rating($rating1_1, $rd1_1, $rating_team2, $rd_team2, $score1, $score2);
51 my (undef, $newrd1_2) = foosball::calc_rating($rating1_2, $rd1_2, $rating_team2, $rd_team2, $score1, $score2);
52 my (undef, $newrd2_1) = foosball::calc_rating($rating2_1, $rd2_1, $rating_team1, $rd_team1, $score2, $score1);
53 my (undef, $newrd2_2) = foosball::calc_rating($rating2_2, $rd2_2, $rating_team1, $rd_team1, $score2, $score1);
55 printf("%-10s/%-10s - %-10s/%-10s: %u - %u, new ratings %u/%u %u/%u %u/%u %u/%u\n",
56 $ref->{'team1_username1'}, $ref->{'team1_username2'},
57 $ref->{'team2_username1'}, $ref->{'team2_username2'},
58 $ref->{'score1'}, $ref->{'score2'},
59 $newr1_1, $newrd1_1, $newr1_2, $newrd1_2,
60 $newr2_1, $newrd2_1, $newr2_2, $newrd2_2);
61 $dbh->do('insert into double_rating values (?,?,?,?)', undef,
62 $ref->{'team1_username1'}, $ref->{'gametime'}, $newr1_1, $newrd1_1);
63 $dbh->do('insert into double_rating values (?,?,?,?)', undef,
64 $ref->{'team1_username2'}, $ref->{'gametime'}, $newr1_2, $newrd1_2);
65 $dbh->do('insert into double_rating values (?,?,?,?)', undef,
66 $ref->{'team2_username1'}, $ref->{'gametime'}, $newr2_1, $newrd2_1);
67 $dbh->do('insert into double_rating values (?,?,?,?)', undef,
68 $ref->{'team2_username2'}, $ref->{'gametime'}, $newr2_2, $newrd2_2);
70 $ratings{$ref->{'team1_username1'}} = [ $newr1_1, $newrd1_1 ];
71 $ratings{$ref->{'team1_username2'}} = [ $newr1_2, $newrd1_2 ];
72 $ratings{$ref->{'team2_username1'}} = [ $newr2_1, $newrd2_1 ];
73 $ratings{$ref->{'team2_username2'}} = [ $newr2_2, $newrd2_2 ];