Win32::UrlCache::Cookies - parse Internet Explorer's Cookies index.dat

Win32-UrlCache documentation

Contained in the Win32-UrlCache distribution.

Index

NAME
SYNOPSIS
DESCRIPTION
METHOD
- new
AUTHOR
COPYRIGHT AND LICENSE

Code Index:

package Win32::UrlCache::Cookies
- new
- _file
__END__
EOF

NAME

Win32::UrlCache::Cookies - parse Internet Explorer's Cookies index.dat

SYNOPSIS

  use Win32::UrlCache::Cookies;
  my $cache = Win32::UrlCache::Cookies->new;

DESCRIPTION

This is just a sugar for Win32::UrlCache to make Win32 users happy.

METHOD

new

searches for a cookies directory in the registry, and provides it to the parent Win32::UrlCache.

AUTHOR

Kenichi Ishigaki, <ishigaki at cpan.org>

COPYRIGHT AND LICENSE

Copyright (C) 2007 by Kenichi Ishigaki.

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

Win32-UrlCache documentation

Contained in the Win32-UrlCache distribution.

package Win32::UrlCache::Cookies;

use strict;
use warnings;
use base qw( Win32::UrlCache );
use Win32::TieRegistry ( Delimiter => '/' );
use File::Spec;

sub new {
  my $class = shift;

  $class->SUPER::new( $class->_file );
}

sub _file {
  my $class = shift;

  my $dir   = $Registry->{'CUser/Software/Microsoft/Windows/CurrentVersion/Explorer/Shell Folders//Cookies'};

  return File::Spec->catfile( $dir, 'index.dat' );
}

1;

__END__