Thanks Mark for the status bar.
It seems to work well and definitely what I want, but the status bar is
disappearing too soon, even though I am controlling when to disappear. I am
not sure why it is skipping the other code and processing the code where I
tell the status bar to disappear. Here is the last part of my code after
all processing. I am querying all the data into Excel and saving it.
$| = 1;
...
...
501 $Workbook->SaveAs($path);
502 $Workbook->Close();
503 $Excel->Quit();
504 print "<script>setPercent(100)</script>";
505 print h2("Query Completed");
506 print $r->end_html;
I can put line 504 at the end (line 507) and it would still process it
first. The thing is that once the status bar disappears, I am still waiting
(~ 45sec) before line 505 is printed. I think it is still processing the
Excel workbook because the saved file has not appeared.
Any ideas?
David
-----Original Message-----
From: Thomas, Mark - BLS CTR [mailto:[EMAIL PROTECTED]
Sent: Wednesday, June 25, 2003 2:23 PM
To: 'Hsu, David'; [EMAIL PROTECTED];
[EMAIL PROTECTED]
Subject: RE: Displaying a status bar
> Hello,
>
> Can someone let me know of a method of displaying a status bar on
> screen(html) in Perl script while it is processing a task. I
> have tried to print html, but it won't display the image
> until it has finished processing, and then it displays with
> the rest of the information.
Your problem may be output buffering. Put $|++; in your program before
sending any output and you can then print html to the screen.
That being said, I've created a javascript library that puts a graphical
status bar on the screen, and the percentage, overlay text, and color can be
set by a perl program as it running, and at the end, it disappears so as not
to interfere with the output. It's useful for long-running programs. Contact
me off-list if you want it.
- Mark.
--
Mark Thomas [EMAIL PROTECTED]
Internet Systems Architect User Technology Associates, Inc.
$_=q;KvtuyboopuifeyQQfeemyibdlfee;; y.e.s. ;y+B-x+A-w+s; ;y;y; ;;print;;
_______________________________________________
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
