I fixed teh problem apparantly by putting the two lines in question within
the FilesMatch section. Any other insights, comments are appreciated.
On Thu, 6 Sep 2001, Nate Smith wrote:
==>
==>Hi, I recently implemented a site using embperl, but like a lot of people on
==>the list am not quite satisfied with the current state of the Session
==>implementation in the stable tree. So, while I was starting to write
==>access control/authentication/authorization modules for my site embperlObject
==>suddenly started giving me stuff like
==>
==>apache/error.log -- [Thu Sep 6 10:06:08 2001] [error] EmbperlObject searched
';/home/www/newsite;/home/www'
==>
==>using the following configuration:
==>
==><Directory "/home/www/newsite">
==> PerlAccessHandler Apache::MyAccessControl
==> PerlSetVar Allow yes
==> <FilesMatch ".*\.html$">
==> SetHandler perl-script
==> PerlHandler HTML::EmbperlObject
==> PerlSetEnv EMBPERL_OBJECT_BASE template.epl
==> Options ExecCGI
==> </FilesMatch>
==> <FilesMatch ".*\.epl$">
==> Order allow,deny
==> Allow From all
==> </FilesMatch>
==></Directory>
==>
==>When I remove the first two lines regarding my access module it works,
==>of course, as that was how it was before adding the module. If I change
==>the value of Allow to 'no', it also functions as expected, returning
==>'FORBIDDEN'. When Allow is set to 'yes' is when the error message above
==>appears. Below is the skeleton access control module I used:
==>
==>package Apache::MyAccessControl.pm
==># File: Apache/GateKeeper.pm
==>
==>use strict;
==>use Apache::Constants qw(:common);
==>
==>sub handler {
==> my $r = shift;
==> my $allow = $r->dir_config("Allow");
==> return DECLINED unless defined $allow;
==> return OK if lc $allow eq 'yes';
==>
==> if (lc $allow eq 'no') {
==> $r->log_reason("Access Forbidden unless allow is yes", $r->file>
==> return FORBIDDEN;
==> }
==>
==> $r->log_error($r->uri, ": Invalid value for Allow ($allow)");
==> return SERVER_ERROR;
==>
==>}
==>
==>1;
==>
==>
==>Any ideas?
==>
==>Nate Smith
==>
==>
==> "Don't buy what you can't pay for. But when it comes to
==> software, don't pay for what you can't buy."
==>
==>
==>
==>
==>---------------------------------------------------------------------
==>To unsubscribe, e-mail: [EMAIL PROTECTED]
==>For additional commands, e-mail: [EMAIL PROTECTED]
==>
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
