--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/doc/changelog2html.pl Wed Jan 16 22:39:43 2008 +0100
@@ -0,0 +1,23 @@
+#!/usr/bin/perl
+$in_list = 0;
+
+print
+ "<html>\n",
+ "<head><title>ChangeLog</title></head>\n",
+ "<body>\n";
+while(<>) {
+ s/\s+$//;
+ s/^\s+//;
+ s/</\</g;
+ s/>/\>/g;
+ if(/^\d+-\d+-\d+ /) {
+ print "</ul>\n</p>\n" if $in_list;
+ $in_list = 1;
+ print "<p>$_\n<ul>\n";
+ } elsif(s/^\* //) {
+ print "<li>$_\n";
+ } else {
+ print $_, "\n";
+ }
+}
+print "</ul>\n</p>\n" if $in_list;