| author | "Tomas Zeman <tzeman@volny.cz>" |
| Sun, 20 Jan 2008 00:22:25 +0100 | |
| changeset 3 | 3d1d327cfa68 |
| 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;