From c06322da38b4cb76b2036af1a5448083adb8ff20 Mon Sep 17 00:00:00 2001
From: Darkelarious <darkelarious@333networks.com>
Date: Tue, 22 Aug 2017 11:00:13 +0200
Subject: new server checking mechanism, complete recode of major functions

---
 lib/MasterServer/Util/KFStatsWatcher.pm | 22 ++++++----------------
 1 file changed, 6 insertions(+), 16 deletions(-)

(limited to 'lib/MasterServer/Util/KFStatsWatcher.pm')

diff --git a/lib/MasterServer/Util/KFStatsWatcher.pm b/lib/MasterServer/Util/KFStatsWatcher.pm
index 6601aa3..d78fbf9 100755
--- a/lib/MasterServer/Util/KFStatsWatcher.pm
+++ b/lib/MasterServer/Util/KFStatsWatcher.pm
@@ -4,51 +4,41 @@ use strict;
 use warnings;
 use AnyEvent::IO;
 use Exporter 'import';
-
 our @EXPORT = qw| read_kfstats |;
 
 ################################################################################
 ## Read Killing Floor Statistics from the file.
 ################################################################################
 sub read_kfstats {
-  my ($self) = shift;
+  my $self = shift;
 
   # open file and read content
   return aio_load($self->{kfstats_file}, 
     sub {
       my $f = shift;
-
-      # process player data as blocks
       my $block = "";
               
       # read player stats
       for my $l (split /^/, $f) {
-       
-        # add data to block
+        # add data to "player" block
         $block .= $l;
         
         # if block contains last item GamesLost, process block
         if ($l =~ m/^(GamesLost=)/i){
-
-          # treat as array
           my @s = split "\n", $block;
 
           # process items
           my %h;
           for my $m (@s) {
-            if ($m =~ m/(KFPlayerStats\])$/i) { $h{UTkey} = substr $m, 1, index($m, " ")-1; }
-            if ($m =~ m/=/) {$h{substr $m, 0, index($m, "=")} = substr $m, index($m, "=")+1; }
+            if ($m =~ m/(KFPlayerStats\])$/i) {
+              $h{UTkey} = substr $m, 1, index($m, " ")-1;}
+            if ($m =~ m/=/) {
+              $h{substr $m, 0, index($m, "=")} = substr $m, index($m, "=")+1;}
           }
-          
-          # store in db
           $self->write_kfstats(\%h);
-          
-          # clear block for next player
           $block = "";
         }
       }
-      
-      # notify
       $self->log("kfstat", "Updated Killing Floor player stats.");
     }
   );
-- 
cgit v1.2.3