Hi Michael
OK ... i have found the code killer
1.) Post.pl: (Look at
#$message)
if($hot_post && $action eq "post2" || $hot_post && $action eq "modify2" || $hot_im && $action eq "imsend2") {
foreach (@hotlinks) {
($htmpa,$htmpb) = @{$_};
my($htmp, $htmpc, $htmpc2, $tmptarget);
($htmp,$tmptarget) = split(/\,/,$htmpa,2);
if($htmpb !~ m~\Ahttp://~) { $htmpb = qq~http:\/\/$htmpb~; }
if($tmptarget) { $htmpc = qq(\[url=$htmpb\]$hfont1$hfont2); $htmpc2 = qq($hfont4$hfont3\[\/url\]); }
else { $htmpc = qq(\[link=$htmpb\]$hfont1$hfont2); $htmpc2 = qq($hfont4$hfont3\[\/link\]); }
#$message =~ s~ ~\t~g;
$message =~ s~<br>~\n~g;
$message =~ s~(^|\s)($htmp)(?=$|\s|\.|\,|\;|\:|\?)~$1$htmpc$2$htmpc2~sgi;
$message =~ s~(^|\s)(\[(?:b|i|u|s)\]$htmp\[\/(?:b|i|u|s)\])(?=$|\s|\.|\,|\;|\:|\?)~$1$htmpc$2$htmpc2~sgi;
}
}
2.) Display.pl (Look at
#$postmessage)
if($hot_post) {
foreach (@hotlinks) {
($htmpa,$htmpb) = @{$_};
my($htmp, $htmpc, $htmpc2, $tmptarget);
($htmp,$tmptarget) = split(/\,/,$htmpa,2);
if($htmpb !~ m~\Ahttp://~) { $htmpb = qq~http:\/\/$htmpb~; }
if($tmptarget) { $htmpc = qq(\[url=$htmpb\]$hfont1$hfont2); $htmpc2 = qq($hfont4$hfont3\[\/url\]); }
else { $htmpc = qq(\[link=$htmpb\]$hfont1$hfont2); $htmpc2 = qq($hfont4$hfont3\[\/link\]); }
#$postmessage =~ s~ ~\t~g;
$postmessage =~ s~<br>~\n~g;
$postmessage =~ s~(^|\s)($htmp)(?=$|\s|\.|\,|\;|\:|\?)~$1$htmpc$2$htmpc2~sgi;
$postmessage =~ s~(^|\s)(\[(?:b|i|u|s)\]$htmp\[\/(?:b|i|u|s)\])(?=$|\s|\.|\,|\;|\:|\?)~$1$htmpc$2$htmpc2~sgi;
}
}
@Carsten
Is this Code from your "Hotlink Mod" ?
If YES .... what going on .... when i deactive this code!?
lg XTC