Get Cookies

Ein Script um sich anzeigen zu lassen, welche Cookies eine Webseite setzt.

• Konfiguration
• Disclaimer
• Script

Konfiguration:

Man muß nur $url seinen Wünschen anpassen.

Disclaimer:

Das Script ist als 'quick-hack' zu sehen, bugs und Unschönheiten sind zuhauf vorhanden.

Script:

#!/usr/bin/perl



use strict;

use LWP::UserAgent;

use URI::URL;

use HTTP::Cookies;



my $url = URI::URL->new( "http://www.amazon.com/" );



my $ua = new LWP::UserAgent;

$ua->agent( "Cookie Checker/1.0" );

$ua->parse_head("FALSE");



my $request = new HTTP::Request(GET => $url);

my $response = $ua->request( $request );

my $cookie_jar = HTTP::Cookies->new;



$cookie_jar->extract_cookies( $response ); 

$cookie_jar->scan ( \&cb );



sub cb {

  my ( $version, $key, $val, $path, $domain, $port,

   $path_spec, $secure, $expires, $discard, $hash ) = map defined() ? $_ : '', @_;



  print "Version: $version\n";

  print "Key: $key\n";

  print "Value: $val\n";

  print "Path: $path\n";

  print "Domain: $domain\n";

  print "Port: $port\n";

  print "Path_Spec: $path_spec\n";

  print "Secure: $secure\n";

  print "Expires: $expires\n";

  print "Discard: $discard\n";

}