version 1.68, 2002/01/08 21:14:53
|
version 1.69, 2002/01/09 20:45:16
|
Line 187 sub urlfixup {
|
Line 187 sub urlfixup {
|
unless ($url) { return ''; } |
unless ($url) { return ''; } |
#javascript code needs no fixing |
#javascript code needs no fixing |
if ($url =~ /^javascript:/i) { return $url; } |
if ($url =~ /^javascript:/i) { return $url; } |
|
if ($url =~ /^mailto:/i) { return $url; } |
#internal document links need no fixing |
#internal document links need no fixing |
if ($url =~ /^\#/) { return $url; } |
if ($url =~ /^\#/) { return $url; } |
my ($host)=($url=~/(?:http\:\/\/)*([^\/]+)/); |
my ($host)=($url=~/(?:http\:\/\/)*([^\/]+)/); |