CGI System Call in perl

ganchrow · Feb 16, 2005

I have a CGI script written Perl, the only function of which, is to
start a Perl Daemon. My OS is Red Hat. Here's the pseudo code:

---------------------------------------
#!/usr/local/bin/perl

# run under Red Hat
print "Content-Type: text/html\n\n<body>";
print "BEGIN PAGE \n";
if (system("perl $CMD_WHICH_STARTS_OTHER_PERL_SCRIPT &")) {
print "Program not started: $! \n";
} else {
print "Program started. \n";
}
print "END PAGE \n";
print "</body>";
---------------------------------------

Now the problem is that even though the new process succesfully starts
in the background, the CGI does not terminate -- the page still shows
as "loading" in the web browser and running "ps -x" at a command prompt
shows that the cgi process is running as a zombie process.

Any idea what I can so that once the final line of the CGI script is
reached the program terminates (with the spawned process continuing
until it dies of its own natural causes)?

Many Thanks,
GANCH.

Brian McCauley · Feb 16, 2005

ganchrow said:
I have a CGI script written Perl, the only function of which, is to
start a Perl Daemon. My OS is Red Hat. Here's the pseudo code:

---------------------------------------
#!/usr/local/bin/perl

# run under Red Hat
print "Content-Type: text/html\n\n<body>";
print "BEGIN PAGE \n";
if (system("perl $CMD_WHICH_STARTS_OTHER_PERL_SCRIPT &")) {
print "Program not started: $! \n";
} else {
print "Program started. \n";
}
print "END PAGE \n";
print "</body>";
---------------------------------------

Now the problem is that even though the new process succesfully starts
in the background, the CGI does not terminate -- the page still shows
as "loading" in the web browser and running "ps -x" at a command prompt
shows that the cgi process is running as a zombie process.

When a web server lauches a CGI subprocess it directs the CGI process's
STDOUT to a pipe and reads from that pipe until it gets an EOF condition.

If the CGI process want's to fork-off-and-die so that it can continue in
the background it needs to close or reopen STDOUT in the child.

This, of course, has nothing to do with Perl.

ganchrow · Feb 16, 2005

Yeah, I was kind of afraid this wasn't at heart really a Perl question.

Thanks for your help, though.

Gregory Toomey · Feb 16, 2005

ganchrow said:
I have a CGI script written Perl, the only function of which, is to
start a Perl Daemon. My OS is Red Hat. Here's the pseudo code:

---------------------------------------
#!/usr/local/bin/perl

# run under Red Hat
print "Content-Type: text/html\n\n<body>";
print "BEGIN PAGE \n";
if (system("perl $CMD_WHICH_STARTS_OTHER_PERL_SCRIPT &")) {
print "Program not started: $! \n";
} else {
print "Program started. \n";
}
print "END PAGE \n";
print "</body>";
---------------------------------------

Now the problem is that even though the new process succesfully starts
in the background, the CGI does not terminate -- the page still shows
as "loading" in the web browser and running "ps -x" at a command prompt
shows that the cgi process is running as a zombie process.

Any idea what I can so that once the final line of the CGI script is
reached the program terminates (with the spawned process continuing
until it dies of its own natural causes)?

Many Thanks,
GANCH.

You need to completely separate parent from child. Call the following at
start of child (works with Redhat 9).

use POSIX 'setsid';

sub daemonize {
# chdir '/' or die "Can't chdir to /: $!";
open STDIN, '/dev/null' or die "Can't read /dev/null: $!";
open STDOUT, '>/dev/null'
or die "Can't write to /dev/null: $!";
defined(my $pid = fork) or die "Can't fork: $!";
exit if $pid;
setsid or die "Can't start a new session: $!";
open STDERR, '>&STDOUT' or die "Can't dup stdout: $!";
}

gtoomey

Ganchrow Harris Peck · Feb 28, 2005

Thanks for your reply, Greg. For my purposes the following BEGIN block
added to my child process worked just fine:

# start code sample
BEGIN {
if ( (defined $ARGV[0]) and ($ARGV[0] =~ m/-?cgi$/i) ) {
# program was called from cgi script
# so close out out buffer to let cgi script terminate
close STDOUT;
}
}
# end code sample

Of course this necessitated both being able to call the child from the
parent with the -cgi switch as the first arg and furthermore not caring
that any data sent to STDOUT by the child would be discarded.

Worked fine even if inelegantly.

GHP.

cryptic error in cgi script	2	Oct 13, 2010
non-working perl script under Windows 2008	8	Feb 24, 2014
Python CGI programming on Mac OSX	1	May 21, 2015
CGI NET::SSH browser problem	1	Nov 10, 2012
Learning Perl CGI and OOP, not printing @c	3	Oct 20, 2011
Ownership of a file in unix file system	6	Jul 23, 2011
CGI and PERL help - no image	6	Nov 26, 2008
Trying to get CGI selection to print	3	Oct 24, 2011

CGI System Call in perl

ganchrow

Brian McCauley

ganchrow

Gregory Toomey

Ganchrow Harris Peck

Ask a Question

Similar Threads

Members online

Forum statistics

Latest Threads