__END__
#!/usr/bin/perl -w
#
# adr2xbel : Convert Opera Bookmarks file to xbel
#            (XML Bookmark Exchange Language)
# OeufMayo - 23 apr 2001

use strict;
use XML::Writer;
use IO;
die "usage: $0 opera.adr\n" if !$ARGV[0];
my $output = new IO::File("> $ARGV[0].xbel.xml") or die $!;
my $writer = new XML::Writer(OUTPUT => $output, 
                             DATA_MODE => 1,
				     DATA_INDENT => 4) or die $!;
$writer->xmlDecl('iso-8859-1', 'no');
$writer->doctype(
           'xbel',
           undef,
           'http://www.python.org/topics/xml/dtds/xbel-1.0.dtd');
$writer->startTag('xbel');
$writer->dataElement('title', 'Opera Hotlist version 2.0');

$/ = "";
while (<>){
	chomp;
	my @chunk = split(/\n\t/, $_);
	
	while ($chunk[0] =~ s/^(-\n)//){	# Folder end
		$writer->endTag('folder') if $chunk[0];
	}

	if    ($chunk[0] =~ /^#FOLDER/){	# Folder beginning
		shift @chunk;
		my %attrs = &getAttlist(@chunk);
		$writer->startTag("folder");
		for ('title', 'desc'){
			$writer->dataElement($_, $attrs{$_});
		}
	}
	
	elsif ($chunk[0] =~ /^#URL/){		# URL Tag
		shift @chunk;
		my %attrs = &getAttlist(@chunk);
		$writer->startTag("bookmark", 
                              'href' => $attrs{href} );
			for ('title', 'desc'){
				$writer->dataElement($_, $attrs{$_});
			}
		$writer->endTag("bookmark");
	}
}

$writer->endTag('xbel');
$writer->end;

#########################

sub getAttlist {
	my %attrs;
	my %tr = (
            URL=>'href',
            DESCRIPTION=>'desc',
            NAME=>'title',
      );
	foreach $_ (@_){
		m/^([^=]+)=(.*)$/;
		my ($key, $value) = ($1, $2);
		next unless (
                   $key eq 'URL'         || 
                   $key eq 'DESCRIPTION' || 
                   $key eq 'NAME'
            );
		$key = $tr{$key};
		$attrs{$key} = $value;
	}
	return %attrs;
}