extern/boxes
1
0
Fork 0
mirror of https://github.com/ascii-boxes/boxes.git synced 2025-06-12 12:56:38 +02:00
Code Issues Packages Projects Releases Wiki Activity

Include files in non-src subfolders in the list of files at the end of the created document

Browse Source
This commit is contained in:
Thomas Jensen 2012-10-19 16:42:10 +00:00
parent ff43cafe6e
commit a490cfd451
1 changed files with 11 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
doc/create_changelog.pl
View File

@ -3,11 +3,16 @@
# 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.6 2006-07-12 19:30:40+02 tsjensen Exp tsjensen $ # Version: $Id: create_changelog.pl,v 1.7 2006/07/23 18:01:01 tsjensen Exp tsjensen $
# #
# History: # History:
# #
# $Log: create_changelog.pl,v $ # $Log: create_changelog.pl,v $
# Revision 1.7 2006/07/23 18:01:01 tsjensen
# 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
#
# Revision 1.6 2006-07-12 19:30:40+02 tsjensen # Revision 1.6 2006-07-12 19:30:40+02 tsjensen
# Merged with newly discovered newest version # Merged with newly discovered newest version
# #
@ -124,8 +129,9 @@ foreach $dat (sort @files) {
|| $tmp[$i] =~ /^===============================================/) || $tmp[$i] =~ /^===============================================/)
{ {
$desc[$#desc] = ""; $desc[$#desc] = "";
$dat =~ s/^.*\///; $simpleName = $dat;
$cl{$datum."; <STRONG>".$dat." ".$rev."</STRONG> (".$auth.")"} = [ @desc ]; $simpleName =~ s/^.*\///;
$cl{$datum."; <STRONG>".$simpleName." ".$rev."</STRONG> (".$auth.")"} = [ @desc ];
@desc = (); @desc = ();
} }
} }
@ -159,6 +165,8 @@ foreach $dat (sort @files) {
next unless -r $dat; next unless -r $dat;
@tmp = `rlog $dat`; @tmp = `rlog $dat`;
$dat =~ s/^.*\///;
@foo = (); @foo = ();
$start = 0; $start = 0;
@desc = (); @desc = ();