extern/boxes
1
0
Fork 0
mirror of https://github.com/ascii-boxes/boxes.git synced 2024-12-14 10:50:39 +01:00
Code Issues Packages Projects Releases Wiki Activity
9970223399
boxes/doc/create_changelog.pl

198 lines
5.1 KiB
Perl
Raw Normal View History

Merged with newly discovered newest version
2006-07-12 19:30:40 +02:00
#!/usr/bin/perl -w
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 <BR>, thus concatenating lines which belong together.
1999-07-12 20:03:14 +02:00
#
Updated email address in comment header
2006-07-12 07:54:30 +02:00
# Author: Thomas Jensen <boxes@thomasjensen.com>
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 <BR>, thus concatenating lines which belong together.
1999-07-12 20:03:14 +02:00
# Date created: July 12, 1999 (Monday, 13:14h)
# Language: Perl 5
Merged with newly discovered newest version
2006-07-12 19:30:40 +02:00
# Version: $Id: create_changelog.pl,v 1.4 1999/09/10 17:33:32 tsjensen Exp 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 <BR>, thus concatenating lines which belong together.
1999-07-12 20:03:14 +02:00
#
# History:
#
# $Log: create_changelog.pl,v $
Merged with newly discovered newest version
2006-07-12 19:30:40 +02:00
# Revision 1.4 1999/09/10 17:33:32 tsjensen
Updated email address in comment header
2006-07-12 07:54:30 +02:00
# Renamed current snapshot archive file to boxes-SNAP-latest.tar.gz
# Added "milestones": Draw horizontal ruler at particular times (v1 out etc.)
#
Renamed current snapshot archive file to boxes-SNAP-latest.tar.gz Added "milestones": Draw horizontal ruler at particular times (v1 out etc.)
1999-09-10 19:33:32 +02:00
# Revision 1.3 1999/08/18 18:41:41 tsjensen
# Added HTML conversions for '&' and eacute
# Removing path from file name
# Changed introductory text
#
Added HTML conversions for '&' and eacute Removing path from file name Changed introductory text
1999-08-18 20:41:41 +02:00
# 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 <BR>, thus concatenating lines which belong together.
#
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 <BR>, thus concatenating lines which belong together.
1999-07-12 20:03:14 +02:00
# Revision 1.1 1999/07/12 12:28:46 tsjensen
# Initial revision
#______________________________________________________________________________
#==============================================================================
Initial revision
1999-07-12 14:28:46 +02:00
@files = @ARGV;
$#files >= 0 or die "no input files";
Renamed current snapshot archive file to boxes-SNAP-latest.tar.gz Added "milestones": Draw horizontal ruler at particular times (v1 out etc.)
1999-09-10 19:33:32 +02:00
%milestones = (
Merged with newly discovered newest version
2006-07-12 19:30:40 +02:00
"2000-03-17 23:51:43" => "VERSION 1.0.1 RELEASED",
"1999-08-22 11:37:27" => "VERSION 1.0 RELEASED",
"1999-06-25 18:52:28" => "FIRST BETA RELEASED"
Renamed current snapshot archive file to boxes-SNAP-latest.tar.gz Added "milestones": Draw horizontal ruler at particular times (v1 out etc.)
1999-09-10 19:33:32 +02:00
);
Initial revision
1999-07-12 14:28:46 +02:00
print '<HTML>
<HEAD>
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 <BR>, thus concatenating lines which belong together.
1999-07-12 20:03:14 +02:00
<TITLE>boxes - Change Log</TITLE>
Initial revision
1999-07-12 14:28:46 +02:00
<META NAME="Author" CONTENT="Thomas Jensen">
<META HTTP-EQUIV="Content-type"
CONTENT="text/html; charset=iso-8859-1">
<META NAME="Robots" CONTENT="index,follow">
</HEAD>
<BODY TEXT="#000000" LINK="#0000FF" VLINK="#C00080" BGCOLOR="#FFFFFF">
Added HTML conversions for '&' and eacute Removing path from file name Changed introductory text
1999-08-18 20:41:41 +02:00
This page is automatically updated whenever a few of the <A
HREF="#flist">files listed below</A> are checked in, so it is very
up-to-date. It might already show changes which are not even in the <A
Renamed current snapshot archive file to boxes-SNAP-latest.tar.gz Added "milestones": Draw horizontal ruler at particular times (v1 out etc.)
1999-09-10 19:33:32 +02:00
HREF="download/boxes-SNAP-latest.tar.gz">current snapshot</A> yet.
Initial revision
1999-07-12 14:28:46 +02:00
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 <BR>, thus concatenating lines which belong together.
1999-07-12 20:03:14 +02:00
<H1>Chronological Change Log</H1>
Initial revision
1999-07-12 14:28:46 +02:00
<DL>
';
%cl = ();
foreach $dat (sort @files) {
@tmp = `rlog $dat`;
$start = 0;
$rev = "";
$auth = "";
$datum = "";
@desc = ();
for ($i=0; $i<=$#tmp; ++$i) {
if ($start == 0) {
next unless $tmp[$i] =~ /^----------------------------$/;
$start = 1;
next;
}
if ($tmp[$i] =~ /^date: ([^;]*);/) {
$datum = $1;
}
if ($tmp[$i] =~ /^revision ([0-9]\.[0-9]+)/) {
$rev = $1;
}
if ($tmp[$i] =~ /author: ([^;]*);/) {
$auth = $1;
}
if ($tmp[$i] !~ /^revision ([0-9]\.[0-9]+)/
&& $tmp[$i] !~ /^date: ([^;]*);/) {
Added HTML conversions for '&' and eacute Removing path from file name Changed introductory text
1999-08-18 20:41:41 +02:00
$tmp[$i] =~ s/&/\&amp;/g;
Initial revision
1999-07-12 14:28:46 +02:00
$tmp[$i] =~ s/</\&lt;/g;
$tmp[$i] =~ s/>/\&gt;/g;
$tmp[$i] =~ s/<2F>/\&uuml;/g;
$tmp[$i] =~ s/<2F>/\&ouml;/g;
$tmp[$i] =~ s/<2F>/\&auml;/g;
$tmp[$i] =~ s/<2F>/\&Uuml;/g;
$tmp[$i] =~ s/<2F>/\&Ouml;/g;
$tmp[$i] =~ s/<2F>/\&Auml;/g;
$tmp[$i] =~ s/<2F>/\&szlig;/g;
Added HTML conversions for '&' and eacute Removing path from file name Changed introductory text
1999-08-18 20:41:41 +02:00
$tmp[$i] =~ s/<2F>/\&eacute;/g;
Initial revision
1999-07-12 14:28:46 +02:00
$tmp[$i] =~ s/"/\&quot;/g;
chop $tmp[$i];
if ($tmp[$i] =~ /^Initial revision$/) {
$tmp[$i] = "<FONT COLOR=\"#C00000\">".$tmp[$i]."</FONT>";
}
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 <BR>, thus concatenating lines which belong together.
1999-07-12 20:03:14 +02:00
if (@desc > 0 && $tmp[$i] !~ /^[a-z<><7A><EFBFBD>]/ && $tmp[$i] !~ /^[-=]{10}/) {
$tmp[$i] = "<BR>".$tmp[$i];
}
push @desc, $tmp[$i]."\n";
Initial revision
1999-07-12 14:28:46 +02:00
}
if ($tmp[$i] =~ /^----------------------------$/
|| $tmp[$i] =~ /^===============================================/)
{
$desc[$#desc] = "";
Added HTML conversions for '&' and eacute Removing path from file name Changed introductory text
1999-08-18 20:41:41 +02:00
$dat =~ s/^.*\///;
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 <BR>, thus concatenating lines which belong together.
1999-07-12 20:03:14 +02:00
$cl{$datum."; <STRONG>".$dat." ".$rev."</STRONG> (".$auth.")"} = [ @desc ];
Initial revision
1999-07-12 14:28:46 +02:00
@desc = ();
}
}
}
foreach $line (reverse sort keys %cl) {
Renamed current snapshot archive file to boxes-SNAP-latest.tar.gz Added "milestones": Draw horizontal ruler at particular times (v1 out etc.)
1999-09-10 19:33:32 +02:00
foreach (keys %milestones) {
if ($line =~ /^$_/) {
print "</DL>\n\n<HR>\n<CENTER><STRONG><FONT SIZE=\"-1\">";
print $milestones{$_}, "</FONT></STRONG></CENTER>\n";
print "<HR>\n\n<DL>\n";
}
}
Initial revision
1999-07-12 14:28:46 +02:00
print "<DT><TT>$line</TT>\n";
print "<DD><TT>", @{$cl{$line}}, "</TT><P>\n\n";
}
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 <BR>, thus concatenating lines which belong together.
1999-07-12 20:03:14 +02:00
print '</DL>
<HR>
<H2><A NAME="flist">List of Files</A></H2>
<DL>
';
foreach $dat (sort @files) {
next unless -r $dat;
@tmp = `rlog $dat`;
@foo = ();
$start = 0;
@desc = ();
@foo = grep /^head: /, @tmp;
$rev = $foo[0];
$rev =~ s/^head: //;
chop $rev;
for ($i=0; $i<$#tmp; ++$i) {
if ($start) {
if ($start == 2) {
last;
}
else {
if ($tmp[$i] =~ /^----------------------------$/) {
$start = 2;
}
else {
push @desc, $tmp[$i];
}
}
}
else {
$start = 1 if ($tmp[$i] =~ /^description:$/);
}
}
print "<DT><TT>$dat</TT> <i>($rev)</i>\n";
print "<DD>", @desc;
}
print '</DL>
<!--#include file="footer.inc.html" -->
Initial revision
1999-07-12 14:28:46 +02:00
</BODY>
</HTML>
';
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 <BR>, thus concatenating lines which belong together.
1999-07-12 20:03:14 +02:00
#EOF vim: set sw=4:
Reference in New Issue Copy Permalink