Select Code to Download

Select or download this

my $socket = IO::Socket::INET->new(
        LocalPort => $LISTEN_PORT,
...
                 Proto => 'udp', 
                 PeerAddr =>'127.0.0.1:50000');
print $sock $in;

Select or download this

$s_socket = IO::Socket::INET->new(
     Proto=>"udp",
...
     LocalPort=>"$s_port"
) or die ("\nCan't setup UDP socket on $ip$s_port: $!\n");
print "opened OK\n";

Select or download this

                $s_socket->recv($s_output, 1024);
                $s_peerhost = $s_socket->peerhost;
                $s_peerport = $s_socket->peerport;
                $s_addr = "$s_peerhost:$s_peerport";

Select or download this

        # Get the server info, if we know the server, otherwise ignore
+ the data
if (!$g_servers{$s_addr})
...
         next;
   }
}

Select or download this

Fri Mar 30 19:32:35 2001:       127.0.0.1:44018 - E997: UNRECOGNISED S
+ERVER: ÿÿÿÿlog L 03/30/2001 - 19:35:10: "eatitPUNK<269><346699><TERRO
+RIST>" killed "livestock<370><23593><CT>" with "mp5navy"