Attachment 918 Details for Bug 2737 – Test fast cgi

Test fast cgi

fcgi.cgi (text/plain), 507 bytes, created by Dave Hodgins on 2011-10-08 05:59:43 CEST

(hide)

Description:

Filename:

MIME Type:

Creator: Dave Hodgins

Created: 2011-10-08 05:59:43 CEST

Size: 507 bytes

patch

obsolete

#!/usr/bin/perl

use FCGI; # Imports the library; required line

# Initialization code

$cnt = 0;

# Response loop

while (FCGI::accept >= 0) {
  print "Content-type: text/html\r\n\r\n";
  print "<head>\n<title>FastCGI Demo Page (perl)</title>\n</head>\n";
  print  "<h1>FastCGI Demo Page (perl)</h1>\n";
  print "This is coming from a FastCGI server.\n<BR>\n";
  print "Running on <EM>$ENV{SERVER_NAME}</EM> to <EM>$ENV{REMOTE_HOST}</EM>\n<BR>\n";
   $cnt++;
  print "This is connection number $cnt\n";
}

Actions: View

Attachments on bug 2737: 918