use Tk;
use Tk::DBI::Table;
use DBI;

my $dbh = '';
my $limit_entry = 100;
        
my $dbh = DBI->connect("dbi:SQLite:dbname=as2con.db", "", "", {PrintWarn => 0, PrintError => 0});
        
        my $top = MainWindow->new;
        $top->geometry('200x300');
        
              
	my $sql_query = "select cdate AS 'Date/Time', 
	
	case 
    		when statusType = '1' then 'Debug'
    		when statusType = '2' then 'Info'
    		when statusType = '3' then 'Warning'
    		when statusType = '4' then 'Error'    
    		else 'unknown'
 	end as Status,
 
	statusValue AS 'Description' from statusmessages 
	order by cdate desc LIMIT $limit_entry";	        
        
        
        
        my $tkdbi = $top->DBITable(
                        -sql            => $sql_query,
                        -dbh            => $dbh,
                        -display_id     => 1,
                    )->pack(expand => 0, -fill => 'both');
        
        MainLoop;