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/Core/Stats.pm | 39 +++++++++++++++++++++++++++++++++++++++
 1 file changed, 39 insertions(+)
 create mode 100755 lib/MasterServer/Core/Stats.pm

(limited to 'lib/MasterServer/Core/Stats.pm')

diff --git a/lib/MasterServer/Core/Stats.pm b/lib/MasterServer/Core/Stats.pm
new file mode 100755
index 0000000..25044e8
--- /dev/null
+++ b/lib/MasterServer/Core/Stats.pm
@@ -0,0 +1,39 @@
+
+package MasterServer::Core::Stats;
+
+use strict;
+use warnings;
+use AnyEvent::IO;
+use Exporter 'import';
+
+our @EXPORT = qw| update_stats |;
+
+################################################################################
+# Update statistics on servers and update the games table with those values
+################################################################################
+sub update_stats {
+  my $self = shift;
+
+  # get all gamenames where there is one or more servers online and update the 
+  # stats per gamename.
+  my $games = $self->get_gamelist_stats();
+
+  # iterate through available stats
+  for my $e (@{$games}) {
+    
+    # extract gamename, number of direct uplinks and total servers
+    my %opt = ();
+       $opt{gamename}   = $e->[0];
+       $opt{num_uplink} = $e->[1];
+       $opt{num_total}  = $e->[2];
+
+    # write to DB
+    $self->write_stat(%opt);
+  }
+
+  #done
+  $self->log("stat", "Updated all game statistics.");
+  
+}
+
+1;
-- 
cgit v1.2.3