Coloreado en 0.000 segundos, usando GeSHi 1.0.8.4
En este caso estoy creando un script, el cual tiene como objetivo verificar si existen archivos en un sitio web, pero no me está funcionando la parte de que me tome la cookie de sesión.
Using perl Syntax Highlighting
- #!/usr/bin/perl
- require LWP::UserAgent;
- require HTTP::Cookies;
- my $useragent = "Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.9.0.1) Gecko/2008072820 Firefox/3.0.1";
- my $ua = LWP::UserAgent->new() or die;
- $ua->timeout(10);
- $ua->cookie_jar( HTTP::Cookies->new( file => "cookie.txt" ) );
- my @header = ( 'User-Agent' => $useragent, 'Cookie' => $cookie, 'Connection' => 'keep-alive', 'Keep-Alive' => '300' );
- for ( $i = 0; $i < 10; ++$i ) {
- open( F, ">> $i.txt" );
- $host = "https://sitio/index.do?TOKEN=e3e4&VERSION=1&DATO_1=01&DATO_2=02&DATO_3=$i";
- my $response = $ua->get( $host, @header );
- print F $response->content;
- }
- close(F);
Coloreado en 0.004 segundos, usando GeSHi 1.0.8.4
cookie.txt:
Using text Syntax Highlighting
JSESSIONID=938382ADBCC14.TEST; DATO.TESTING=1;
Cuando ejecuto el script, éste me devuelve la response del sitio, el cual me dice que mi cookie venció y eso no es cierto, ya que por el browser me funciona.
