Commit 1d24f73b authored by Jeff Trawick's avatar Jeff Trawick
Browse files

Merge r1727317 from trunk: 

Update Perl FCGI examples to work with current version of module


git-svn-id: https://svn.apache.org/repos/asf/httpd/httpd/branches/2.4.x@1727318 13f79535-47bb-0310-9956-ffa450edef68
parent a6923645

docs/manual/mod/mod_authnz_fcgi.xml

+8 −4
Original line number Diff line number Diff line
@@ -86,7 +86,8 @@ and Access Control</a></seealso> 
<highlight language="perl">

#!/usr/bin/perl

use FCGI;

while (FCGI::accept >= 0) {

my $request = FCGI::Request();

while ($request->Accept() >= 0) {

    die if $ENV{'FCGI_APACHE_ROLE'} ne "AUTHENTICATOR";

    die if $ENV{'FCGI_ROLE'}        ne "AUTHORIZER";

    die if !$ENV{'REMOTE_PASSWD'};
@@ -131,7 +132,8 @@ AuthnzFcgiDefineProvider authn FooAuthn fcgi://localhost:10102/ 
<highlight language="perl">

#!/usr/bin/perl

use FCGI;

while (FCGI::accept >= 0) {

my $request = FCGI::Request();

while ($request->Accept() >= 0) {

    die if $ENV{'FCGI_APACHE_ROLE'} ne "AUTHORIZER";

    die if $ENV{'FCGI_ROLE'}        ne "AUTHORIZER";

    die if $ENV{'REMOTE_PASSWD'};
@@ -181,7 +183,8 @@ AuthnzFcgiDefineProvider authz FooAuthz fcgi://localhost:10103/ 
<highlight language="perl">

#!/usr/bin/perl

use FCGI;

while (FCGI::accept >= 0) {

my $request = FCGI::Request();

while ($request->Accept() >= 0) {

    die if $ENV{'FCGI_APACHE_ROLE'};

    die if $ENV{'FCGI_ROLE'} ne "AUTHORIZER";

    die if !$ENV{'REMOTE_PASSWD'};
@@ -228,7 +231,8 @@ AuthnzFcgiDefineProvider authnz FooAuthnz fcgi://localhost:10103/ 
<highlight language="perl">

#!/usr/bin/perl

use FCGI;

while (FCGI::accept >= 0) {

my $request = FCGI::Request();

while ($request->Accept() >= 0) {

    die if $ENV{'FCGI_APACHE_ROLE'} ne "AUTHENTICATOR";

    die if $ENV{'FCGI_ROLE'} ne "AUTHORIZER";