File Coverage

blib/lib/Apache/AddHostPath.pm

Criterion	Covered	Total	%
statement	1	3	33.3
branch			n/a
condition			n/a
subroutine	1	1	100.0
pod			n/a
total	2	4	50.0

# Copyright (C) 2000 by Robert Jenks
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU Library General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.

package Apache::AddHostPath;

use Apache::Constants qw(:common);
use Apache::Log ();
use vars qw($VERSION);
$VERSION = '0.02';

sub handler {
	my $r = shift;
	my $uri = $r->uri();
	$uri =~ s{^/}{};
	my @path_items = split '/', $uri;
	my ($hostname, $port) = split ':', $r->headers_in->{'Host'};

	my @path_info = ();
	my $filename = '';
	PATH_ITEMS: while (1) {
		my @host_items = reverse split '\.', $hostname;
		push @host_items, $port;
		HOST_ITEMS: while (1) {
			$uri = '/' . join '/', @host_items, @path_items;
			$filename = $r->document_root() . $uri;
			$r->log->debug("Checking for: '$filename'");
			last PATH_ITEMS if -d $filename or -f $filename;
			last HOST_ITEMS unless pop @host_items;
		}
		return DECLINED unless @path_items;
		unshift @path_info, pop @path_items;
	}
	$filename .= '/' if -d $filename;
	$r->log->debug("Found match at: '$filename'");

	# Set $r->filename()
	#$filename = join '/', $filename, @path_info;
	#$r->log->debug("Filename set to: '$filename'");
	#$r->filename($filename);
	#return OK;

	# Set $r->uri()
	$uri = join '/', $uri, @path_info;
	$uri .= '/' if ! @path_info && -d $filename;
	$r->log->debug("URI set to: '$uri'");
	$r->uri($uri);
	return DECLINED;
}

1;

__END__