Beefy Boxes and Bandwidth Generously Provided by pair Networks
Problems? Is your data what you think it is?
 
PerlMonks  

Keeping browsers alive for long lived CGIs

by Felonious (Chaplain)
on Apr 27, 2002 at 19:05 UTC ( #162547=snippet: print w/ replies, xml ) Need Help??

Description: If you've ever needed to add a CGI interaface to a long running process, you probabaly know that if you don't provide the browser with periodic "feedback", it will time out and the user will never see the result. The code below solves this by forking and having the parent send back NULLs (\0) to the browser until the child process completes. There's nothing magic about Null except that it's doesn't display. If you want a "progress indicator" effect, you could replace them with "*" or whatever you like (though some browsers may not display them until the script completes).

Update: The code below turned out to be responsible for some strangeness in Apache under rare circumstances, yet I could never find the real root of it nor a fix. Another solution involving alarms was deployed and has worked consistantly without problem, I'll post that whenever I find the time.
#!/usr/bin/perl -w
use strict;
use POSIX;

# incomplete example, tailor to you needs

$| = 1;

my $pid = fork;
my $result;
if ($pid) {
        my $kid;
        print "Please Wait...<br>\n";
        do {
                sleep 2;
                print "\0";
                $kid = waitpid(-1, &WNOHANG);
                if ($kid > 0) {
                        $result = $? >> 8;
                }
        } until ($kid == -1);
} else {
        if (defined $pid) {
                exec("./long_running_prog");
                CORE::exit 1;
        } else {
                print "Failed to fork!<br>";
                $result = 1;
        }
}

if (not $result) {
        print "Run successful<br>\n";
} else {
        print "Run Failed. Error($result)<br>\n";
}

Comment on Keeping browsers alive for long lived CGIs
Download Code
•Re: Keeping browsers alive for long lived CGIs
by merlyn (Sage) on Apr 30, 2002 at 06:25 UTC

Back to Snippets Section

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: snippet [id://162547]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others cooling their heels in the Monastery: (3)
As of 2014-08-30 19:04 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The best computer themed movie is:











    Results (293 votes), past polls