package Bookmarks::XML;
use base 'Bookmarks::Parser';
use strict;
use warnings;
use XML::Simple;

sub new
{
    my ($class, %opts) = @_;
#    %opts = check_options(%opts);

    my $self = bless({%opts}, ref($class) || $class);
    return $self; 
}

sub parse_file
{
    my ($sel, $filename) = @_;

    return if(!$filename || !-e $filename);

    my $bookmarks = XMLin($filename, ForceArray => ['folder']);

}

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

    my $now = scalar localtime;
    my $title = $self->{_title} || 'Bookmarks';
    my $header = << "XML";
<?xml version="1.0" encoding="UTF-8"?>
<!--
Bookmarks::XML internal format
Created on: $now

-->
<bookmarks title="$title">
XML

    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 ($id, $url, $name, $visited, $created, $modified, $icon, $desc, $expand, $trash, $order) =
        ($item->{id} || 0,
         $item->{url} || '',
         $item->{name} || '',
         $item->{visited} || 0,
         $item->{created} || time(),
         $item->{modified} || 0,
         $item->{icon} || '',
         $item->{description} || '',
         $item->{expanded} || '',
         $item->{trash} || '',
         $item->{order} || '');
    
    if($item->{type} eq 'folder')
    {
        $string .= << "XML";
  <folder id="$id" name="$name" created="$created" visited="$visited" icon="$icon" description="$desc" expanded="$expand" trash="$trash">
XML

        $string .= $self->get_item_as_string($self->{_items}{$_})
            foreach(@{$item->{children}});
        $string .= "  </folder>\n";
    }
    elsif($item->{type} eq 'url')
    {
        $string .= << "XML";
    <bookmark id="$id" url="$url" name="$name" created="$created" visited="$visited" modified="$modified" icon="$icon" description="$desc" order="$order" />
XML

    }

    return $string;
}

sub get_footer_as_string
{
    my ($self) = @_;
    
    my $footer = << "XML";
</bookmarks>
XML

    return $footer;
}

1;

=head1 NAME

Bookmarks::Parser::XML - Backend for XML format

=head1 DESCRIPTION

This backend is completely untested, and probably does not work yet. use at own risk.
It will probably be replaced with an XBEL based backend in a future release.

=head1 METHODS

=head2 get_footer_as_string

=head2 get_header_as_string

=head2 get_item_as_string

=head2 new

=head2 parse_file

For these methods, consult L<Bookmarks::Parser> documentation.
They are overridden because of the XML behaviour here.
Interface remains the same.

=cut