root/todo/tags/0.1.20/contrib/changelog2todo

#!/usr/bin/perl -w
use strict;

#
# Not actually contributed by anybody, but people might find this useful.
# 
# This is a small PERL script to convert a ChangeLog in the same format as that
# used by devtodo into a devtodo database.
#
# DISCLAIMER: I've only been using PERL for about a week, so I'm sure there are 
# much easier ways of doing some of these things.
#

sub htmlify {
        s/&/&/g;
        s/</&lt;/g;
        s/>/&gt;/g;
        return $_;
}

open(CHANGELOG, "ChangeLog");

print "<todo>\n";

my $version = "";
my $item = "";
my $pseudotime = 0;

while (<CHANGELOG>) {
        if (/^[0-9]\.[0-9]\.[0-9]/) {
                if ($item ne "") {
                        print $item;
                        print "</note>\n";
                        $item = "";
                }
                if ($version ne "") {
                        print "</note>\n";
                        $version = "";
                }
                print "<note priority='high' time='$pseudotime'>$_\n";
                $pseudotime++;
                $version = $_;
        } elsif (/^\*/) {
                s/^\*\w*//;
                if ($item ne "") {
                        print $item;
                        print "</note>\n";
                        $item = "";
                }
                print "<note priority='medium' time='$pseudotime'>\n";
                $pseudotime++;
                chomp();
                $item = htmlify($_);
        } else {
                chomp();
                $item .= htmlify($_);
        }
}

if ($item ne "") {
        print $item;
        print "</note>\n";
        $item = "";
}

if ($version ne "") {
        print "</note>\n";
        $version = "";
}

print "</todo>\n";

close(CHANGELOG);