#!/usr/bin/perl -W
use strict;
use warnings;

use Tk;
use Tk::BrowseEntry;

use Cwd;
use List::Util qw(shuffle);


my $mw = MainWindow->new(
    -relief => 'raised',
    -bd => 2,
);

$mw->title("Asociacion de Agentes Aduanales de Matamoros --- Validacio
+n Automatica");
$mw->geometry("1024x764");
my $upframe = $mw->Frame()->pack(-fill=>'x');
my $upperframe = $mw->Frame()->pack(-fill=>'x' );
my $topframe = $mw->Frame()->pack(-fill=>'x' );
my $mainframe = $mw->Frame()->pack(-expand=>1, -fill=>'both' );
my $bottomFrame = $mw->Frame()->pack(-fill=>'x');
my $exit_b = $topframe->Button(-text=>'Exit',
            -command=> sub{ exit } )->pack(-side => 'right', -padx=>20
+);

######################################################################
+##################
make_entry1($upframe, 'Status ', "santa2.txt");
make_entry($upperframe,'Banco ', "santa1.txt");

my $text1 = $topframe->Label(-text => "Archivos Por enviar")->pack(-si
+de => 'left',
                                                 -expand => 1);
my $text2 = $topframe->Label(-text => "Archivos Por Enviados")->pack(-
+side => 'left',
                                                 -expand => 1);
my $text3 = $topframe->Label(-text => "Archivos de Respuesta")->pack(-
+side => 'left',
                                                 -expand => 1);
my $text4 = $bottomFrame->Label(-text => "Noticias")->pack(-side => 't
+op',
                                                 -expand => 1);
my $box1 =   Build_Listbox_One($mw);
my $box2 =   Build_Listbox_Two($mw);
my $box3 =   Build_Listbox_Three($mw);
my ($enviar, $enviados, $respuestas) = Start_Directory_Monitors( $mw, 
+$box1, $box2, $box3 );
my $box4 =   Build_Listbox_Four($mw);
Tk::MainLoop();


sub Build_Listbox_One {

my $box1 = $mainframe->Scrolled('Listbox',
              -scrollbars => 'ose')
              ->pack( -side => 'left', -expand=>1, -fill=>'both' );

return $box1;
}


sub Build_Listbox_Two {

my $box2 = $mainframe->Scrolled('Listbox',
              -scrollbars => 'ose')
              ->pack( -side => 'left', -expand=>1, -fill=>'both' );

return $box2;
}


sub Build_Listbox_Three {

my $box3 = $mainframe->Scrolled('Listbox',
              -scrollbars => 'ose')
              ->pack( -side => 'left', -expand=>1, -fill=>'both' );

return $box3;
}


sub Build_Listbox_Four {

my $box4 = $bottomFrame->Scrolled('Listbox',
              -scrollbars => 'ose')
              ->pack( -side => 'left', -expand=>1, -fill=>'both' );
              my $noticias1;
              open(DAT3,"santa3.txt") || die ("No se pudo abrir el arc
+hivo de Noticias");
              my @noti = <DAT3>;
              close(DAT3);
              foreach (@noti) {
                $box4->insert(0, @noti);
              }

return $box4;

}




sub Start_Directory_Monitors {
    my $mw = shift;
    my $enviar_display    = shift;
    my $enviados_display  = shift;
    my $respuesta_display = shift;
    my $repetir_display1  = shift;
    my $repetir_display2  = shift;
    my $enviar = $mw->repeat(5000, [ \&list_dir_enviar,    $enviar_dis
+play    ] );
    my $env    = $mw->repeat(5000, [ \&list_dir_enviados,  $enviados_d
+isplay  ] );
    my $res    = $mw->repeat(5000, [ \&list_dir_respuesta, $respuesta_
+display ] );

    return  $enviar, $env, $res;
}

# monitor enviados
sub list_dir_enviar {
    my $box = shift;

    $box->delete(0,'end'); # empty listbox

    my @items = glob "c:/AAAvalida/valida/enviar/*.*";
    foreach (@items) {
        $box->insert('end', $_);
    }

}


sub list_dir_enviados {
    my $box1 = shift;

    $box1->delete(0,'end'); # empty listbox

    my @items = glob "c:/AAAvalida/valida/enviados/*.*";
    foreach (@items) {
        $box1->insert('end', $_);
    }

}

sub list_dir_respuesta {
    my $box2 = shift;

    $box2->delete(0,'end'); # empty listbox

    my @items = glob "c:/AAAvalida/valida/respuestas/*.*";
    foreach (@items) {
        $box2->insert('end', $_);
    }

}

sub make_entry {
    my ($upperframe,$label,$filename) = @_;
    my $label_info3 = $upperframe->Label(
  -text => 'Bancos :',
 )->pack(-side => 'left',
                -expand => 1);
open(DAT, $filename) || die("Could not open file!");
my @stat=<DAT>;
close(DAT);
foreach my $stat(@stat)
{
    chomp ($stat);
    my $banco;
    my $stado;
    ($banco,$stado)=split(/\|/,$stat);
    my $label_display = $upperframe->Label(
        -textvariable => \$banco
    )->pack(-side => 'left',
            -expand => 1);
    if ($stado eq "ACTIVO"){
         my $entry_info = $upperframe->Entry(
                -foreground => 'blue',
                -textvariable => \$stado,
  -width => 20,
 )->pack(-side => 'left',
                -expand => 1);
    } else {
           my $entry_info = $upperframe->Entry(
                -foreground => 'red',
                -textvariable => \$stado,
  -width => 20,
 )->pack(-side => 'left',
                -expand => 1);
    }


}
}


sub make_entry1 {
    my ($upframe,$labe2,$filename1) = @_;
    my $label_info4 = $upframe->Label(
  -text => 'Status :',
 )->pack(-side => 'left',
                -expand => 1);
open(DAT1, $filename1) || die("Could not open file!");
my @stat1=<DAT1>;
close(DAT1);
foreach my $stat1(@stat1)
{
    chomp ($stat1);
    my $operacion;
    my $stado1;
    ($operacion,$stado1)=split(/\|/,$stat1);
    my $label_display1 = $upframe->Label(
        -textvariable => \$operacion
    )->pack(-side => 'left',
            -expand => 1);
    if ($stado1 eq "ACTIVO"){
         my $entry_info1 = $upframe->Entry(
                -foreground => 'blue',
                -textvariable => \$stado1,
  -width => 20,
 )->pack(-side => 'left',
                -expand => 1);
    } else {
           my $entry_info1 = $upframe->Entry(
                -foreground => 'red',
                -textvariable => \$stado1,
  -width => 20,
 )->pack(-side => 'left',
                -expand => 1);
    }


}
}
[download]