#!/usr/bin/perl

open(I,"$ARGV[0]");
open(O,">$ARGV[1]");

my $l=<I>; $l=~s/[\s]+$//g;
my $ttime=time * 1000;
my $iid=1053636980;
my $hier=0;
print O <<___EOL___;
<map version="0.9.0">
<!-- To view this file, download free mind mapping software FreeMind from http://freemind.sourceforge.net -->
<node COLOR="#000034" CREATED="$ttime" ID="ID_$iid" MODIFIED="$ttime" TEXT="$l">
<edge COLOR="#309eff"/>
<font NAME="SansSerif" SIZE="16"/>
___EOL___
$ttime++;
$iid++;

while($l=<I>) {
	$l=~s/^[\s]+//g;
	$l=~s/[\s]+$//g;

	if($hier) { $posi=" ";}
	else	  { $posi=" POSITION=\"right\" ";}

	if($l=~/^</) {
		$l=~s/^<//g;
		print O "<node CREATED=\"$ttime\" ID=\"ID_$iid\"";
		print O " MODIFIED=\"$ttime\"${posi}TEXT=\"$l\">\n";
		$ttime++;
		$iid++;
		$hier++;
	}
	elsif($l=~/^>/) {
		$l=~s/^>//g;
		print O "</node>\n";
		$hier--
	}
	elsif($l!~/^$/) {
		print O "<node CREATED=\"$ttime\" ID=\"ID_$iid\"";
		print O " MODIFIED=\"$ttime\"${posi}TEXT=\"$l\"/>\n";
		$ttime++;
		$iid++;
	}
}
print O "</node>\n";
print O "</map>\n";
close(I);
close(O);