initial commit
[fcgi] / perl / remote.PL
1 use Config;
2
3 open OUT, ">remote.fpl";
4 print OUT "#!$Config{perlpath}\n";
5 print OUT while <DATA>;
6 close OUT;
7 chmod 0755, "remote.fpl";
8 __END__
9 # An example of using a remote script with an Apache webserver.
10 # Run this Perl program on "otherhost" to bind port 8888 and wait
11 # for FCGI requests from the webserver.
12
13 ## Sample Apache configuration on the webserver to refer to the
14 ## remote script on "otherhost"
15 # <IFModule mod_fastcgi.c>
16 #  AddHandler fastcgi-script fcgi
17 #  FastCgiExternalServer /path-to/cgi-bin/external.fcgi -host otherhost:8888
18 # </IfModule>
19
20 # Access the URL:  http://webserver/cgi-bin/external.fcgi
21
22 # Contributed by Don Bindner <dbindner@truman.edu>
23
24 use FCGI;
25
26 my $socket = FCGI::OpenSocket( ":8888", 5 );
27 my $request = FCGI::Request( \*STDIN, \*STDOUT, \*STDERR,
28     \%ENV, $socket );
29
30 my $count;
31 while( $request->Accept() >= 0 ) {
32     print "Content-type: text/html\r\n\r\n";
33     print ++$count;
34 }
35
36 FCGI::CloseSocket( $socket );