version 1.8, 2002/07/27 22:44:37
|
version 1.9, 2002/07/31 19:01:52
|
Line 23 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*$/ automatically updated/; |
$e=~s/\S*\s\S*\s+\S*$/ last 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 (.*?) \-\-\>/; |