#!/usr/bin/env perl

use strict;
use IO::Socket::INET;

my $n1mm = IO::Socket::INET->new(PeerAddr => '193.35.52.141',
				 PeerPort => 13010,
				 Proto => 'udp') or die "Can't connect to N1MM\n";

my $rotctl = IO::Socket::INET->new(PeerAddr => '193.35.52.163',
				   PeerPort => '4533',
				   Proto => 'tcp') or die "Can't connect to rotctld.\n";

while (1) {
    $rotctl->send("p\n");
    my $az = "";
    $rotctl->recv($az, 1024);
    $az =~ s/\n.*//;
    $az =~ s/\.([0-9]).*/\1/;
    chop $az;
    my $report = "array@" . "$az";
    print "$report\n";
    $n1mm->send($report);
    
    sleep 1;
}