$title

#!/usr/bin/perl -w require 5.008; use bytes; use strict; # run on a NEWS file my $title = 'Summary of User-Visible Changes'; $title .= " in $ARGV[0]" if defined $ARGV[0]; print < $title END my $rec; my $in_ul = 0; my $in_li = 0; while () { if (s/^\*\s*//) { if ($in_ul == 2) { if ($in_li) { print "

\n"; $in_li = 0; } print "\n"; --$in_ul; } if (!$in_ul) { print "

", html($_); $in_li = 1; } elsif (s/^\s+\+\s+//) { if (!$in_ul) { print "
- "; } print "
  - ", html($_); $in_li = 1; } elsif (s/^[ \t]+//) { print html($_); } elsif (/^$/) { # do nothing } else { if ($in_li) { print "
  "; --$in_ul; if ($in_ul) { print "
"; --$in_ul; if ($in_ul) { print "

END sub html { my $t = shift; $t =~ s/&/&/g; $t =~ s//>/g; return $t; }

$_