summaryrefslogtreecommitdiff
path: root/docs/tutorials/combine
diff options
context:
space:
mode:
authorjcej <jcej@ae88bc3d-4319-0410-8dbf-d08b4c9d3795>2000-03-19 20:09:34 +0000
committerjcej <jcej@ae88bc3d-4319-0410-8dbf-d08b4c9d3795>2000-03-19 20:09:34 +0000
commit69ab21d3aef26a89e5d3317d14746174534ac8b3 (patch)
tree04e6ee3d953ce7d6897ae1d73a1f662880fa74c7 /docs/tutorials/combine
parent676ccec6b6de0a2a7ab6a7de353ef45f0a22af46 (diff)
downloadATCD-69ab21d3aef26a89e5d3317d14746174534ac8b3.tar.gz
*** empty log message ***
Diffstat (limited to 'docs/tutorials/combine')
-rwxr-xr-xdocs/tutorials/combine7
1 files changed, 7 insertions, 0 deletions
diff --git a/docs/tutorials/combine b/docs/tutorials/combine
index c464f389e00..24f208880a4 100755
--- a/docs/tutorials/combine
+++ b/docs/tutorials/combine
@@ -2,6 +2,8 @@ eval '(exit $?0)' && eval 'exec perl -w -S $0 ${1+"$@"}'
& eval 'exec perl -S $0 $argv:q'
if 0;
+# $Id$
+
#
# This perl script will combine a set of files into one or more HTML pages.
#
@@ -81,6 +83,8 @@ foreach $file (@ARGV) {
select(FILE);
$| = 1;
+ print FILE '<!-- $Id$ -->' . "\n";
+
# .hdr has the HTML header, title, etc...
if( -f "$base.hdr" ) {
copy("$base.hdr",\*FILE);
@@ -122,6 +126,7 @@ foreach $file (@ARGV) {
}
print FILE "</CENTER>\n";
}
+ print FILE "\n";
close(FILE);
}
@@ -157,6 +162,8 @@ sub addFile {
s,\*/,$&</font>,;
s,\w+::\~?\w+,<font color=\#008888>$&</font>,;
}
+ s/[ \t]+$//;
+ s/\t/ /g;
print FILE $_;
}
print FILE "</PRE>\n";