use strict;
use warnings;
use DBI;
+use POSIX;
package foosball;
return $dbh;
}
+sub round {
+ my $x = shift;
+ return -round(-$x) if ($x < 0.0);
+ return POSIX::floor($x + 0.5);
+}
+
sub find_single_rating {
my ($dbh, $username, $limit) = @_;
my ($age, $rating, $rd) = $dbh->selectrow_array('SELECT EXTRACT(EPOCH FROM (CURRENT_TIMESTAMP-ratetime)), rating, rd FROM single_rating WHERE username=? '.$limit.' ORDER BY ratetime DESC LIMIT 1',