version 1.2, 2002/02/11 06:29:37
|
version 1.4, 2002/04/23 12:18:47
|
Line 18 $d=~/\<title.*?\>(.*?)\<\/title.*?\>/s;
|
Line 18 $d=~/\<title.*?\>(.*?)\<\/title.*?\>/s;
|
my $title=$1; |
my $title=$1; |
$t=~s/\<TITLE \/\>/$title/g; |
$t=~s/\<TITLE \/\>/$title/g; |
$d=~/\$(.*?)\$/; |
$d=~/\$(.*?)\$/; |
my $cvsdate="<i>CVS: $1</i>"; |
my $e=$1; |
|
$e=~s/\S*\s\S*\s+\S*$/ updated by Scott Harrison/; |
|
my $cvsdate="<font size=\"-2\"><i>CVS $e</i></font>"; |
$t=~s/\<DATE \/\>/$cvsdate/g; |
$t=~s/\<DATE \/\>/$cvsdate/g; |
$d=~/\<\!\-\- pdfahref (.*?) \-\-\>/; |
$d=~/\<\!\-\- pdfahref (.*?) \-\-\>/; |
my $pdfahref="<a href='$1'>"; |
my $pdfahref="<a href='$1'>"; |