#!/usr/bin/perl

use strict;
use warnings;

use Tk;
use IO::Socket;
use Tk::HList;

my $status = '';

my $mw = MainWindow->new;
$mw->geometry("200x100");
my $control_F = $mw->Frame()->pack(-side => 'bottom');
$control_F->Button(-text => 'Listen',
                   -command => sub { start_server(\$mw, \$status) }
    )->pack(-side => 'left');
$control_F->Button(-text => 'Load',
                   -command => sub { load_job() }
    )->pack(-side => 'left');
$control_F->Button(-text => 'start',
                   -command => sub { }
    )->pack(-side => 'left');
$control_F->Button(-text => 'Quit', -command => sub { exit }
    )->pack(-side => 'left');

my $status_F = $mw->Frame()->pack(-side => 'top');
#$status_F->Label(-text => 'Status:')->pack(-side => 'left');
#$status_F->Label(-textvariable => \$status)->pack(-side => 'left');


my $hlist = $status_F->Scrolled(
    'HList',
    -scrollbars => 'ose',
    -columns    => 2,
    -header     => 1,
    -height     => 5,
)->pack( -fill => 'both', -expand => 1 );
my $label1 = $hlist->Label( -text => "Jobname", -anchor => 'w' );
$hlist->headerCreate( 0, -itemtype => 'window', -widget => $label1 );
my $label2 = $hlist->Label( -text => "Result", -anchor => 'w' );
$hlist->headerCreate( 1, -itemtype => 'window', -widget => $label2 );


sub load_job {
$hlist->add(0);
$hlist->itemCreate(0,0,-text=> "job1");
$hlist->itemCreate(0,1,-text=> "stopped");

$hlist->add(1);
$hlist->itemCreate(1,0,-text=> "job2");
$hlist->itemCreate(1,1,-text=> "stopped");

}
MainLoop;

sub start_server {
    my ($mw_ref, $status_ref) = @_;

    my $server = IO::Socket::INET::->new(
        Proto     => 'tcp',
        LocalPort => 55555,
        Listen    => SOMAXCONN,
        Reuse     => 1
    ) or die "Server can't start: $!";

    my $client = $server->accept();
    $client->autoflush;

    $$mw_ref->fileevent($client, 'readable', sub {
        if (defined(my $read = <$client>)) {
            chomp $read;
            $$status_ref = $read;
        }
    });
}