diff options
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) { |