#!/usr/bin/perl -w
 
use strict;
use IO::Socket;
use File::Slurp;
use threads;

my $socket=new IO::Socket::INET->new(PeerPort=>12345,Proto=>'udp',PeerAddr=>'localhost');
print "This is a test Sending Server\n";

my $capxml = read_file("C:\\Users\\deadpickle\\Desktop\\UAS\\GRRUVI_1.60\\test xml\\capabilities.xml");

my $recv = threads->new(\&recvxml);
my $send = threads->new(\&sendxml);

while(1){
}

sub sendxml{
    my $socket=new IO::Socket::INET->new(PeerPort=>12345,Proto=>'udp',PeerAddr=>'localhost');
    while (1) {
        #send capabilities every 10 seconds
        $socket->send($capxml);
        print "Sending Capabilities\n";
        sleep 10;
    }
}

sub recvxml{
    my $xml;
    my $socket=new IO::Socket::INET->new(PeerPort=>56789,Proto=>'udp',PeerAddr=>'localhost');
    while(1) {
        print "Waiting for meassage\n";
        $socket->recv($xml,3000);
        print "Recieved Message: $xml\n";
    }
}