#! /usr/bin/perl -w
use strict;

my $ctr = 0;
my $toc;
my $out;
my $top = '  <a href="#toc"><img src="/img/up.gif"/></a>';
my $skipping = 1;

while ( <STDIN> ) {
    chop;
    # HTML entities.
    s|&|&amp;|sg;
    s|<|&lt;|sg;
    s|>|&gt;|sg;
    if ( /^( Changes between.*)/ ) {
        $out .= "</pre>\n" unless $skipping;
        $skipping = 0;
	$out .= "<h3><a name=\"x$ctr\">$1</a>$top</h3>\n<pre>\n";
	$toc .= "  <li><a href=\"#x$ctr\">$1</a></li>\n";
	$ctr++;
    } elsif ( ! $skipping ) {
        $out .= $_ . "\n";
    }
}
$out .= "</pre>\n";

print "<h3><a name='toc'>Table of contents</a></h3>\n";
print "<ul>\n";
print $toc;
print "</ul>\n";
print $out;

exit(0);