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]
