version 1.2, 2002/02/11 06:29:37
|
version 1.3, 2002/02/11 08:02:41
|
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*$/ created by Scott Harrison/; |
|
my $cvsdate="<i>CVS: $e</i>"; |
$t=~s/\<DATE \/\>/$cvsdate/g; |
$t=~s/\<DATE \/\>/$cvsdate/g; |
$d=~/\<\!\-\- pdfahref (.*?) \-\-\>/; |
$d=~/\<\!\-\- pdfahref (.*?) \-\-\>/; |
my $pdfahref="<a href='$1'>"; |
my $pdfahref="<a href='$1'>"; |