equal
deleted
inserted
replaced
|
1 #!/usr/bin/perl |
|
2 print <<HEAD; |
|
3 <html> |
|
4 <head> |
|
5 <title>Release History</title> |
|
6 <body> |
|
7 <center><h1>Release History</h1></center> |
|
8 HEAD |
|
9 |
|
10 $ul = 0; |
|
11 |
|
12 while(<>) { |
|
13 chomp; |
|
14 if(/^\s*$/) { |
|
15 print "<p>"; |
|
16 } elsif(/^----------------------------------/) { |
|
17 print "</ul>\n" if $ul; $ul = 0; |
|
18 print "<hr>"; |
|
19 } elsif(/^Changes in version/i) { |
|
20 print "<h2>", $_, "</h2>"; |
|
21 } elsif(/^-/ || /^\s/) { |
|
22 print "<ul>\n" unless $ul; $ul = 1; |
|
23 s/^- /<li>/; |
|
24 print; |
|
25 } else { |
|
26 print "</ul>\n" if $ul; $ul = 0; |
|
27 print; |
|
28 } |
|
29 print "\n"; |
|
30 } |
|
31 |
|
32 print <<TAIL; |
|
33 </body> |
|
34 </html> |
|
35 TAIL |