version 1.1, 2002/02/04 14:43:52
|
version 1.5, 2002/04/23 15:28:03
|
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="<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'>"; |
Line 32 my %bhash=(
|
Line 34 my %bhash=(
|
'DOWNLOADS' => '/docs/downloads/index.html', |
'DOWNLOADS' => '/docs/downloads/index.html', |
'CONTACT' => '/docs/contact/index.html', |
'CONTACT' => '/docs/contact/index.html', |
'MAIN-SITE' => 'http://install.lon-capa.org', |
'MAIN-SITE' => 'http://install.lon-capa.org', |
|
'LICENSE' => '/docs/license/index.html', |
); |
); |
|
|
$d=~/\<\!\-\- button (.*?) \-\-\>/; |
$d=~/\<\!\-\- button (.*?) \-\-\>/; |