Espero 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.
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);
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.
2011-11-26 00:18 @054
