%mkmm.pl mkmm.in mkmm.mm

%cat mkmm.pl
#!/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);


%cat mkmm.in
top 123
<test1
        test1-1
        <test1-2
                test1-2-1
                test1-2-2
                <test1-2-3
                        test1-2-3-1
                        test1-2-3-2
                >
                test1-2-4
        >
        test1-3
        test1-4
>
test2
<test3
        test3-1
        test3-2
        <test3-3
                test3-3-1
                test3-3-2
        >
        test3-4
>
test4
test5