Foro - Perl en Español

por **BigBear** » 2014-01-01 17:03 @752

Hola, tengo el siguiente código:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!usr/bin/perl
#A simple Proxy Server
#(C) Doddy Hackman 2011
#ppm install http://theoryx5.uwinnipeg.ca/ppms/HTTP-Proxy.ppd
 
use HTTP::Proxy;
use HTTP::Proxy::BodyFilter::simple;
use HTTP::Proxy::BodyFilter::complete;
 
my $port = "8083"; 
my $logs = "logs.txt";
 
print "\n\n[+] Proxy server Online in port $port\n\n";
 
my $server = HTTP::Proxy->new(port=>$port);
$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 @logs;
my($a,$b,$c,$d,$e) = @_;
my ($f,$g)=($c->header("cookie"),$c->header("x-requested-with"));
my ($h,$i)=($c->header("content-type"),$c->header("content"));
 
savefile($logs,"\n[Peticion] : ".$c->method." ".$c->uri);
savefile($logs,"[Cookie] : ".$f) if $f;
savefile($logs,"[x-requested-with] : ".$g) if $g;
savefile($logs,"[Content Type] : ".$h) if $h;
savefile($logs,"[Content] : ".$i) if $i;
savefile($logs,"");
 
}
 
sub enable2 {
my ($j,$k,$l,$m,$n) = @_;
savefile($logs,"\n\n[START]\n\n".$$k."\n\n[END]\n") if $$k ne "";
}
 
sub savefile {
open (SAVE,">>".$_[0]);
print SAVE $_[1]."\n";
close SAVE; 
}
 
# ¿ The End ?
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

El tema es cuando lo quiero usar por segunda vez, o sea, cierro el primero y lo cargo de nuevo me da este error:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

[+] Proxy server Online in port 8083


Cannot initialize proxy daemon: La dirección ya se está usando at /usr/local/share/perl/5.10.1/HTTP/Proxy.pm line 271.
Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

¿ Qué hago para corregir esto ?

perl    2460 doddy    3u  IPv4  30946      0t0  TCP localhost:1111 (LISTEN)

perl    2461 doddy    3u  IPv4  30946      0t0  TCP localhost:1111 (LISTEN)

perl    2461 doddy    4u  IPv4  30975      0t0  TCP localhost:1111->localhost:38957 (CLOSE_WAIT)
Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

¿ Qué hago ?

por **explorer** » 2014-01-01 20:50 @909

Son procesos que tú has arrancado, así que puedes matarlos con el comando kill.

por **BigBear** » 2014-01-02 10:50 @493

Gracias por la ayuda, explorer. El código quedó así:

Sintáxis: [ Descargar ] [ Ocultar ]

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 ( $self, $dataref, $message, $protocol, $buffer ) = @_;
 
    #print $$dataref;
    #print Dumper $message;
    print "url : " . $message->uri;
 
    #print Dumper $buffer;
 
}
 
sub enable2 {
    my ( $j, $k, $l, $m, $n ) = @_;
    savefile( $logs, "\n\n[START]\n\n" . $$k . "\n\n[END]\n" ) if $$k ne "";
}
 
sub savefile {
    open( SAVE, ">>" . $_[0] );
    print SAVE $_[1] . "\n";
    close SAVE;
}
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

En el primer enable trato de mostrar el URI pero lo raro es que si no uso "print $$k" en el segundo enable el URI no se muestra. Lo he probado varias veces así y siempre raro, me parece raro que si no uso "print $$k" en el segundo el primero no me muestre el URI.

¿ Me podrías ayudar ?

por **explorer** » 2014-01-02 18:02 @793

Será porque $k es una referencia... entonces $$k es el valor referenciado...

por **BigBear** » 2014-01-02 18:13 @801

Perdón, no entiendo qué tengo que hacer, ¿cómo arreglo esas líneas para que ande?

Foro - Perl en Español

Ayuda con HTTP::Proxy

Ayuda con HTTP::Proxy

Publicidad

Re: Ayuda con HTTP::Proxy

Re: Ayuda con HTTP::Proxy

Re: Ayuda con HTTP::Proxy

Re: Ayuda con HTTP::Proxy

Re: Ayuda con HTTP::Proxy

Re: Ayuda con HTTP::Proxy

¿Quién está conectado?