Perl web serving with nginx and FastCGI - not able to read parameters

Question

There are any number of tutorials out there on how to use FastCGI to CGI wrappers to serve Perl code using nginx. But I'm comfortable working with Perl modules myself, so I don't need the wrapper. I'm trying to figure out the right way to set this up. Here's the code I have so far:

#!perl

use CGI;
use FCGI;

my $s = FCGI::OpenSocket(':9000',20);
my $r = FCGI::Request( \*STDIN, \*STDOUT, \*STDERR,
    \%ENV, $s);
while ($r->Accept >= 0) {
    my $cgi = CGI->new;
    print "Content-type: text/html\n\n";
    print "<html><body>The foo input is ", $cgi->param('foo'), "</body></html>";
    $r->Finish;
}

And enable it in nginx like so:

location /foo {
    include /etc/nginx/fastcgi_params;
    fastcgi_pass  127.0.0.1:9000;
    fastcgi_index index.pl;
}

The problem is that no matter how many times I call the script, param returns the same value that was passed the very first time it was called since starting the program. Is there a better way of doing this? I'm open to alternatives to CGI.pm as well.

Your posted code would have worked fine if you have instructed CGI.pm to clear it's global cache before you instantiated CGI.pm. CGI::initialize_globals(); — chansen
– chansen, Commented Sep 3, 2011 at 13:39
Interesting. Didn't know about that one. I'll keep it in mind. — Dan
– Dan, Commented Sep 3, 2011 at 14:45

Schwern · Accepted Answer · 2011-08-26 21:22:12Z

1

CGI::Fast will handle most of the work for you, including setting up the daemon.

use CGI::Fast;

local $ENV{FCGI_SOCKET_PATH} = ":9000";
local $ENV{FCGI_LISTEN_QUEUE} = 20;

while ($q = CGI::Fast->new) {
    print $q->header;
    print "<html><body>The foo input is ", $cgi->param('foo'), "</body></html>";
}

An alternative is Nginx::Simple which gives you more control over the behavior of your cgi-script-as-daemon.

answered Aug 26, 2011 at 21:22

Schwern

167k28 gold badges226 silver badges371 bronze badges

Sign up to request clarification or add additional context in comments.

2 Comments

Dan Over a year ago

Having some trouble with CGI::Fast. I tried running it on the command line, and it simply ran once and exited. So it doesn't seem to have listened to the port, or bound the stdio streams etc.

Dan Over a year ago

Got it working in the end, but there seems to be a documentation bug in CGI::Fast regarding environment variables, which I can report.

Collectives™ on Stack Overflow

Perl web serving with nginx and FastCGI - not able to read parameters

1 Answer 1

2 Comments

Your Answer

Linked

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

2 Comments

Your Answer

Sign up or log in

Post as a guest

Linked

Related