#!/usr/bin/perl
#
# Experimental steam log thingie for tf2 (FAO Parva @ multiplay )
# WORKING!!!1
#
# Server Program
use IO::Socket::INET;
print ">> Server Program <<\n";

# Create a new socket
$MySocket=new IO::Socket::INET->new(LocalPort=>9001,Proto=>'udp');

# Keep receiving messages from client
$def_msg="\nReceiving message from client.....\n";
while(1)
{
#    my $remote_ip = $MySocket->recv($text,1024);
    $MySocket->recv($text,1024);
	my $remote_ip = $MySocket->PeerAddr();
    if($text ne '')
    {
	print "($remote_ip) $text";
	open (LOG,">>logfile.txt") or print("Can't open logfile.txt $!");
	print (LOG "($remote_ip) $text");
	close (LOG);
    }
    # If client message is empty exit
    else
    {
        print "Cilent has exited!";
        exit 1;
    }
}