Win32::IEFavorites - handles Internet Explorer's Favorites

Win32-IEFavorites documentation Contained in the Win32-IEFavorites distribution.

Index

Code Index:

NAME

Top

Win32::IEFavorites - handles Internet Explorer's Favorites

SYNOPSIS

Top

  use Win32::IEFavorites;

  my @items = Win32::IEFavorites->find('*del.icio.us');
  foreach my $item (@items) {
    print $item->url,"\n";
  }

DESCRIPTION

Top

This module is to handle Internet Explorer's Favorites items (Internet shortcuts). For now it only can grab shortcuts and provide their properties (url, modified, iconfile, iconindex). You may want to use this with some aggregator like Plagger.

CLASS METHODS

Top

folder

Returns your IE's Favorites folder.

find ( some rules )

Returns your IE's Favorites as an array of ::Item objects. Each object has url, modified, iconfile, iconindex properties. Also accepts File::Find::Rule's matching rules for ->name(). The default rule is '*.url' (matches every favorite items).

CAVEATS FOR JAPANESE USERS

Top

You *can* use shiftjis characters for matching rules as well, though you might want to wrap it with quotemeta (or qr/\Q ... \E/) to avoid the notorious 0x5c (\) problem.

SEE ALSO

Top

File::Find::Rule

AUTHOR

Top

Kenichi Ishigaki, <ishigaki@cpan.org>

COPYRIGHT AND LICENSE

Top

Copyright (C) 2006 by Kenichi Ishigaki

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

Win32-IEFavorites documentation Contained in the Win32-IEFavorites distribution. 
package Win32::IEFavorites;

use strict;
use warnings;

our $VERSION = '0.05';

use Win32::TieRegistry;
use File::Find::Rule ();
use File::Spec;

use Win32::IEFavorites::Item;

sub folder {
  my $class = shift;

  my $folders = $Registry->{
    q{CUser\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders}
  } or die "Can't open registry $^E";;
  my $value = $folders->{Favorites} or die "No Favorites: $^E";

  return $value;
}

sub find {
  my ($class, @expr) = @_;

  @expr = ( '*.url' ) unless @expr;

  my $dir = $class->folder;

  my @files = File::Find::Rule->file()->name( @expr )->in( $dir );

  my @items;
  foreach my $file (@files) {
    my $path = File::Spec->canonpath( $file );
    push @items, Win32::IEFavorites::Item->new($path);
  }

  return @items;
}

1;
__END__