#!/usr/local/bin/perl

use Tk;
use Tk::MListbox;
use strict;

my $mw = new MainWindow(-title => 'Spooler Queue');

# Mainwindow: sizex/y, positionx/y
$mw->geometry("1200x675+0+175");

my $start = 1;

my @data = <DATA>;

my %spool_list = ();
my $total_spools = 0;
my @user	= ();
my @customers = ();
my $reg_exp = "";
my $delimiter = "\t";
my %hash_store = ();
my $ctr = 0;
my $status_msg = 'Running';
my $timer = 0;
my $thr = undef;
my $thread_running = 1;

#header setup
my @goods_issues_headers = ( "URN",
							 "USER",
                             "PDC",
                             "SPOOL TO",
                             "FILE");

my $scalar_header = scalar @goods_issues_headers;

my $counter = 0;

my $user    = "";
@user       = ();

for my $line (@data){
		chomp $line;
		if($line =~ /^USER/){
			$user = $line;
         	next;
		}
		if($line =~/^FILE/){
	        $total_spools = sprintf("%05d",$total_spools);
        	$spool_list{$total_spools}{USER}  	= $user;
	       	$spool_list{$total_spools}{PDC}  	= $user[0];
        	$spool_list{$total_spools}{PS} 		= $user[1];
        	$spool_list{$total_spools}{SPOOL} 	= $user[2];
        	$spool_list{$total_spools}{MAIL} 	= $user[3];
	        $spool_list{$total_spools}{LINE} 	= $line;
	        $total_spools++;
		}else{
	        if($line !~ /END PDC/){
	            push (@user,$line);
	            next;
	        }else{
	            $total_spools = sprintf("%05d",$total_spools);
	            @user = ();
         	}
		}
	}
	close (DATA);

#populate list box
    foreach my $spool (sort keys %spool_list){

	    my @list = ();

	    my $temp = $spool_list{$spool}{USER};
	    $temp =~ s/^USER\-\>//;

	    push (@list,$spool,$temp);

	    my @temp_store = split (/\\|\//,$spool_list{$spool}{PDC});
		my $pdc = pop (@temp_store);
        $pdc =~ s/_PReS_Spooler.pds//;
	    push (@list,$pdc);

	    push (@list,$spool_list{$spool}{SPOOL});

	    @temp_store = split (/\\|\//,$spool_list{$spool}{LINE});
	    push (@list,pop (@temp_store));

	    push (@customers,[@list]);
	}


#setup the main display grid
	my $grid = $mw->Scrolled('MListbox',
	-sortable	=> 1,
    -scrollbars => 'osoe',
    -background => 'white',
    -foreground => 'black',
    -textwidth => 25,
    -highlightthickness => 2,
    -width => 1,
    -selectmode => 'single',
    -bd=>2,
	-columns=>[
        [qw/-text URN -textwidth 10/,
           -comparecmd => \&test],
        [qw/-text USER -textwidth 20/,
			-comparecmd => \&test],
        [qw/-text PDC -textwidth 30/,
			-comparecmd => \&test],
        [qw/-text SPOOL -textwidth 30/,
			-comparecmd => \&test],
        [qw/-text FILE -textwidth 120/,
			-comparecmd => \&test],
	],
    -relief=>'sunken')->pack(-side   => 'left',
            -fill   => 'both',
            -expand =>  1 );

 #keep querry grid upto date
    &populate_grid($grid,scalar @goods_issues_headers-1,\@customers);

MainLoop();

#manage the goods issues display widget
sub populate_grid{
 	my ($widget,$headersize,$customers) = @_;

 	my @customers_array = @{$customers};

    my @rowline = ();
    foreach my $row_number ( 0 .. $#customers_array ) {
	    push (@rowline,$customers_array[$row_number]->[0]);
        foreach my $x ( 1 .. $headersize ) {
			push (@rowline,$customers_array[$row_number]->[$x]);
        }
        $grid->insert('end',[@rowline]);
        @rowline= ();
	}

}

#sort selected column and also do some other processing
sub test{

	#do some extra processing when the header is clicked
    if($start){
        print "Sorted\n";
    }
    return ($_[0] <=> $_[1]);
}

__DATA__
USER->John
PDC->{1}J:/j01111.pds
COMPILER->PS
SPOOL->J:/Postscript to PDF/in
DELETE->MAIL DATE:20/12/2008
FILE->J:/J02226_GASTROANB_LOOKED_UP_CU_GASTROANB-STL_PROOFS.CSV
FILE->J:/J02226_GASTROCDMMP_LOOKED_UP_CU_GASTROCDMMP-STL_PROOFS.CSV
END PDC
USER->Paul
PDC->{1}J:/j02222.pds
COMPILER->PS
SPOOL->J:/Postscript to PDF/out
DELETE->MAIL DATE:20/12/2008
FILE->J:/J02226_GASTROANB_LOOKED_UP_CU_GASTROANB-STL_PROOFS.CSV
FILE->J:/J02226_GASTROCDMMP_LOOKED_UP_CU_GASTROCDMMP-STL_PROOFS.CSV
END PDC
USER->Singo
PDC->{1}J:/J02226 Dendrtie DJ9485 December UTD Mailing/Layout/j03333.pds
COMPILER->PS
SPOOL->C:/temp
DELETE->MAIL DATE:20/12/2008
FILE->J:/J02226_GASTROANB_LOOKED_UP_CU_GASTROANB-STL_PROOFS.CSV
FILE->J:/J02226_GASTROCDMMP_LOOKED_UP_CU_GASTROCDMMP-STL_PROOFS.CSV
END PDC