bin/mk-changelog

   1 #! /usr/bin/perl -w
   2 use strict;
   3
   4 my $ctr = 0;
   5 my $toc;
   6 my $out;
   7 my $top = '  <a href="#toc"><img src="/img/up.gif"/></a>';
   8 my $skipping = 1;
   9
  10 while ( <STDIN> ) {
  11     chop;
  12     # HTML entities.
  13     s|&|&amp;|sg;
  14     s|<|&lt;|sg;
  15     s|>|&gt;|sg;
  16     if ( /^( Changes between.*)/ ) {
  17         $out .= "</pre>\n" unless $skipping;
  18         $skipping = 0;
  19         $out .= "<h3><a name=\"x$ctr\">$1</a>$top</h3>\n<pre>\n";
  20         $toc .= "  <li><a href=\"#x$ctr\">$1</a></li>\n";
  21         $ctr++;
  22     } elsif ( ! $skipping ) {
  23         $out .= $_ . "\n";
  24     }
  25 }
  26 $out .= "</pre>\n";
  27
  28 print "<h3><a name='toc'>Table of contents</a></h3>\n";
  29 print "<ul>\n";
  30 print $toc;
  31 print "</ul>\n";
  32 print $out;
  33
  34 exit(0);