From 42a8a387729fc5e1e8e0f76aa4761d1240a73cef Mon Sep 17 00:00:00 2001 From: Thomas Jensen Date: Wed, 18 Aug 1999 18:41:41 +0000 Subject: [PATCH] Added HTML conversions for '&' and eacute Removing path from file name Changed introductory text --- doc/create_changelog.pl | 17 ++++++++++++++--- 1 file changed, 14 insertions(+), 3 deletions(-) diff --git a/doc/create_changelog.pl b/doc/create_changelog.pl index c1653e4..dcac844 100644 --- a/doc/create_changelog.pl +++ b/doc/create_changelog.pl @@ -3,11 +3,17 @@ # Author: Thomas Jensen # Date created: July 12, 1999 (Monday, 13:14h) # Language: Perl 5 -# Version: $Id: create_changelog.pl,v 1.1 1999/07/12 12:28:46 tsjensen Exp tsjensen $ +# Version: $Id: create_changelog.pl,v 1.2 1999/07/12 18:03:14 tsjensen Exp tsjensen $ # # History: # # $Log: create_changelog.pl,v $ +# Revision 1.2 1999/07/12 18:03:14 tsjensen +# Moved "List of Files" from top to bottom of page +# Many modifications on the page's appearance +# In log messages, lines which start with a lower case character are +# not preceded by a
, thus concatenating lines which belong together. +# # Revision 1.1 1999/07/12 12:28:46 tsjensen # Initial revision #______________________________________________________________________________ @@ -29,8 +35,10 @@ print ' -This page is an automatically generated chronologically sorted change log of -the files listed below. +This page is automatically updated whenever a few of the files listed below are checked in, so it is very +up-to-date. It might already show changes which are not even in the current snapshot yet.

Chronological Change Log

@@ -67,6 +75,7 @@ foreach $dat (sort @files) { } if ($tmp[$i] !~ /^revision ([0-9]\.[0-9]+)/ && $tmp[$i] !~ /^date: ([^;]*);/) { + $tmp[$i] =~ s/&/\&/g; $tmp[$i] =~ s//\>/g; $tmp[$i] =~ s/ü/\ü/g; @@ -76,6 +85,7 @@ foreach $dat (sort @files) { $tmp[$i] =~ s/Ö/\Ö/g; $tmp[$i] =~ s/Ä/\Ä/g; $tmp[$i] =~ s/ß/\ß/g; + $tmp[$i] =~ s/é/\é/g; $tmp[$i] =~ s/"/\"/g; chop $tmp[$i]; if ($tmp[$i] =~ /^Initial revision$/) { @@ -91,6 +101,7 @@ foreach $dat (sort @files) { || $tmp[$i] =~ /^===============================================/) { $desc[$#desc] = ""; + $dat =~ s/^.*\///; $cl{$datum."; ".$dat." ".$rev." (".$auth.")"} = [ @desc ]; @desc = (); }