Quasigriz has asked for the wisdom of the Perl Monks concerning the following question:

I hope this can be the end of my quest for enlightenment on this troubling question. I have a perl cgi script that sends values to a database program for processing. The database processing takes a bit of time, but I can echo the status to a text or html file. My dilema is that I would like the script to send the request to the db system then show a popup with the html file status page without closing the main page. I can't seem to find anything to accomplish this task. Any ideas...? Griz

Replies are listed 'Best First'.
Re: create pop-up status window
by kyle (Abbot) on Dec 28, 2007 at 19:06 UTC
[reply]
Re: create pop-up status window
by scorpio17 (Canon) on Dec 28, 2007 at 22:13 UTC
    You might want to consider using AJAX - it's good for this type of thing. I wrote a demo to illustrate something similar a while back that might be useful to you.
[reply]
Re: create pop-up status window
by leighsharpe (Monk) on Dec 29, 2007 at 11:08 UTC
    CGI::Ajax has all the workings for what you want. You should be able to simply echo your file status page into a div on the results page (or a popup).
[reply]
Re: create pop-up status window
by Quasigriz (Initiate) on Dec 31, 2007 at 20:10 UTC
    UPDATE:
    Ok, I'm trying to work with the "long process through CGI" and I'm getting an error. I found the FileCache.pm, but it resides in the /5.8.0 folder, and there is no /Cache. Is there a way, since I'm not the WebMaster, that I can make Perl access the FileCache.pm from /opt/perl5/lib/5.8.0/FileCache.pm ? I've seen a way to make another folder accessible, but I'm not sure where the Cache/FileCaChe.pm specification comes from.

    Error:
    Can't locate Cache/FileCache.pm in @INC (@INC contains: /opt/perl5/lib/5.8.0/PA-RISC1.1 /opt/perl5/lib/5.8.0 /opt/perl5/lib/site_perl/5.8.0/PA-RISC1.1 /opt/perl5/lib/site_perl/5.8.0 /opt/perl5/lib/site_perl) at /usr/local/apache/cgi-bin/test.cgi line 67.
[reply]
      use lib '/opt/perl5/lib/5.8.0/';
      ~~David~~
[reply]

Back to Seekers of Perl Wisdom