mirror of
https://github.com/ascii-boxes/boxes.git
synced 2025-07-13 20:55:10 +02:00
Added milestone for version 1.1
Changed footer include to reflect new filename Added time zone handling to rlog calls, which gives us local checkin times
This commit is contained in:
@ -3,11 +3,14 @@
|
|||||||
# Author: Thomas Jensen <boxes@thomasjensen.com>
|
# Author: Thomas Jensen <boxes@thomasjensen.com>
|
||||||
# Date created: July 12, 1999 (Monday, 13:14h)
|
# Date created: July 12, 1999 (Monday, 13:14h)
|
||||||
# Language: Perl 5
|
# Language: Perl 5
|
||||||
# Version: $Id: create_changelog.pl,v 1.4 1999/09/10 17:33:32 tsjensen Exp tsjensen $
|
# Version: $Id: create_changelog.pl,v 1.6 2006-07-12 19:30:40+02 tsjensen Exp tsjensen $
|
||||||
#
|
#
|
||||||
# History:
|
# History:
|
||||||
#
|
#
|
||||||
# $Log: create_changelog.pl,v $
|
# $Log: create_changelog.pl,v $
|
||||||
|
# Revision 1.6 2006-07-12 19:30:40+02 tsjensen
|
||||||
|
# Merged with newly discovered newest version
|
||||||
|
#
|
||||||
# Revision 1.4 1999/09/10 17:33:32 tsjensen
|
# Revision 1.4 1999/09/10 17:33:32 tsjensen
|
||||||
# Renamed current snapshot archive file to boxes-SNAP-latest.tar.gz
|
# Renamed current snapshot archive file to boxes-SNAP-latest.tar.gz
|
||||||
# Added "milestones": Draw horizontal ruler at particular times (v1 out etc.)
|
# Added "milestones": Draw horizontal ruler at particular times (v1 out etc.)
|
||||||
@ -33,11 +36,15 @@
|
|||||||
$#files >= 0 or die "no input files";
|
$#files >= 0 or die "no input files";
|
||||||
|
|
||||||
%milestones = (
|
%milestones = (
|
||||||
"2000-03-17 23:51:43" => "VERSION 1.0.1 RELEASED",
|
"2006/07/23 18:28:13" => "VERSION 1.1 RELEASED",
|
||||||
"1999-08-22 11:37:27" => "VERSION 1.0 RELEASED",
|
"2000/03/18 01:51:43" => "VERSION 1.0.1 RELEASED",
|
||||||
"1999-06-25 18:52:28" => "FIRST BETA RELEASED"
|
"1999/08/22 13:37:27" => "VERSION 1.0 RELEASED",
|
||||||
|
"1999/06/25 20:52:28" => "FIRST BETA RELEASED"
|
||||||
);
|
);
|
||||||
|
|
||||||
|
my $tz = `date +'%z' | cut -c -3`;
|
||||||
|
chomp($tz);
|
||||||
|
|
||||||
print '<HTML>
|
print '<HTML>
|
||||||
|
|
||||||
<HEAD>
|
<HEAD>
|
||||||
@ -63,7 +70,7 @@ HREF="download/boxes-SNAP-latest.tar.gz">current snapshot</A> yet.
|
|||||||
%cl = ();
|
%cl = ();
|
||||||
|
|
||||||
foreach $dat (sort @files) {
|
foreach $dat (sort @files) {
|
||||||
@tmp = `rlog $dat`;
|
@tmp = `rlog -z$tz $dat`;
|
||||||
$start = 0;
|
$start = 0;
|
||||||
|
|
||||||
$rev = "";
|
$rev = "";
|
||||||
@ -79,8 +86,9 @@ foreach $dat (sort @files) {
|
|||||||
next;
|
next;
|
||||||
}
|
}
|
||||||
|
|
||||||
if ($tmp[$i] =~ /^date: ([^;]*);/) {
|
if ($tmp[$i] =~ /^date: ([^\+]*)\+/) {
|
||||||
$datum = $1;
|
$datum = $1;
|
||||||
|
$datum =~ tr/-/\//;
|
||||||
}
|
}
|
||||||
if ($tmp[$i] =~ /^revision ([0-9]\.[0-9]+)/) {
|
if ($tmp[$i] =~ /^revision ([0-9]\.[0-9]+)/) {
|
||||||
$rev = $1;
|
$rev = $1;
|
||||||
@ -187,7 +195,7 @@ foreach $dat (sort @files) {
|
|||||||
print '</DL>
|
print '</DL>
|
||||||
|
|
||||||
|
|
||||||
<!--#include file="footer.inc.html" -->
|
<!--#include file="footer.inc.shtml" -->
|
||||||
|
|
||||||
</BODY>
|
</BODY>
|
||||||
</HTML>
|
</HTML>
|
||||||
|
Reference in New Issue
Block a user