mirror of
https://github.com/ascii-boxes/boxes.git
synced 2024-12-13 10:20:37 +01:00
d13a30f31b
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.
165 lines
3.8 KiB
Perl
165 lines
3.8 KiB
Perl
#!/local/bin/perl5 -w
|
|
#
|
|
# Author: Thomas Jensen <tsjensen@stud.informatik.uni-erlangen.de>
|
|
# 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 $
|
|
#
|
|
# History:
|
|
#
|
|
# $Log: create_changelog.pl,v $
|
|
# Revision 1.1 1999/07/12 12:28:46 tsjensen
|
|
# Initial revision
|
|
#______________________________________________________________________________
|
|
#==============================================================================
|
|
|
|
|
|
@files = @ARGV;
|
|
$#files >= 0 or die "no input files";
|
|
|
|
print '<HTML>
|
|
|
|
<HEAD>
|
|
<TITLE>boxes - Change Log</TITLE>
|
|
<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">
|
|
|
|
This page is an automatically generated chronologically sorted change log of
|
|
the files listed <A HREF="#flist">below</A>.
|
|
|
|
<H1>Chronological Change Log</H1>
|
|
|
|
<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: ([^;]*);/) {
|
|
$tmp[$i] =~ s/</\</g;
|
|
$tmp[$i] =~ s/>/\>/g;
|
|
$tmp[$i] =~ s/ü/\ü/g;
|
|
$tmp[$i] =~ s/ö/\ö/g;
|
|
$tmp[$i] =~ s/ä/\ä/g;
|
|
$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$/) {
|
|
$tmp[$i] = "<FONT COLOR=\"#C00000\">".$tmp[$i]."</FONT>";
|
|
}
|
|
if (@desc > 0 && $tmp[$i] !~ /^[a-zäöü]/ && $tmp[$i] !~ /^[-=]{10}/) {
|
|
$tmp[$i] = "<BR>".$tmp[$i];
|
|
}
|
|
push @desc, $tmp[$i]."\n";
|
|
}
|
|
|
|
if ($tmp[$i] =~ /^----------------------------$/
|
|
|| $tmp[$i] =~ /^===============================================/)
|
|
{
|
|
$desc[$#desc] = "";
|
|
$cl{$datum."; <STRONG>".$dat." ".$rev."</STRONG> (".$auth.")"} = [ @desc ];
|
|
@desc = ();
|
|
}
|
|
}
|
|
}
|
|
|
|
|
|
foreach $line (reverse sort keys %cl) {
|
|
print "<DT><TT>$line</TT>\n";
|
|
print "<DD><TT>", @{$cl{$line}}, "</TT><P>\n\n";
|
|
}
|
|
|
|
|
|
|
|
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" -->
|
|
|
|
</BODY>
|
|
</HTML>
|
|
';
|
|
|
|
|
|
#EOF vim: set sw=4:
|