From 534626943a0a5e251e5465376f3de3fb71b25e91 Mon Sep 17 00:00:00 2001 From: Darkelarious Date: Wed, 11 Feb 2015 21:12:44 +0100 Subject: ability to query UCC applets (Pg only) --- lib/MasterServer/UDP/BeaconCatcher.pm | 13 ++++++++----- 1 file changed, 8 insertions(+), 5 deletions(-) (limited to 'lib/MasterServer/UDP/BeaconCatcher.pm') diff --git a/lib/MasterServer/UDP/BeaconCatcher.pm b/lib/MasterServer/UDP/BeaconCatcher.pm index b3d2c18..685c33b 100755 --- a/lib/MasterServer/UDP/BeaconCatcher.pm +++ b/lib/MasterServer/UDP/BeaconCatcher.pm @@ -9,9 +9,10 @@ use Exporter 'import'; our @EXPORT = qw| beacon_catcher on_beacon_receive|; -## -## Receive UDP beacons according the \heartbeat\7778\gamename\ut\ format -## where "ut" depicts the game and 7778 the query port of the game. +################################################################################ +## Receive UDP beacons with \heartbeat\7778\gamename\ut\ format +## where "ut" is the game name and 7778 the query port of the server. +################################################################################ sub beacon_catcher { my $self = shift; @@ -36,7 +37,9 @@ sub beacon_catcher { return $udp_server; } -## process (new) beacons +################################################################################ +## Determine the concent of the received information and process it. +################################################################################ sub on_beacon_receive { # $self, beacon address, handle, packed client address my ($self, $b, $udp, $pa) = @_; @@ -59,7 +62,7 @@ sub on_beacon_receive { $self->process_udp_beacon($udp, $pa, $b, $peer_addr, $port) if ($b =~ m/\\heartbeat\\/ && $b =~ m/\\gamename\\/); - # or if this is a secure response, verify the response code and add mark it verified + # or if this is a secure response, verify the response $self->process_udp_validate($b, $peer_addr, $port, undef) if ($b =~ m/\\validate\\/); } -- cgit v1.2.3