version 1.7, 2002/05/02 02:09:34
|
version 1.8, 2002/07/27 22:44:37
|
Line 1
|
Line 1
|
# perl script |
# doc_template.pl - A perl script for beautifying doc/build/*.html files |
|
|
# a quick and dirty xml reading and substitution |
# (Quick and dirty xml reading and substitution.) |
|
|
|
# Scott Harrison |
|
|
# --------------------------------------- slurp in information |
# --------------------------------------- slurp in information |
unless (scalar(@ARGV)==2) { |
unless (scalar(@ARGV)==2) { |
Line 21 my $title=$1;
|
Line 23 my $title=$1;
|
$t=~s/\<TITLE \/\>/$title/g; |
$t=~s/\<TITLE \/\>/$title/g; |
$d=~/\$(.*?)\$/; |
$d=~/\$(.*?)\$/; |
my $e=$1; |
my $e=$1; |
$e=~s/\S*\s\S*\s+\S*$/ updated by Scott Harrison/; |
$e=~s/\S*\s\S*\s+\S*$/ automatically updated/; |
my $cvsdate="<p align=\"left\"><font size=\"-2\"><i>CVS $e</i></font></p>"; |
my $cvsdate="<p align=\"left\"><font size=\"-2\"><i>CVS $e</i></font></p>"; |
$t=~s/\<DATE \/\>/$cvsdate/g; |
$t=~s/\<DATE \/\>/$cvsdate/g; |
$d=~/\<\!\-\- pdfahref (.*?) \-\-\>/; |
$d=~/\<\!\-\- pdfahref (.*?) \-\-\>/; |