X-Git-Url: https://git.sesse.net/?a=blobdiff_plain;f=foosball.pm;h=b5750b26bda09db32f750af5d8a3ea8458906eba;hb=e05962752502c0c72eb311af9622bbc5c9261738;hp=b40b9fda17b82ac92e7c97586ac65bb7ebc99d5b;hpb=63503a1ac42bc03c97642b1ccbc07b2cfdad7a98;p=foosball diff --git a/foosball.pm b/foosball.pm index b40b9fd..b5750b2 100644 --- a/foosball.pm +++ b/foosball.pm @@ -5,6 +5,9 @@ use POSIX; package foosball; +our $initial_rating = 1500.0; +our $initial_rd = 350.0; + sub db_connect { my $dbh = DBI->connect("dbi:Pg:dbname=foosball;host=127.0.0.1", "foosball", "cleanrun", {AutoCommit => 0}); $dbh->{RaiseError} = 1; @@ -25,8 +28,8 @@ sub find_single_rating { $rd = apply_aging($rd, $age / 86400.0); if (!defined($rating)) { - $rating = 1500; - $rd = 350; + $rating = $initial_rating; + $rd = $initial_rd; } return ($rating, $rd); @@ -40,8 +43,8 @@ sub find_double_rating { $rd = apply_aging($rd, $age / 86400.0); if (!defined($rating)) { - $rating = 1500; - $rd = 350; + $rating = $initial_rating; + $rd = $initial_rd; } return ($rating, $rd); @@ -54,10 +57,10 @@ sub create_user_if_not_exists { return if ($count > 0); $dbh->do('INSERT INTO users (username) VALUES (?)', undef, $username); - $dbh->do('INSERT INTO single_rating (username,ratetime,rating,rd) VALUES (?,CURRENT_TIMESTAMP,1500.0,350.0)', - undef, $username); - $dbh->do('INSERT INTO double_rating (username,ratetime,rating,rd) VALUES (?,CURRENT_TIMESTAMP,1500.0,350.0)', - undef, $username); + $dbh->do('INSERT INTO single_rating (username,ratetime,rating,rd) VALUES (?,CURRENT_TIMESTAMP,?,?)', + undef, $username, $initial_rating, $initial_rd); + $dbh->do('INSERT INTO double_rating (username,ratetime,rating,rd) VALUES (?,CURRENT_TIMESTAMP,?,?)', + undef, $username, $initial_rating, $initial_rd); return $dbh; } @@ -67,7 +70,7 @@ our $c = 8; sub apply_aging { my ($rd, $age) = @_; $rd = sqrt($rd*$rd + $c * $c * ($age / 86400.0)); - $rd = 350.0 if ($rd > 350.0); + $rd = $initial_rd if ($rd > $initial_rd); return $rd; }