diff options
| author | Darkelarious <darkelarious@333networks.com> | 2015-11-08 15:42:27 +0100 |
|---|---|---|
| committer | Darkelarious <darkelarious@333networks.com> | 2015-11-08 15:42:27 +0100 |
| commit | 8b3d393e7755c167eebe4d9f7fc786074f12e9af (patch) | |
| tree | 756afc39bc4e5794c51b7a947ff3832b341cbb6b /lib/MasterServer/TCP/Syncer.pm | |
| parent | 2c7d62f38944f61e7eafea155c6128521d16aed9 (diff) | |
| download | MasterServer-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-x | lib/MasterServer/TCP/Syncer.pm | 9 |
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) { |
