Add ISSUES, ensure eol at eof, more detailed comments,

...create manifest of new files on stdout.
This commit is contained in:
András Salamon 2005-10-24 08:26:42 +00:00
parent d53c05e3a2
commit 40327cdfb2

View File

@ -3,6 +3,8 @@
# mkdos # mkdos
# make DOS-style versions of text files shipped with release # make DOS-style versions of text files shipped with release
# the list below needs to be updated when new text files are added! # the list below needs to be updated when new text files are added!
# run it in the main distribution directory
# generates a list of the files it has created on stdout
# this is a helper script for the Battle for Wesnoth project # this is a helper script for the Battle for Wesnoth project
# see http://www.wesnoth.org/ # see http://www.wesnoth.org/
@ -12,6 +14,7 @@
%files = qw( %files = qw(
COPYING COPYING.txt COPYING COPYING.txt
INSTALL INSTALL.txt INSTALL INSTALL.txt
ISSUES ISSUES.txt
MANUAL MANUAL.txt MANUAL MANUAL.txt
MANUAL.brazilian MANUAL-pt_BR.txt MANUAL.brazilian MANUAL-pt_BR.txt
MANUAL.catalan MANUAL-ca.txt MANUAL.catalan MANUAL-ca.txt
@ -41,6 +44,7 @@ foreach $f ( keys %files ) {
warn "cannot create $files{$f}, skipping"; warn "cannot create $files{$f}, skipping";
next READFILE next READFILE
} }
push @written, $files{$f};
while (<IN>) { while (<IN>) {
if (/ / or /^[- |]/) { if (/ / or /^[- |]/) {
s/\n$/\r\n/; s/\n$/\r\n/;
@ -53,6 +57,10 @@ foreach $f ( keys %files ) {
#s/^$/\r\n\r\n/; #s/^$/\r\n\r\n/;
print OUT; print OUT;
} }
print OUT "\r\n";
close IN; close IN;
close OUT; close OUT;
} }
if (@written) {
print join("\n", @written), "\n";
}