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 *,extract(epoch from gametime) as eptime 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} = [ $foosball::initial_rating, $foosball::initial_rd, 0 ];
26 my $rating1_1 = $ratings{$ref->{'team1_username1'}}->[0];
27 my $rd1_1 = $ratings{$ref->{'team1_username1'}}->[1];
28 my $age1_1 = $ref->{'eptime'} - $ratings{$ref->{'team1_username1'}}->[2];
30 my $rating1_2 = $ratings{$ref->{'team1_username2'}}->[0];
31 my $rd1_2 = $ratings{$ref->{'team1_username2'}}->[1];
32 my $age1_2 = $ref->{'eptime'} - $ratings{$ref->{'team1_username2'}}->[2];
34 my $rating2_1 = $ratings{$ref->{'team2_username1'}}->[0];
35 my $rd2_1 = $ratings{$ref->{'team2_username1'}}->[1];
36 my $age2_1 = $ref->{'eptime'} - $ratings{$ref->{'team2_username1'}}->[2];
38 my $rating2_2 = $ratings{$ref->{'team2_username2'}}->[0];
39 my $rd2_2 = $ratings{$ref->{'team2_username2'}}->[1];
40 my $age2_2 = $ref->{'eptime'} - $ratings{$ref->{'team2_username2'}}->[2];
42 $rd1_1 = foosball::apply_aging($rd1_1, $age1_1 / 86400.0);
43 $rd1_2 = foosball::apply_aging($rd1_2, $age1_2 / 86400.0);
44 $rd2_1 = foosball::apply_aging($rd2_1, $age2_1 / 86400.0);
45 $rd2_2 = foosball::apply_aging($rd2_2, $age2_2 / 86400.0);
47 my $score1 = $ref->{'score1'};
48 my $score2 = $ref->{'score2'};
50 my ($newr1_1, $newrd1_1) = foosball::calc_rating_double($rating1_1, $rd1_1, $rating1_2, $rd1_2, $rating2_1, $rd2_1, $rating2_2, $rd2_2, $score1, $score2);
51 my ($newr1_2, $newrd1_2) = foosball::calc_rating_double($rating1_2, $rd1_2, $rating1_1, $rd1_1, $rating2_1, $rd2_1, $rating2_2, $rd2_2, $score1, $score2);
52 my ($newr2_1, $newrd2_1) = foosball::calc_rating_double($rating2_1, $rd2_1, $rating2_2, $rd2_2, $rating1_1, $rd1_1, $rating1_2, $rd1_2, $score2, $score1);
53 my ($newr2_2, $newrd2_2) = foosball::calc_rating_double($rating2_2, $rd2_2, $rating2_1, $rd2_1, $rating1_1, $rd1_1, $rating1_2, $rd1_2, $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, $newr1_1-$rating1_1);
63 $dbh->do('insert into double_rating values (?,?,?,?,?)', undef,
64 $ref->{'team1_username2'}, $ref->{'gametime'}, $newr1_2, $newrd1_2, $newr1_2-$rating1_2);
65 $dbh->do('insert into double_rating values (?,?,?,?,?)', undef,
66 $ref->{'team2_username1'}, $ref->{'gametime'}, $newr2_1, $newrd2_1, $newr2_1-$rating2_1);
67 $dbh->do('insert into double_rating values (?,?,?,?,?)', undef,
68 $ref->{'team2_username2'}, $ref->{'gametime'}, $newr2_2, $newrd2_2, $newr2_2-$rating2_2);
70 $ratings{$ref->{'team1_username1'}} = [ $newr1_1, $newrd1_1, $ref->{'eptime'} ];
71 $ratings{$ref->{'team1_username2'}} = [ $newr1_2, $newrd1_2, $ref->{'eptime'} ];
72 $ratings{$ref->{'team2_username1'}} = [ $newr2_1, $newrd2_1, $ref->{'eptime'} ];
73 $ratings{$ref->{'team2_username2'}} = [ $newr2_2, $newrd2_2, $ref->{'eptime'} ];