Since JS tends to be problematic -- my current client requires it be turned off, for example -- here's an idea of how to acccomplish this with CSS. 

/* Stylesheet Snippet */

.pbcont {
   background-color: #000;
   height: 20px;
   width: 250px;
   border: 1px solid #00c;
   margin: 0;
   padding: 0;
}

.pbarchunk {
   margin: 0;
   margin-right: 2px;
   padding: 0;
   background-color: #00c;
   width: 23px;
   height: 20px;
}

[download]
#!/usr/bin/perl

use CGI; 
# Do CGI stuff
# Print a lot of the HTML;

print "<div class='pbcont'>";
while ($new_val < 100) {
   $new_val = &update();  # get the updated progress
   next unless $new_val > $old_val;
   print "<div class='pbar'> </div>";
}
print "</div>\n";

[download]

This is untested, but the basic idea is that writing the DIVs will cause colored blocks to appear inside a bordered bar. One could also get a lot more complicated, dealing with fractional percentages, absolute CSS positioning to make the progress bar go away, and other neat little tricks.

Of course, if all you're interested in is letting the user know "something is happenning", you can use the parent post's idea with an animated GIF. This is basically what sites like PriceLine and the like use.

radiantmatrix
require General::Disclaimer;
s//2fde04abe76c036c9074586c1/; while(m/(.)/g){print substr(' ,JPacehklnorstu',hex($1),1)}

In reply to Re^2: Timer - Progress Bar by radiantmatrix
in thread Timer - Progress Bar by Anonymous Monk

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.