| author | "Tomas Zeman <tzeman@volny.cz>" |
| Wed, 16 Jan 2008 22:39:43 +0100 | |
| changeset 0 | 6f7a81934006 |
| permissions | -rwxr-xr-x |
| 0 | 1 |
#!/usr/bin/perl |
2 |
$in_list = 0; |
|
3 |
||
4 |
||
5 |
"<html>\n", |
|
6 |
"<head><title>ChangeLog</title></head>\n", |
|
7 |
"<body>\n"; |
|
8 |
while(<>) {
|
|
9 |
s/\s+$//; |
|
10 |
s/^\s+//; |
|
11 |
s/</\</g; |
|
12 |
s/>/\>/g; |
|
13 |
if(/^\d+-\d+-\d+ /) {
|
|
14 |
print "</ul>\n</p>\n" if $in_list; |
|
15 |
$in_list = 1; |
|
16 |
print "<p>$_\n<ul>\n"; |
|
17 |
} elsif(s/^\* //) {
|
|
18 |
print "<li>$_\n"; |
|
19 |
} else {
|
|
20 |
print $_, "\n"; |
|
21 |
} |
|
22 |
} |
|
23 |
print "</ul>\n</p>\n" if $in_list; |