This is a discussion on Re: Reading PerlSetVar in mod_perl2 - modperl ; This is a multi-part message in MIME format. --------------010002020109090407090402 Content-Type: text/plain; charset=ISO-8859-1; format=flowed Content-Transfer-Encoding: 7bit > // /// > /SSLRequireSSL > //SetHandler perl-script// > //////PerlSetVar somevar1 1 > ////PerlSetVar somevar2 2 > ////PerlHandler Apache::Hello// > // > // > and ...
This is a multi-part message in MIME format.
--------------010002020109090407090402
Content-Type: text/plain; charset=ISO-8859-1; format=flowed
Content-Transfer-Encoding: 7bit
> /////
> /SSLRequireSSL
> //SetHandler perl-script//
> //////PerlSetVar somevar1 1
> ////PerlSetVar somevar2 2
> ////PerlHandler Apache::Hello//
> //
> //
> and then below that
>
>
> PerlAccessHandler Apache::Hello1
>
You want this:
SSLRequireSSL
SetHandler perl-script
PerlSetVar somevar1 1
PerlSetVar somevar2 2
PerlResponseHandler Apache::Hello->handler
PerlAccessHandler Apache::Hello1->access
Last location directive wins for the same location is why. This is an httpd thing having nothing to do with mod_perl.
You might find the following sample httpd.conf useful.
--
------------------------------------------------------------------------
Philip M. Gollucci (pgollucci@p6m7g8.com) 323.219.4708
Consultant / http://p6m7g8.net/Resume/resume.shtml
Senior Software Engineer - TicketMaster - http://ticketmaster.com
1024D/A79997FA F357 0FDD 2301 6296 690F 6A47 D55A 7172 A799 97F
When I call your name, Girl, it starts to flame
Burning in my heart, Tearing it all apart..
No matter how I try My love I cannot hide....
--------------010002020109090407090402
Content-Type: text/plain;
name="site.conf"
Content-Transfer-Encoding: 7bit
Content-Disposition: inline;
filename="site.conf"
Listen 80
NameVirtualHost *
ServerName site.tld
RewriteEngine On
# RewriteLogLevel 2
# RewriteLog $SITE/logs/httpd-rewrite_log
RewriteRule ^/application/login https://%{SERVER_NAME}/application/login [L,R]
DocumentRoot $SITE/htdocs
Alias /images/ "$SITE/images/"
Alias /css/ "$SITE/css/"
Alias /js/ "$SITE/js/"
ErrorLog "$SITE/logs/httpd-error_log"
CustomLog "$SITE/logs/httpd-access_log" common
CustomLog "$SITE/logs/httpd-referer_log" referer
CustomLog "$SITE/logs/httpd-agent_log" agent
Options Indexes FollowSymLinks MultiViews
AllowOverride None
Order allow,deny
Allow from all
PerlMapToStorageHandler APP::MapToStorage
### AAA
AuthType Basic
AuthName "APP"
Require valid-user
PerlAccessHandler APP::Access
PerlAuthenHandler APP::Authen
PerlAuthzHandler APP::Authz
## Registered
SetHandler modperl
PerlResponseHandler APP::Login
## Not protected
SetHandler modperl
PerlResponseHandler APP::Privacy
SetHandler modperl
PerlResponseHandler APP::Register
## Loggged in - ALL
SetHandler modperl
PerlResponseHandler APP::Logout
SetHandler modperl
PerlResponseHandler APP::Intro
## Logged in - Resource: Users
SetHandler modperl
PerlResponseHandler APP::Users->list
--------------010002020109090407090402--