#!/usr/bin/perl # changelog-to-whatsnew.plx -*- Perl -*- # # changelog-to-whatsnew.plx: A program to generate What's New from ChangeLog # # Copyright (C) 2002 Bradley M. Kuhn. # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 2 of the License, or # (at your option) any later version. # This program is distributed in the hope that it will be useful, but # WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU # General Public License for more details. # You should have received a copy of the GNU General Public License # alongside this program in the file "COPYING"; if not, please check # http://www.ebb.org/bkuhn/code/COPYING, or write to the Free Software # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 # USA my $BASE_URL = '/'; print < Changes Made to Bradley M. Kuhn's Web Pages ( Brad ) ( bkuhn )

What's New on bkuhn's Web Pages?

Here is a crude "what's new" page, generated from a ChangeLog using a script that I wrote.

WHATS_NEW my $first = 1; my $innerFirst = 1; while () { if (/^\s*(\d{4,4}\-\d{1,2}\-\d{1,2})\s+((?:\d{1,2}:\d{1,2}\s+)? (?:[\-\d]+\s+)?)(.+)\s+<([^>]+)>\s*$/x) { $innerFirst = 1; if (! $first) { print "\n"; } else { $first = 0; } print "

Changes made on $1 by $2"; my($name, $email) = ($3, $4); if ($name =~ s/^\s(Brad(?:ley)?\s+(?:M(?:ichael|\.)\s+)?Kuhn)\s$/$1/i) { print " $name "; } else { print " $name"; } print "<$email>

\n"; } else { $innerFirst = 0; } print "

$1:$2\n"; } else { print; } } if (! $first) { print "

\n"; } # This goofy thing is only because we don't want: # $Date: 2002/06/02 03:23:48 $ # to appear in a string in the wrong way, because CVS will muck with it. print "

\nUpdated on: \$", 'Date:', ' $'; print < Copyright © 1998, 1999, 2000, 2001, 2002 Bradley M. Kuhn
Verbatim copying and distribution of this entire page is permitted in any medium, provided this notice is preserved.

ebb^® is a registered service mark of Bradley M. Kuhn.

Bradley M. Kuhn <bkuhn\@ebb.org>

END_WHATS_NEW exit 0; # Local variables: # compile-command: "perl -c changelog-to-whatsnew.plx" # End:

What's New on bkuhn's Web Pages?

Changes made on $1 by $2"; my($name, $email) = ($3, $4); if ($name =~ s/^\s*(Brad(?:ley)?\s+(?:M(?:ichael|\.)\s+)?Kuhn)\s*$/$1/i) { print " $name "; } else { print " $name"; } print "<$email>

Changes made on $1 by $2"; my($name, $email) = ($3, $4); if ($name =~ s/^\s(Brad(?:ley)?\s+(?:M(?:ichael|\.)\s+)?Kuhn)\s$/$1/i) { print " $name "; } else { print " $name"; } print "<$email>