run-changelog.pl

   1 #!/usr/bin/perl
   2
   3 $|++;
   4 $page = '';
   5 $page .= $_ while (<STDIN>);
   6
   7 $page =~ s|^.+?(Changes.+?\n+)|$1|s;
   8 $page =~ s|&|&amp\;|sg; # escape with useless backslash
   9 $page =~ s|<|&lt\;|sg;
  10 $page =~ s|>|&gt\;|sg;
  11 $page =~ s|(Changes between.+?)\n|<b>$1</b>\n|sg;
  12
  13 print "<pre>$page</pre>";
  14
  15 exit(0);