Using perl Syntax Highlighting
- use HTTP::Proxy;
- use HTTP::Proxy::BodyFilter::simple;
- use HTTP::Proxy::BodyFilter::complete;
- use Data::Dumper;
- my $server = HTTP::Proxy->new(port=>8080);
- $server->host();
- $server->push_filter(mime=>undef,response => HTTP::Proxy::BodyFilter::complete->new());
- $server->push_filter(
- mime=>undef,
- request=>HTTP::Proxy::BodyFilter::simple->new(\&enable),
- response => HTTP::Proxy::BodyFilter::simple->new(\&enable2));
- $server->start();
- sub enable {
- my($a,$b,$c,$d,$e) = @_;
- print $c->header("content");
- #print Dumper $c;
- }
- sub enable2 {
- my ($j,$k,$l,$m,$n) = @_;
- print $$k;
- }
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
El tema es que ya sé capturar el contenido POST y modificarlo a mi antojo, que sería así:
Using perl Syntax Highlighting
- print $c->content;
- $c->content("testing")
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
Ahora quiero hacer lo mismo con el contenido de un GET para modificarlo como lo hice con el POST.
¿ Alguien me puede ayudar ?
