File Coverage

lib/Bookmarks/Netscape.pm

Criterion	Covered	Total	%
statement	15	65	23.0
branch	0	20	0.0
condition	0	24	0.0
subroutine	5	11	45.4
pod	3	3	100.0
total	23	123	18.7

#!/usr/bin/perl

package Bookmarks::Netscape;
use Bookmarks::Parser;
use base 'Bookmarks::Parser';
use warnings;
use HTML::TreeBuilder;
use 5.008;

my %bookmark_fields = (
  'created'       => 'add_date',
  'modified'      => 'last_modified',
  'visited'       => 'last_visit',
  'charset'       => 'last_charset',
  'url'           => 'href',
  'name'          => 'content',
  'id'            => 'id',
  'personal'      => 'personal_toolbar_folder',
  'icon'          => 'icon',
  'description'   => undef,
  'expanded'      => undef,
  'panel'         => 'web_panel',
                       );


sub _parse_file
{
    my ($self, $filename) = @_;

    return undef if(!-e $filename);

    my $bookmarks = HTML::TreeBuilder->new();
    $bookmarks->parse_file($filename);


    my $title = $bookmarks->look_down(_tag => 'title')->as_text();
    $self->set_title($title);

    my @items = $bookmarks->look_down(sub { $_[0]->tag =~ /^(h3|a)$/ &&
                                            $_[0]->depth == 4 } );
    foreach my $item (@items)
    {
        _parse_item($self, $item);
    }

    $bookmarks->delete();
    return $self;

}

sub _parse_item
{
    my ($self, $item, $parent) = @_;

    my %item_info;
    @item_info{keys %bookmark_fields}
      = (map {$item->attr($_)} values %bookmark_fields);
    $item_info{name} = $item->content()->[0];
#    $item_info{parent} = $parent;
    if(!$item_info{id})
    {
        $item_info{id} = $self->{_nextid}++;
    }
    if($item->attr('href'))
    {
       $item_info{type} = 'url';
    }
    else
    {
       $item_info{type} = 'folder';
       if(lc $item->parent->right() && $item->parent->right->tag() eq 'dd')
       {
           $item_info{description} = $item->parent->right->as_text();
           $item = $item->parent->right();
       }
    }

    $self->add_bookmark(\%item_info, $parent);

    if($item_info{type} eq 'folder')
    {
       my @subitems = map { $_->tag() eq 'dt' ? ($_->content_list)[0] : () }
          $item->right->content_list();
       foreach my $subitem (@subitems)
       {
           _parse_item($self, $subitem, $item_info{id});
       }
    }
}

sub get_header_as_string
{
    my ($self) = @_;

    my $header = << "HTML";



$self->{_title}
$self->{_title}


HTML

    return $header;
}

sub get_item_as_string
{
    my ($self, $item) = @_;

    if(!defined $item->{id} || !$self->{_items}{$item->{id}})
    {
        warn "No such item in get_item_as_string";
        return;
    }

    my $string = '';
    my ($url, $name, $visited, $created, $modified, $id, $icon, $charset, $panel) =
        ($item->{url} || '',
         $item->{name} || '',
         $item->{visited} || 0,
         $item->{created} || 0,
         $item->{modified} || 0,
         $item->{id} || 0,
         $item->{icon} || '',
         $item->{charset} || '',
         $item->{panel} || '');
    if($item->{type} eq 'folder')
    {
        $string .= << "HTML";
    $name

HTML

        $string .= $self->get_item_as_string($self->{_items}{$_})
           foreach (@{$item->{children}});
        $string .= << "HTML";

HTML

    }
    elsif($item->{type} eq 'url')
    {
        $string .= << "HTML";
        $name
HTML
    }

    return $string;
}

sub get_footer_as_string
{
    my ($self) = @_;

    my $footer = << "HTML";

HTML

   return $footer;
}

1;


__END__