view release on metacpan or  search on metacpan

CIPP.pm  view on Meta::CPAN

use File::Path;

# this global hash holds the timestamps of the compiled perl
# subroutines for this instance

%Apache::CIPP::compiled = ();

sub handler {
	my $r = shift;
	
	# should we mangle remote_ip with proxy X-Forwarded-For?
	# (thanks to Ask Bjoern Hansen for his mod_proxy_add_forward.c.
	#  this code snippet is stolen from his documentation ;)

	if ( $r->dir_config ("mangle_proxy_remote_ip") ) {
		if ( $r->connection->remote_ip eq '127.0.0.1' ) {
			if ( my ($ip) = $r->header_in('X-Forwarded-For') =~
				/([^,\s]+)$/ ) {
				$r->connection->remote_ip($ip);
			}
		}
	}

	# print listing if a directory is requested

	my $filename = $r->filename;
	if ( -d $filename ) {

Changes  view on Meta::CPAN

Revision history for Perl extension Apache::CIPP.

0.13  Tu  Mar  7 2000
	- internal subroutine names include now Apache server
	  name and port to prevent from name clasing with several
	  projects on the same instance

0.12  Su  Mar 26 2000
	- added Remote-IP / Proxy X-Forwarded-For mangling,
	  for a dual Apache (thin Proxy/thick Perl) setup,
	  to determine the original remote IP adress in
	  the Perl Apache instance

0.11  Mo  Mar 06 2000
	- added lib/CIPP/Apache.pm, so CPAN will list this
          module in the by-modules/CIPP folder

0.10  Fri Oct 01 1999
	- added configuration parameter for CIPP multilanguage