Fixed linux UDP Server. It did not get the peer IP.

This commit is contained in:
fermin831 2015-09-25 14:02:42 +02:00
parent da159f9464
commit 59dcb8fb80
1 changed files with 1 additions and 3 deletions

View File

@ -1829,9 +1829,7 @@ sub udp_server ($$) {
$sock = IO::Socket::INET->new(LocalPort => $udp_port, Proto => 'udp') or die "socket: $@";
while ($sock->recv($newmsg, $MAXLEN)) {
my($port, $ipaddr) = sockaddr_in($sock->peername);
$hishost = gethostbyaddr($ipaddr, AF_INET);
my $hishost = $sock->peerhost();
if (($udp_auth_address eq "0.0.0.0") || ($hishost eq $udp_auth_address)){
if ($newmsg =~ /REFRESH AGENT/){
# Send signal to restart agent