Commit 589c6390 authored by Nigel Kukard's avatar Nigel Kukard

Support for progress indicator on loading files

parent 1cfae6da
......@@ -194,15 +194,40 @@ sub loadFile
}
# Open file
if (!open(FH,"< ".$parms->{'file'})) {
if (!open(FH,"<",$parms->{'file'})) {
print($OUT " => Failed to open '".$parms->{'file'}."': $!\n");
return -1;
}
# Process lines
printf($OUT " => Loading file '%s'",$parms->{'file'});
# Grab number of lines to process
my $line_total = 0;
while (<FH>) { $line_total++ }
# Reset back to beginning of file and re-read
seek(<FH>,0,0);
my $line_current = 0;
my $percent_last = "";
while (my $cmdline = <FH>) {
# Nuke \n
# Bump line number
$line_current++;
# Grab percent done
my $percent_done = sprintf('%5.1f',($line_current / $line_total) * 100);
# If its changed, output and save
if ($percent_done ne $perecent_last) {
sprintf($OUT " Progress: %s",$percent_done);
$percent_last = $percent_done;
}
# Nuke whitespaces at end
chomp($cmdline);
# Short circuit blank lines
next if ($cmdline eq "");
# Process
if ((my $res = processCommand($OUT,$cmdline)) < 0) {
print($OUT " => Failed to execute command: $cmdline\n");
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment