File Coverage

blib/lib/App/HTTP_Proxy_IMP/IMP/Example/changeTarget.pm

Criterion	Covered	Total	%
statement	16	25	64.0
branch	0	2	0.0
condition			n/a
subroutine	6	12	50.0
pod	6	7	85.7
total	28	46	60.8

# sample IMP plugin to change target host by replacing request header
# for this example it get changed to spiegel.de - whatever we want to access
# THIS IS JUST A SILLY EXAMPLE!!!!

use strict;
use warnings;
package App::HTTP_Proxy_IMP::IMP::Example::changeTarget;
use base 'Net::IMP::HTTP::Request';

use Net::IMP;
use Net::IMP::Debug;

my $target = 'www.spiegel.de';
sub RTYPES { ( IMP_PASS,IMP_REPLACE,IMP_DENY ) }

sub new_analyzer {
    my ($class,%args) = @_;
    my $self = $class->SUPER::new_analyzer(%args);
    $self->run_callback(
	# we don't need to look at response
	[ IMP_PASS,1,IMP_MAXOFFSET ],
    );
    return $self;
}


sub request_hdr {
    my ($self,$hdr) = @_;
    my $len = length($hdr) or return;
    $hdr =~s{\A(\S+\s+http://)([^\s/]+)}{$1$target}; # first line absoluteURI
    $hdr =~s{^Host:\s*(.*)}{Host: www.spiegel.de}mi; # host header
    $self->run_callback(
	[ IMP_REPLACE,0,$len,$hdr ],  # replace header
	[ IMP_PASS,0,IMP_MAXOFFSET ], # pass thru everything else
    );
}

# will not be called
sub request_body {}
sub response_hdr {}
sub response_body {}
sub any_data {}

1;

__END__