perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From a..@hyperreal.org
Subject cvs commit: modperl/lib/Apache Registry.pm
Date Sat, 24 Oct 1998 21:35:32 GMT
ask         98/10/24 14:35:30

  Modified:    .        Changes
               lib/Apache Registry.pm
  Log:
  Allow directoryindexes when ExecCGI is off.
  Message-Id: <3.0.32.19981023094101.006c71dc@ahti.hut.fi>
  
  Revision  Changes    Path
  1.178     +4 -0      modperl/Changes
  
  Index: Changes
  ===================================================================
  RCS file: /home/cvs/modperl/Changes,v
  retrieving revision 1.177
  retrieving revision 1.178
  diff -u -r1.177 -r1.178
  --- Changes	1998/10/21 00:06:31	1.177
  +++ Changes	1998/10/24 21:35:26	1.178
  @@ -8,6 +8,10 @@
   
   =item 1.16_01-dev
   
  +Apache::Registry will now allow DirectoryIndex to work even when
  +ExecCGI is off. [ Ari Jolma <ajolma@ahti.hut.fi> / Ask Bjoern Hansen
  +<ask@netcetera.dk> ]
  +
   added HTTP_OK to Apache::Constants :http export tag
   
   fixed bug in Apache::ModuleConfig->getline
  
  
  
  1.20      +4 -4      modperl/lib/Apache/Registry.pm
  
  Index: Registry.pm
  ===================================================================
  RCS file: /home/cvs/modperl/lib/Apache/Registry.pm,v
  retrieving revision 1.19
  retrieving revision 1.20
  diff -u -r1.19 -r1.20
  --- Registry.pm	1998/10/01 20:26:17	1.19
  +++ Registry.pm	1998/10/24 21:35:28	1.20
  @@ -3,7 +3,7 @@
   #use strict; #eval'd scripts will inherit hints
   use Apache::Constants qw(:common &OPT_EXECCGI &REDIRECT);
   
  -$Apache::Registry::VERSION = '2.00';
  +$Apache::Registry::VERSION = '2.01';
   
   $Apache::Registry::Debug ||= 0;
   # 1 => log recompile in errorlog
  @@ -37,14 +37,14 @@
   	if $Debug && $Debug & 4;
   
       if (-r $filename && -s _) {
  +	if (-d _) {
  +	    return DECLINED; 
  +	}
   	if (!($r->allow_options & OPT_EXECCGI)) {
   	    $r->log_reason("Options ExecCGI is off in this directory",
   			   $filename);
   	    return FORBIDDEN;
    	}
  -	if (-d _) {
  -	    return DECLINED; 
  -	}
   	unless (-x _ or $Is_Win32) {
   	    $r->log_reason("file permissions deny server execution",
   			   $filename);
  
  
  

Mime
View raw message