Consulta sobre Cookie para usar en un sitio
Publicado: 2011-11-26 00:18 @054Espero que estén bien. Como siempre vengo a tratar de que me ayuden con un nuevo script.
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.
cookie.txt:
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.
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.003 segundos, usando GeSHi 1.0.8.4
cookie.txt:
Using text Syntax Highlighting
JSESSIONID=938382ADBCC14.TEST; DATO.TESTING=1;
Coloreado en 0.000 segundos, usando GeSHi 1.0.8.4
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.