use Tk;
use Tk::HList;
use Tk::ItemStyle;
my $user = $ARGV[0];
my $hash = {};
my ($tool,$issued,$use,$vendor,$feature);
#gui variables
my ($hl,$ok,$alert);
# Making the Gui
my $mw = new MainWindow;
$mw->geometry("500x200");
my $userframe = $mw->Frame(-width=>5,-height=>10)->pack(-side=>'top',-anchor=>'nw');
$userframe->Label(-text => "USER: $user")->pack(-anchor => 'nw',-padx => 0);
my $hlistframe = $mw->Frame()->pack(-fill => 'both', -expand => 1);

my $loop = 1;
while ($loop == 1)
{
open(FP, "<file.txt");
while(<FP>){
if(/^Users of (\w+):\s+\(Total of ([0-9]+) licenses issued;\s+Total of ([0-9]+) (licenses|license) in use/)
{
($tool,$issued,$use) = ($1,$2,$3);
}
if (/^\s+$user(.*)/){
$hash->{$user}->{$tool}->{tool} = $tool;
$hash->{$user}->{$tool}->{issued} = $issued;
$hash->{$user}->{$tool}->{inuse} = $use;
}
}
close(FP);
#print Dumper($hash);
$hl = $hlistframe->Scrolled('HList',
-scrollbars => 'ose',
-columns =>4 ,
-header => 1,
-width => 100,
-command => sub {print "AAA\n";},
-selectmode => 'browse',
)->pack(-fill => 'both',-expand =>1 );


my $label1 = $hl->Label(-text => "Tool", -anchor => 'w');
$hl->headerCreate(0,-itemtype => 'window',-widget => $label1);
my $label3 = $hl->Label(-text => "Available", -anchor => 'w');
$hl->headerCreate(1,-itemtype => 'window',-widget => $label3);
my $label4 = $hl->Label(-text => "checkedout", -anchor => 'w');
$hl->headerCreate(2,-itemtype => 'window',-widget => $label4);
my $label5 = $hl->Label(-text => "checkedout%", -anchor => 'w');
$hl->headerCreate(3,-itemtype => 'window',-widget => $label5);
$ok = $hl->ItemStyle('text', -selectforeground =>'black', -anchor =>'center',-background =>'green');
$alert = $hl->ItemStyle('text', -selectforeground =>'black', -anchor =>'center',-background =>'red');
my $path = 0;
for my $toolkey (sort keys %{$hash->{$user}})
{
_insertData($path,$toolkey);
$path++;
}
sleep 5; #not working
$hl->destroy; #not working
}
sub _insertData
{
my $path = shift;
my $tool = shift;
my $availbl = $hash->{$user}->{$tool}->{issued};
my $chk = $hash->{$user}->{$tool}->{inuse};
$hl->add($path);
$hl->itemCreate($path,0,-text=> $hash->{$user}->{$tool}->{tool});
$hl->itemCreate($path,1,-text=> $hash->{$user}->{$tool}->{issued});
$hl->itemCreate($path,2,-text=> $hash->{$user}->{$tool}->{inuse});
my ($percent_lic_co,$color)= calculate_percent($availbl,$chk);
$hl->itemCreate($path,3,-text=> $hash->{$user}->{$tool}->{inuse}, -style => $color);
}
sub calculate_percent
{
my $avail = shift;
my $co = shift;
my $percent = ($co * 100)/$avail ;
$percent = sprintf "%.2f", $percent;
my $color;
if($percent > 90)
{
$color = $alert;
}
else
{
$color = $ok;
}
return ($percent,$color);
}

MainLoop;