FastCGI test server for demonstrating the problem

fcgi-test-server.pl (text/x-perl-script), 732 bytes, created by Mark Montague on 2011-04-18 14:36:58 UTC

(hide)

Description: FastCGI test server for demonstrating the problem

Filename:

MIME Type:

Creator: Mark Montague

Created: 2011-04-18 14:36:58 UTC

Size: 732 bytes

patch

obsolete

>#!/usr/bin/perl ># ># A test FastCGI server that just returns the environment variables passed to ># it by the client (an example of a client is mod_proxy_fcgi for Apache ># HTTP Server). ># ># Requires the FCGI Perl module, obtainable from ># http://search.cpan.org/perldoc?FCGI > >use FCGI; >use strict; >use warnings; > >my $socket = FCGI::OpenSocket( ":4000", 5 ); >my $request = FCGI::Request( \*STDIN, \*STDOUT, \*STDERR, > \%ENV, $socket ); > >while ($request->Accept() >= 0) { > my @input = <STDIN>; # read and discard > print "Content-Type: text/plain\n\n"; > foreach my $var (sort(keys(%ENV))) { > my $val = $ENV{$var}; > $val =~ s|\n|\\n|g; > $val =~ s|"|\\"|g; > print "${var}=\"${val}\"\n"; > } >} View Attachment As Raw

This is ASF Bugzilla: the Apache Software Foundation bug system. In case of problems with the functioning of ASF Bugzilla, please contact bugzilla-admin@apache.org. Please Note: this e-mail address is only for reporting problems with ASF Bugzilla. Mail about any other subject will be silently ignored.

• • Home
  • | New
  • | Browse
  • | Search
  • |
    [?]
  • | Reports
  • | Help
  • | New Account
  • | Log In
    Remember [x]
  • | Forgot Password
    Login: [x]