#!/usr/bin/perl

use strict;
use warnings;
use IO::Socket;
use Curses::UI;

my ($sock, $data, $clienthost, $maxlen, $port);

$maxlen = 1024;
$port = 3711;

my @array;

my $cui = Curses::UI->new(-mouse_support => 0,-read_timeout => 0);
my $win = $cui->add('window_id', 'Window');
my $listbox = $win->add('Tickets', 'Listbox',
        -border => 1,
        -title  => 'Items',
        -vscrollbar     => 1,
);

$cui->{-read_timeout} = 0;
$cui->set_binding( sub{ exit }, "\cQ" );
$cui->draw();

$sock = IO::Socket::INET->new(LocalPort => $port,
                                Type => SOCK_DGRAM,
                                Proto => 'udp')
                          or die "Could not open socket!\n";

while (1) {

  $cui->focus(undef, 1); # 1 = forced focus
  $sock->recv($data, $maxlen);
  chomp($data);

  my $req = $data;
  my($port, $ipaddr) = sockaddr_in($sock->peername);

  $clienthost = gethostbyaddr($ipaddr, AF_INET);

  $listbox->insert_at(\@array, "New ticket from ".$clienthost.": ".$req);
  $sock->send("We have received your ticket: $req");

  $listbox->focus();
  $cui->draw;
#  doupdate();
  $cui->do_one_event();