diff options
author | jcej <jcej@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 2000-03-19 20:09:34 +0000 |
---|---|---|
committer | jcej <jcej@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 2000-03-19 20:09:34 +0000 |
commit | 69ab21d3aef26a89e5d3317d14746174534ac8b3 (patch) | |
tree | 04e6ee3d953ce7d6897ae1d73a1f662880fa74c7 /docs/tutorials/combine | |
parent | 676ccec6b6de0a2a7ab6a7de353ef45f0a22af46 (diff) | |
download | ATCD-69ab21d3aef26a89e5d3317d14746174534ac8b3.tar.gz |
*** empty log message ***
Diffstat (limited to 'docs/tutorials/combine')
-rwxr-xr-x | docs/tutorials/combine | 7 |
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"; |