Re:dynamic Progress bar

[Jorge Goncalvez]

Hi I would like to make a dynamic Progress bar which could grow up with the 
number of string ftpd received in a log file.Each square means that a ftpd 
arrived on the log file.
How can I do this?

My code is:

open INFILE, "< $_Globals{SYSLOG}" or die "Cannot open $_Globals{SYSLOG} for 
reading: $!";
    while (<INFILE>) {
        chomp();
        
        
        /ftpd/ && do {
            #i.e  ftpd
        
        
        
            $_Globals{PROGRESS_VALUE} += 10;
            $_Globals{PROGRESS_STRING} = "FTPD";
        };
        
my $pb  = $_Globals{TOP_WINDOW}->ProgressBar(-bd => 3,
                                                 -relief => "sunken",
                                                 -fg => "green",
                                                 -width => 40,
                                                 -length => 300,
                                                 -variable => 
\$_Globals{PROGRESS_VALUE},
                                                 -colors => [0, "green", 40, 
"orange", 50, "red"]
                                                 )
        ->pack(-side => "left",-anchor => "w");
    $pb->Scale(-from => 0, -to => 150);
    
    
    
    
    Thanks.        


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]