#!/usr/bin/perl
#This script converts Kazehakase's old format bookmarkbar.xml(until kazehakase-0.1.1+cvs040103) to XBEL format .
#old bookmarkbar.xml is copied as ~/.kazehakase/bookmarkbar.xml.old .
#Written by furyo(http://furyo.on-air.ne.jp)
use strict;

my @old = ();
my $uri = '';
my $title = '';
my $interval = '';
my $kzhome = "$ENV{HOME}/.kazehakase";

system "cp $kzhome/bookmarkbar.xml $kzhome/bookmarkbar.xml.old";
open OLD , "$kzhome/bookmarkbar.xml" or die "can't open bookmarkbar.xml";
@old = <OLD>;
close OLD;

open NEW , ">$kzhome/bookmarkbar.xml";
print NEW "<?xml version=\"1.0\"?>\n";
print NEW "<xbel version=\"1.0\" folded=\"none\">\n";
print NEW "  <title>BookmarkBar</title>\n";

foreach my $temp(@old)
{
	if($temp =~ /<item/i)
	{
		$temp =~ s/&/&amp;/g;
		$uri = $1 if $temp =~ /item uri="(.*?)"/i;
		$title = $1 if $temp =~ /title="(.*?)"/i;
		$interval = $1 if $temp =~ /interval="(\d*)"/i;

		print NEW "  " , "<folder>\n";
		print NEW "  " x 2 , "<title>$title</title>\n";
		print NEW "  " x 2 , "<info>\n";
		print NEW "  " x 3 , "<metadata owner=\"http://kazehakase.sourceforge.jp/\">\n";
		print NEW "  " x 4 , "<location>$uri</location>\n";
		if($interval)
		{
			print NEW "  " x 4 , "<upteda_interval>$interval</upteda_interval>\n";
		}
		print NEW "  " x 3 , "</metadata>\n";
		print NEW "  " x 2 , "</info>\n";
		print NEW "  " , "</folder>\n";
	}
}

print NEW "</xbel>\n";
close NEW;