| author | "Tomas Zeman <tzeman@volny.cz>" |
| Wed, 16 Jan 2008 22:39:43 +0100 | |
| changeset 0 | 6f7a81934006 |
| permissions | -rwxr-xr-x |
#!/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;