Massive improvements on efficiency, robustness, security, reliability and more

1 files changed, 0 insertions, 45 deletions

diff --git a/lib/MasterServer/Database/Pg/dbClientList.pm b/lib/MasterServer/Database/Pg/dbClientList.pm
deleted file mode 100755
index 718bf8a..0000000
--- a/lib/MasterServer/Database/Pg/dbClientList.pm
+++ /dev/null
@@ -1,45 +0,0 @@
-
-package MasterServer::Database::Pg::dbClientList;
-
-use strict;
-use warnings;
-use Exporter 'import';
-
-our @EXPORT = qw| get_gamenames
-                  get_game_list |;
-
-
-################################################################################
-## get a list of distinct gamenames currently in the database. it does not 
-## matter whether they are recent or old, as long as the game is currently in
-## the database.
-## 
-## returns: hashref of gamenames
-################################################################################
-sub get_gamenames {
-  my $self = shift;
-
-  return $self->{dbh}->selectall_arrayref(
-     "SELECT distinct gamename 
-      FROM serverlist");
-}
-
-################################################################################
-## get the list of games of a certain $gamename, excluding the ones excempted
-## via the blacklist
-## only returns server addresses that are no more than 1 hours old
-################################################################################
-sub get_game_list {
-  my ($self, $gamename) = @_;
-  
-  return $self->{dbh}->selectall_arrayref(
-    "SELECT ip, port 
-     FROM serverlist
-     WHERE updated > (NOW() - INTERVAL '1 HOUR')
-     AND gamename = ?
-     AND NOT blacklisted", 
-     undef, lc $gamename);
-}
-
-
-1;