httpd-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From traw...@apache.org
Subject svn commit: r1727317 - /httpd/httpd/trunk/docs/manual/mod/mod_authnz_fcgi.xml
Date Thu, 28 Jan 2016 12:07:08 GMT
Author: trawick
Date: Thu Jan 28 12:07:07 2016
New Revision: 1727317

URL: http://svn.apache.org/viewvc?rev=1727317&view=rev
Log:
Update Perl FCGI examples to work with current version of module

Modified:
    httpd/httpd/trunk/docs/manual/mod/mod_authnz_fcgi.xml

Modified: httpd/httpd/trunk/docs/manual/mod/mod_authnz_fcgi.xml
URL: http://svn.apache.org/viewvc/httpd/httpd/trunk/docs/manual/mod/mod_authnz_fcgi.xml?rev=1727317&r1=1727316&r2=1727317&view=diff
==============================================================================
--- httpd/httpd/trunk/docs/manual/mod/mod_authnz_fcgi.xml (original)
+++ httpd/httpd/trunk/docs/manual/mod/mod_authnz_fcgi.xml Thu Jan 28 12:07:07 2016
@@ -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
 <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
 <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 FooAuthn
 <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";
 



Mime
View raw message