#!/usr/bin/perl -w

#UDP_Server.pl

#Hartych, Tobias EIT 4056051
#Dreißig, Tobias EIT 40?????

#Module importieren
use strict 'vars'; #strict macht debugging einfacher

use IO::Socket::INET;#Modul wird benoetigt um Netzwerkfunktionen zu nutzen

#auto-flush
$| = 1;

#Variablen deklarieren
my ($socket, $message,$peer_address,$peer_port);

#bekomme ip und port von Kommandozeilenparamter
my $ip=$ARGV[0]; #erste Paramenter wird in $ipaddr eingespeichert
my $port = $ARGV[1]; #zweite Paramenter wird in $ipaddr eingespeichert

#Socket erschaffen zur Kommunikation mit Client
$socket=new IO::Socket::INET(
LocalHost =>$ip,#LocalHost von $socket ist eingegebener Paramenter $ip
LocalPort=>$port,#LocalPort von $sock ist eingegebener Paramenter $port
Proto=>'udp'#Transportprotokoll: UDP
);
die "Konnte keine Verbindung herstellen: $!\n" unless $socket; #wenn fehlgeschlagen dann schließen

print "UDP Server bereit und wartet auf eine Verbingung mit Port $port\n";



#Hauptschleife	
while(1)
{
#empfange bis zu 1024 bytes von client, packe empfangene Daten in $message Variable	
	$socket->recv($message,1024);
	#definiere ip
	$peer_address = $socket->peerhost();
	#definiere port
	$peer_port = $socket->peerport();
	#sende $message zurueck zu client
	$socket->send($message);

}
#Schließe Socket
$socket -> close();