Could you integrate those with the UBB Code Buttons?
also....
That last bit of code doesn't exist in 5.39.
Where do I need to put the new code in here?
sub UBBCode {
my $ThePost = shift;
#auto URL---
$ThePost =~ s/(^|s)(
http://S+)/
$2 /isg;
$ThePost =~ s/(^|s)(
www.S+)/
$2 /isg;
$ThePost =~ s/()(http|https|ftp)(://S+?)()/
$2$3 /isg;
$ThePost =~ s/()(S+?)()/
$2 /isg;
$ThePost =~ s/()(http|https|ftp)(://S+?)()/
$5 /isg;
$ThePost =~ s/()(S+?)()/
$4 /isg;
$ThePost =~ s/([email])(S+@S+?)([/email])/
$2 /isg;
$ThePost =~ s/([email:)(S+?)(])(.+?)([/email])/
$4 /isg;
$ThePost =~ s,(
),
code:
$2
,isg;
if (($UBBImages eq "ON") && ($OverrideImages ne "yes")) {
$ThePost =~ s/([img])(S+?)([/img])/
/isg;
}
$ThePost =~ s/(
)/
quote:
$2
/isg;
$ThePost =~ s/(
)(.+?)()/
$2/isg;
$ThePost =~ s/(
)(.+?)()/
$2/isg;
$ThePost =~ s/(
)/
/isg;
$ThePost =~ s/([list=)(A|1)(])(.+?)(
)/$4
/isg;
$ThePost =~ s/()//isg;
$ThePost =~ s/([color:)(S+?)(])(.+?)([/color])/$4/isg;
$ThePost =~ s/([center])(.+?)([/center])/$2/isg;
$ThePost =~ s/()(.+?)()/$2/isg;
$ThePost =~ s/([font:)(.+?)(])(.+?)([/font])/$4/isg;
$ThePost =~ s/( )(.+?)( )/$4/isg;
return ($ThePost);
}
BTW...do we need to move your fixed font code to be next to each other?
