File Coverage

blib/lib/Apache/MagicPOST.pm

Criterion	Covered	Total	%
statement	13	15	86.6
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod			n/a
total	18	20	90.0

package Apache::MagicPOST;

require 5.005_62;
use strict;
use vars qw($VERSION @EXPORTER @ISA);
use warnings;

require Exporter;
use AutoLoader qw(AUTOLOAD);

our @ISA = qw(Exporter);

our @EXPORT = qw();
our $VERSION = '1.2';

use Apache::Constants qw(:common );

use Apache::Request;

# ********************************************
# This module isn't usable, it destroys POST
# data for subsequent handlers ;-(
# ********************************************
sub _handler {
        my $r = shift;
        return DECLINED unless $r->method() eq 'POST' ;
	return DECLINED unless ($r->header_in('Content-type') eq 'application/x-www-form-urlencoded');

	my $method_param_name = $r->dir_config('MagicPOSTMethodParamName');
	$method_param_name = 'method' unless ( $method_param_name );

	my %params = $r->content;
	return DECLINED unless ( exists ( $params{$method_param_name} ));
	$r->method( $params{$method_param_name} );
	delete $params{$method_param_name};

	foreach(keys %params)
	{
		$r->header_in( $_ => $params{$_} );
		delete $params{$_};
	}
	$r->header_in( 'Content-length' => undef );
	$r->header_in( 'Content-type' => undef );

        return OK;
}

1;
__END__