aboutsummaryrefslogtreecommitdiff
path: root/lib/MasterServer/TCP/Syncer.pm
diff options
context:
space:
mode:
authorDarkelarious <darkelarious@333networks.com>2015-11-08 15:42:27 +0100
committerDarkelarious <darkelarious@333networks.com>2015-11-08 15:42:27 +0100
commit8b3d393e7755c167eebe4d9f7fc786074f12e9af (patch)
tree756afc39bc4e5794c51b7a947ff3832b341cbb6b /lib/MasterServer/TCP/Syncer.pm
parent2c7d62f38944f61e7eafea155c6128521d16aed9 (diff)
downloadMasterServer-Perl-8b3d393e7755c167eebe4d9f7fc786074f12e9af.tar.gz
MasterServer-Perl-8b3d393e7755c167eebe4d9f7fc786074f12e9af.zip
Full support for Postgres, MySQL and SQLite3 + minor bug fixes
Diffstat (limited to 'lib/MasterServer/TCP/Syncer.pm')
-rwxr-xr-xlib/MasterServer/TCP/Syncer.pm9
1 files changed, 7 insertions, 2 deletions
diff --git a/lib/MasterServer/TCP/Syncer.pm b/lib/MasterServer/TCP/Syncer.pm
index dea20a5..69025f0 100755
--- a/lib/MasterServer/TCP/Syncer.pm
+++ b/lib/MasterServer/TCP/Syncer.pm
@@ -6,7 +6,6 @@ use warnings;
use AnyEvent;
use AnyEvent::Handle;
use Exporter 'import';
-use Data::Dumper 'Dumper';
our @EXPORT = qw| syncer_scheduler sync_with_master process_sync_list|;
@@ -85,7 +84,7 @@ sub sync_with_master {
$handle->push_write("\\gamename\\333networks\\location\\0\\validate\\$validate\\final\\");
# part 3: request the list \sync\gamenames consisting of space-seperated game names or "all"
- my $request = "\\sync\\".(($self->{sync_games}[0] == 0) ? "all" : $self->{sync_games}[1])."\\final\\";
+ my $request = "\\sender\\$self->{masterserver_address}\\sync\\".(($self->{sync_games}[0] == 0) ? "all" : $self->{sync_games}[1])."\\final\\";
# push the request to remote host
$handle->push_write($request);
@@ -118,6 +117,12 @@ sub process_sync_list {
# counter
my $c = 0;
+ if (exists $r{echo}) {
+ # remote address says...
+ $self->log("error", "$ms->{address} replied: $r{echo}");
+
+ }
+
# iterate through the gamenames and addresses
while ( my ($gn,$addr) = each %r) {