| changeset 0 | 6f7a81934006 |
| -1:000000000000 | 0:6f7a81934006 |
|---|---|
1 #!/usr/bin/perl |
|
2 $in_list = 0; |
|
3 |
|
4 print |
|
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; |