git.sesse.net Git - foosball/blob - recalc-double-result.pl

   1 #! /usr/bin/perl
   2 use strict;
   3 use warnings;
   4 use DBI;
   5 use CGI;
   6 use CGI::Carp qw(fatalsToBrowser);
   7 require 'foosball.pm';
   8
   9 my $dbh = foosball::db_connect();
  10 $dbh->{AutoCommit} = 0;
  11
  12 $dbh->do('delete from double_rating');
  13
  14 my %ratings = ();
  15 my $q = $dbh->prepare('select *,extract(epoch from gametime) as eptime from double_results order by gametime');
  16 $q->execute;
  17
  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 ];
  23                 }
  24         }
  25
  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];
  29
  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];
  33
  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];
  37
  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];
  41
  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);
  46
  47         my $score1 = $ref->{'score1'};
  48         my $score2 = $ref->{'score2'};
  49
  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);
  54
  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);
  69
  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'} ];
  74 }
  75
  76 $dbh->commit;
  77 $dbh->disconnect;