|
Lines 8496-8502
sub ShowHostInfo {
Link Here
|
| 8496 |
#------------------------------------------------------------------------------ |
8496 |
#------------------------------------------------------------------------------ |
| 8497 |
sub ShowURLInfo { |
8497 |
sub ShowURLInfo { |
| 8498 |
my $url = shift; |
8498 |
my $url = shift; |
| 8499 |
my $nompage = CleanXSS($url); |
8499 |
my $nompage = $url; |
|
|
8500 |
|
| 8501 |
# Convert coded keywords (utf8,...) to be correctly reported in HTML page. |
| 8502 |
if ( $PluginsLoaded{'DecodeKey'}{'decodeutfkeys'} ) { |
| 8503 |
$nompage = CleanXSS( |
| 8504 |
DecodeKey_decodeutfkeys( |
| 8505 |
$nompage, $PageCode || 'iso-8859-1' |
| 8506 |
) |
| 8507 |
); |
| 8508 |
} |
| 8509 |
else { $nompage = CleanXSS( DecodeEncodedString($nompage) ); } |
| 8500 |
|
8510 |
|
| 8501 |
# Call to plugins' function ShowInfoURL |
8511 |
# Call to plugins' function ShowInfoURL |
| 8502 |
foreach my $pluginname ( keys %{ $PluginsLoaded{'ShowInfoURL'} } ) { |
8512 |
foreach my $pluginname ( keys %{ $PluginsLoaded{'ShowInfoURL'} } ) { |
|
Lines 8530-8539
sub ShowURLInfo {
Link Here
|
| 8530 |
{ |
8540 |
{ |
| 8531 |
$urlprot = 'https'; |
8541 |
$urlprot = 'https'; |
| 8532 |
} |
8542 |
} |
|
|
8543 |
|
| 8533 |
print "<a href=\"" |
8544 |
print "<a href=\"" |
| 8534 |
. XMLEncode("$urlprot://$SiteDomain$newkey") |
8545 |
. XMLEncode("$urlprot://$SiteDomain$newkey") |
| 8535 |
. "\" target=\"url\">" |
8546 |
. "\" target=\"url\">" |
| 8536 |
. XMLEncode($nompage) . "</a>"; |
8547 |
. "$nompage</a>"; |
| 8537 |
} |
8548 |
} |
| 8538 |
else { |
8549 |
else { |
| 8539 |
print XMLEncode($nompage); |
8550 |
print XMLEncode($nompage); |
