version 1.4, 2002/04/23 12:18:47
|
version 1.5, 2002/04/23 15:28:03
|
Line 20 $t=~s/\<TITLE \/\>/$title/g;
|
Line 20 $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*$/ updated by Scott Harrison/; |
my $cvsdate="<font size=\"-2\"><i>CVS $e</i></font>"; |
my $cvsdate="<p><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'>"; |