loncom/build/doc_template.pl - diff

Return to doc_template.pl CVS log

Up to [LON-CAPA] / loncom / build

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 (.*?) \-\-\>/;