diff options
| author | Jeff Trawick <trawick@apache.org> | 2016-01-28 13:07:07 +0100 |
|---|---|---|
| committer | Jeff Trawick <trawick@apache.org> | 2016-01-28 13:07:07 +0100 |
| commit | 2f2a22bd7e1d8fae1aefc7c75b005960be633e53 (patch) | |
| tree | fe1a22fe3bc5143cf5060e5d7b6eabd5db489f6b /docs/manual | |
| parent | Added more env variables to the mod_cgi's documentation. (diff) | |
| download | apache2-2f2a22bd7e1d8fae1aefc7c75b005960be633e53.tar.xz apache2-2f2a22bd7e1d8fae1aefc7c75b005960be633e53.zip | |
Update Perl FCGI examples to work with current version of module
git-svn-id: https://svn.apache.org/repos/asf/httpd/httpd/trunk@1727317 13f79535-47bb-0310-9956-ffa450edef68
Diffstat (limited to 'docs/manual')
| -rw-r--r-- | docs/manual/mod/mod_authnz_fcgi.xml | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/docs/manual/mod/mod_authnz_fcgi.xml b/docs/manual/mod/mod_authnz_fcgi.xml index 48d0392b28..23a1ea8410 100644 --- a/docs/manual/mod/mod_authnz_fcgi.xml +++ b/docs/manual/mod/mod_authnz_fcgi.xml @@ -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"; |