File Coverage

lib/Bookmarks/Netscape.pm

Criterion	Covered	Total	%
statement	15	66	22.7
branch	0	20	0.0
condition	0	27	0.0
subroutine	5	11	45.4
pod	3	3	100.0
total	23	127	18.1

#!/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';
        my $sibling = $item->parent->right();
        if (defined $sibling && lc $sibling && $sibling->tag() eq 'dd') {
            $item_info{description} = $sibling->as_text();
            $item = $sibling;
        }
    }

    $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__