/
usr
/
share
/
doc
/
libfcgi-perl
/
examples
/
/usr/share/doc/libfcgi-perl/examples
mkdir
upload
Name
Size
Mode
Actions
echo.pl
1609
0755
edit
dl
rm
remote.pl
828
0755
edit
dl
rm
threaded.pl
1149
0755
edit
dl
rm
Edit:
/usr/share/doc/libfcgi-perl/examples/remote.pl
(828B)
#!/usr/bin/perl # An example of using a remote script with an Apache webserver. # Run this Perl program on "otherhost" to bind port 8888 and wait # for FCGI requests from the webserver. ## Sample Apache configuration on the webserver to refer to the ## remote script on "otherhost" # <IFModule mod_fastcgi.c> # AddHandler fastcgi-script fcgi # FastCgiExternalServer /path-to/cgi-bin/external.fcgi -host otherhost:8888 # </IfModule> # Access the URL: http://webserver/cgi-bin/external.fcgi # Contributed by Don Bindner <dbindner@truman.edu> use FCGI; my $socket = FCGI::OpenSocket( ":8888", 5 ); my $request = FCGI::Request( \*STDIN, \*STDOUT, \*STDERR, \%ENV, $socket ); my $count; while( $request->Accept() >= 0 ) { print "Content-type: text/html\r\n\r\n"; print ++$count; } FCGI::CloseSocket( $socket );
Save
cmd:
run