version 1.6, 2002/05/01 22:15:37
|
version 1.9, 2002/07/31 19:01:52
|
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*$/ last updated/; |
my $cvsdate="<p><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 (.*?) \-\-\>/; |
my $pdfahref="<a href='$1'>"; |
my $pdfahref="<a href='$1'>"; |
Line 86 $d=~/\<\!\-\- maintext start \-\-\>(.*?)
|
Line 88 $d=~/\<\!\-\- maintext start \-\-\>(.*?)
|
my $maintext=$1; |
my $maintext=$1; |
$t=~s/\<MAINTEXT \/\>/$maintext/g; |
$t=~s/\<MAINTEXT \/\>/$maintext/g; |
my $v=(<<END); |
my $v=(<<END); |
<p> |
<p align="right"> |
<a href="http://validator.w3.org/check/referer"><img |
<a href="http://validator.w3.org/check/referer"><img |
src="http://www.w3.org/Icons/valid-xhtml10" |
src="/loncapa_doc_icons/valid-xhtml10" |
alt="Valid XHTML 1.0!" height="31" width="88" /></a> |
alt="Valid XHTML 1.0!" height="31" width="88" /></a> |
</p> |
</p> |
END |
END |