From c3f8d65a4fb1f5674557ee67cf7f74369df86ad1 Mon Sep 17 00:00:00 2001
From: Darkelarious <darkelarious@333networks.com>
Date: Sat, 19 Nov 2016 20:56:04 +0100
Subject: Massive improvements on efficiency, robustness, security, reliability
 and more

---
 lib/MasterServer/Database/dbCiphers.pm | 57 ++++++++++++++++++++++++++++++++++
 1 file changed, 57 insertions(+)
 create mode 100755 lib/MasterServer/Database/dbCiphers.pm

(limited to 'lib/MasterServer/Database/dbCiphers.pm')

diff --git a/lib/MasterServer/Database/dbCiphers.pm b/lib/MasterServer/Database/dbCiphers.pm
new file mode 100755
index 0000000..e62552d
--- /dev/null
+++ b/lib/MasterServer/Database/dbCiphers.pm
@@ -0,0 +1,57 @@
+
+package MasterServer::Database::dbCiphers;
+
+use strict;
+use warnings;
+use Exporter 'import';
+
+our @EXPORT = qw| clear_ciphers 
+                  insert_cipher 
+                  get_game_props |;
+
+################################################################################
+## Clear all existing ciphers from the database
+################################################################################
+sub clear_ciphers {
+  my $self = shift;
+
+  # delete ALL entries
+  my $u = $self->{dbh}->do("DELETE FROM games");
+}
+
+################################################################################
+## Insert the list of supported games and their ciphers / default ports / 
+## descriptions included from the data/supportedgames.pl file.
+################################################################################
+sub insert_cipher {
+  my ($self, %opt) = @_;
+  
+  # insert a single cipher/key combo
+  my $u = $self->{dbh}->do(
+     "INSERT INTO games (
+          gamename, 
+          cipher, 
+          description, 
+          default_qport) 
+      VALUES(?, ?, ?, ?)", undef, 
+      lc $opt{gamename}, $opt{cipher}, $opt{description}, $opt{default_qport});
+  return 1 if ($u and $u > 0);
+  
+  # or else report error
+  $self->log("error", "An error occurred adding a cipher for $opt{gamename}");
+}
+
+################################################################################
+## get the cipher, description and default port that goes with given gamename
+################################################################################
+sub get_game_props {
+  my ($self, $gn) = @_;
+  
+  # get cipher from db if gamename exists
+  return $self->{dbh}->selectall_arrayref(
+    'SELECT * FROM games WHERE gamename = ?', 
+    {Slice=>{}}, 
+    lc $gn)->[0];
+}
+
+1;
-- 
cgit v1.2.3