| author | "Tomas Zeman <tzeman@volny.cz>" |
| Sun, 20 Jan 2008 00:22:09 +0100 | |
| changeset 2 | b3afb9f1e801 |
| parent 0 | 6f7a81934006 |
| permissions | -rw-r--r-- |
#!/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;