#!/usr/bin/perl
#XBEL化初期のフォーマットから新フォーマットへのコンバート

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

system "cp $kzhome/bookmarkbar.xml $kzhome/bookmarkbar.xml.old$$";

$/ = undef;
open OLD , "$kzhome/bookmarkbar.xml" or die "can't open bookmarkbar.xml";
$old = <OLD>;
close OLD;
$/ = "\n";
@split = split /<\/bookmark>/i , $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 $i(0 .. $#split - 1)
{
	my @temp = split /\n/ , $split[$i];
	foreach(@temp)
	{
		$uri = $1 if /<bookmark href="(.*?)"/i;
		$title = $1 if /<title>(.*?)<\/title>/i;
		$interval = $1 if /<update_interval>(\d*)<\/update_interval>/i;
	}
	print NEW $space x 2 , "<folder><title>$title</title>\n";
	print NEW $space x 4 , "<info>\n";
	print NEW $space x 6 , "<metadata owner=\"http://kazehakase.sourceforge.jp/\">\n";
	print NEW $space x 8 , "<location>$uri</location>\n";
	if($interval)
	{
		print NEW $space x 8 , "<update_interval>$interval</update_interval>\n"; 	
	}
	else
	{
		print NEW $space x 8 , "<update_interval>0</update_interval>\n";
	}
	print NEW $space x 6 , "</metadata>\n";
	print NEW $space x 4 , "</info>\n";
	print NEW $space x 2 , "</folder>\n";
}
print NEW "</xbel>\n";