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} = [ 1500, 350, 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         # make virtual "team players"
  51         my ($rating_team1, $rd_team1) = foosball::combine_ratings($rating1_1, $rd1_1, $rating1_2, $rd1_2);
  52         my ($rating_team2, $rd_team2) = foosball::combine_ratings($rating2_1, $rd2_1, $rating2_2, $rd2_2);
  53
  54         my ($new_t1r, undef) =  foosball::calc_rating($rating_team1, $rd_team1, $rating_team2, $rd_team2, $score1, $score2);
  55         my ($new_t2r, undef) =  foosball::calc_rating($rating_team2, $rd_team2, $rating_team1, $rd_team1, $score2, $score1);
  56         my $newr1_1 = $rating1_1 + ($new_t1r - $rating_team1);
  57         my $newr1_2 = $rating1_2 + ($new_t1r - $rating_team1);
  58         my $newr2_1 = $rating2_1 + ($new_t2r - $rating_team2);
  59         my $newr2_2 = $rating2_2 + ($new_t2r - $rating_team2);
  60
  61         my (undef, $newrd1_1) = foosball::calc_rating($rating1_1, $rd1_1, $rating_team2, $rd_team2, $score1, $score2);
  62         my (undef, $newrd1_2) = foosball::calc_rating($rating1_2, $rd1_2, $rating_team2, $rd_team2, $score1, $score2);
  63         my (undef, $newrd2_1) = foosball::calc_rating($rating2_1, $rd2_1, $rating_team1, $rd_team1, $score2, $score1);
  64         my (undef, $newrd2_2) = foosball::calc_rating($rating2_2, $rd2_2, $rating_team1, $rd_team1, $score2, $score1);
  65
  66         printf("%-10s/%-10s - %-10s/%-10s: %u - %u, new ratings %u/%u %u/%u   %u/%u %u/%u\n",
  67                 $ref->{'team1_username1'}, $ref->{'team1_username2'},
  68                 $ref->{'team2_username1'}, $ref->{'team2_username2'},
  69                 $ref->{'score1'}, $ref->{'score2'},
  70                 $newr1_1, $newrd1_1, $newr1_2, $newrd1_2,
  71                 $newr2_1, $newrd2_1, $newr2_2, $newrd2_2);
  72         $dbh->do('insert into double_rating values (?,?,?,?,?)', undef,
  73                 $ref->{'team1_username1'}, $ref->{'gametime'}, $newr1_1, $newrd1_1, $newr1_1-$rating1_1);
  74         $dbh->do('insert into double_rating values (?,?,?,?,?)', undef,
  75                 $ref->{'team1_username2'}, $ref->{'gametime'}, $newr1_2, $newrd1_2, $newr1_2-$rating1_2);
  76         $dbh->do('insert into double_rating values (?,?,?,?,?)', undef,
  77                 $ref->{'team2_username1'}, $ref->{'gametime'}, $newr2_1, $newrd2_1, $newr2_1-$rating2_1);
  78         $dbh->do('insert into double_rating values (?,?,?,?,?)', undef,
  79                 $ref->{'team2_username2'}, $ref->{'gametime'}, $newr2_2, $newrd2_2, $newr2_2-$rating2_2);
  80
  81         $ratings{$ref->{'team1_username1'}} = [ $newr1_1, $newrd1_1, $ref->{'eptime'} ];
  82         $ratings{$ref->{'team1_username2'}} = [ $newr1_2, $newrd1_2, $ref->{'eptime'} ];
  83         $ratings{$ref->{'team2_username1'}} = [ $newr2_1, $newrd2_1, $ref->{'eptime'} ];
  84         $ratings{$ref->{'team2_username2'}} = [ $newr2_2, $newrd2_2, $ref->{'eptime'} ];
  85 }
  86
  87 $dbh->commit;
  88 $dbh->disconnect;