Tatsuki SUGIURA
sugi****@users*****
2006年 7月 12日 (水) 21:24:21 JST
Index: slashjp/Slash/Apache/Apache.pm diff -u slashjp/Slash/Apache/Apache.pm:1.5 slashjp/Slash/Apache/Apache.pm:1.6 --- slashjp/Slash/Apache/Apache.pm:1.5 Wed Jul 12 20:41:36 2006 +++ slashjp/Slash/Apache/Apache.pm Wed Jul 12 21:24:21 2006 @@ -1,7 +1,7 @@ # This code is a part of Slash, and is released under the GPL. # Copyright 1997-2005 by Open Source Technology Group. See README # and COPYING for more information, or see http://slashcode.com/. -# $Id: Apache.pm,v 1.5 2006/07/12 11:41:36 sugi Exp $ +# $Id: Apache.pm,v 1.6 2006/07/12 12:24:21 sugi Exp $ package Slash::Apache; @@ -22,7 +22,7 @@ @ISA = qw(DynaLoader); $VERSION = '2.003000'; # v2.3.0 -($REVISION) = ' $Revision: 1.5 $ ' =~ /\$Revision:\s+([^\s]+)/; +($REVISION) = ' $Revision: 1.6 $ ' =~ /\$Revision:\s+([^\s]+)/; $USER_MATCH = qr{ \buser=(?! # must have user, but NOT ... (?: nobody | %[20]0 )? # nobody or space or null or nothing ... @@ -349,10 +349,11 @@ } } - if ($gSkin->{rootdir}) { - my $path = URI->new($gSkin->{rootdir})->path; - $uri =~ s/^\Q$path//; - } + # harmful if deciding skin on directory + #if ($gSkin->{rootdir}) { + # my $path = URI->new($gSkin->{rootdir})->path; + # $uri =~ s/^\Q$path//; + #} # Comment this in if you want to try having this do the right # thing dynamically @@ -503,6 +504,14 @@ } } + # .pl in section dirs are served by scripts in basedir + if( $uri =~ m|^.+/(\w+\.pl)$| ){ + my $basedir = $constants->{basedir}; + $r->filename("$basedir/$1"); + $r->set_handlers(PerlTransHandler => undef); + return OK; + } + if (!$dbon && $uri !~ /\.(?:shtml|html|jpg|gif|png|rss|rdf|xml|txt|css)$/) { # if db is off we don't necessarily have access to constants # this means we change the URI and return DECLINED which lets
SRAD