enable_html.mod
1.1a
Enables HTML support (can be turned on and off in the admin center)
WARNING: HTML support on your board can be a possible security risk.
v1.1a - Fixed Previewing Bug
DaveB
http://www.davesworldzone.com
Settings.pl
########## Feature Settings ##########
$enable_html = 1; # Set to 1 if you want to enable HTML
Sources/Post.pl
$subject =~ s/\&/\&/g;
$subject =~ s/"/\"/g;
$subject =~ s/ / \ /g;
$subject =~ s//>/g;
$subject =~ s/\|/\|/g;
$message =~ s/\cM//g;
$message =~ s~\[([^\]]{0,30})\n([^\]]{0,30})\]~\[$1$2\]~g;
$message =~ s~\[/([^\]]{0,30})\n([^\]]{0,30})\]~\[/$1$2\]~g;
$message =~ s~(\w+://[^<>\s\n\"\]\[]+)\n([^<>\s\n\"\]\[]+)~$1$2~g;
$message =~ s/\&/\&/g;
$message =~ s/"/\"/g;
$message =~ s/ / \ /g;
$message =~ s//>/g;
$message =~ s/\t/ \ \ \ /g;
$message =~ s/\n/
$message =~ s/\cM//g;
$message =~ s~\[([^\]]{0,30})\n([^\]]{0,30})\]~\[$1$2\]~g;
$message =~ s~\[/([^\]]{0,30})\n([^\]]{0,30})\]~\[/$1$2\]~g;
$message =~ s~(\w+://[^<>\s\n\"\]\[]+)\n([^<>\s\n\"\]\[]+)~$1$2~g;
if ($enable_html == 0) {
$subject =~ s/\&/\&/g;
$subject =~ s/"/\"/g;
$subject =~ s//>/g;
$message =~ s/\&/\&/g;
$message =~ s/"/\"/g;
$message =~ s/ / \ /g;
$message =~ s//>/g;
}
$subject =~ s/ / \ /g;
$message =~ s/ / \ /g;
$message =~ s/\t/ \ \ \ /g;
$message =~ s/\n/
if($username eq 'Guest' && $enable_guestposting == 0) { &fatal_error($txt{'165'}); }
if ($enable_ubbc == 1) { $ubbconoff = "ON"; } else { $ubbconoff = "OFF"; }
if ($enable_html == 1) { $htmlonoff = "ON"; } else { $htmlonoff = "OFF"; }
$txt{'72'}:
$txt{'72'}: HTML is turned $htmlonoff
$FORM{'message'} =~ s/\&/\&/g;
$FORM{'message'} =~ s/"/\"/g;
$FORM{'message'} =~ s/ / \ /g;
$FORM{'message'} =~ s//>/g;
$FORM{'message'} =~ s/\t/ \ \ \ /g;
$FORM{'message'} =~ s/\cM//g;
$FORM{'message'} =~ s~(\S{80})(?=\S)~$1\n~g;
$FORM{'message'} =~ s/\|/\|/g;
if ($enable_html == 0) {
$FORM{'message'} =~ s/\&/\&/g;
$FORM{'message'} =~ s/"/\"/g;
$FORM{'message'} =~ s//>/g;
$FORM{'message'} =~ s/\cM//g;
$FORM{'message'} =~ s~(\S{80})(?=\S)~$1\n~g;
}
$FORM{'message'} =~ s/ / \ /g;
$FORM{'message'} =~ s/\t/ \ \ \ /g;
$FORM{'message'} =~ s/\|/\|/g;
$subject =~ s/\&/\&/g;
$subject =~ s/"/\"/g;
$subject =~ s/ / \ /g;
$subject =~ s//>/g;
$subject =~ s/\|/\|/g;
$message =~ s/\&/\&/g;
$message =~ s/"/\"/g;
$message =~ s/ / \ /g;
$message =~ s//>/g;
$message =~ s/\t/ \ \ \ /g;
$message =~ s/\n/
if ($enable_html == 0) {
$subject =~ s/\&/\&/g;
$subject =~ s/"/\"/g;
$subject =~ s//>/g;
$message =~ s/\&/\&/g;
$message =~ s/"/\"/g;
$message =~ s/ / \ /g;
$message =~ s//>/g;
}
$subject =~ s/ / \ /g;
$message =~ s/ / \ /g;
$message =~ s/\t/ \ \ \ /g;
$message =~ s/\n/
Sources/InstantMessage.pl
$subject =~ s/\&/\&/g;
$message =~ s/\&/\&/g;
$subject =~ s/"/\"/g;
$message =~ s/"/\"/g;
$subject =~ s/ / \ /g;
$message =~ s/ / \ /g;
$subject =~ s//>/g;
$subject =~ s/\|/\|/g;
$message =~ s//>/g;
$message =~ s/\t/ \ \ \ /g;
$message =~ s/\cM//g;
$message =~ s/\n/
if ($enable_html == 0) {
$subject =~ s/\&/\&/g;
$message =~ s/\&/\&/g;
$subject =~ s/"/\"/g;
$message =~ s/"/\"/g;
$subject =~ s//>/g;
$message =~ s//>/g;
$message =~ s/\cM//g;
}
$message =~ s/\n/
Sources/ModifyMessage.pl
$subject =~ s/\&/\&/g;
$subject =~ s/"/\"/g;
$subject =~ s/ / \ /g;
$subject =~ s//>/g;
$subject =~ s/\|/\|/g;
&fatal_error($txt{'77'}) unless($subject && $subject !~ m~\A[\s_.,]+\Z~ );
$message =~ s/\cM//g;
$message =~ s~\[([^\]]{0,30})\n([^\]]{0,30})\]~\[$1$2\]~g;
$message =~ s~\[/([^\]]{0,30})\n([^\]]{0,30})\]~\[/$1$2\]~g;
$message =~ s~(\w+://[^<>\s\n\"\]\[]+)\n([^<>\s\n\"\]\[]+)~$1\n$2~g;
#$message =~ s~(\S{80})(?=\S)~$1\n~g;
$message =~ s/\&/\&/g;
$message =~ s/"/\"/g;
$message =~ s/ / \ /g;
$message =~ s//>/g;
$message =~ s/\t/ \ \ \ /g;
$message =~ s/\n/
&fatal_error($txt{'77'}) unless($subject && $subject !~ m~\A[\s_.,]+\Z~ );
if ($enable_html == 0) {
$subject =~ s/\&/\&/g;
$subject =~ s/"/\"/g;
$subject =~ s//>/g;
$message =~ s/\cM//g;
$message =~ s~\[([^\]]{0,30})\n([^\]]{0,30})\]~\[$1$2\]~g;
$message =~ s~\[/([^\]]{0,30})\n([^\]]{0,30})\]~\[/$1$2\]~g;
$message =~ s~(\w+://[^<>\s\n\"\]\[]+)\n([^<>\s\n\"\]\[]+)~$1\n$2~g;
#$message =~ s~(\S{80})(?=\S)~$1\n~g;
$message =~ s/\&/\&/g;
$message =~ s/"/\"/g;
$message =~ s//>/g;
}
$message =~ s/\t/ \ \ \ /g;
$message =~ s/\n/
Sources/Admin.pl
my @onoff = qw/
allowpics showyabbcbutt showbdescrip maintenance guestaccess insert_original enable_ubbc enable_news enable_guestposting enable_notification showlatestmember showrecentbar showmemberbar showmarkread showmodify showuserpic showusertext showgenderimage shownewsfader MenuType curposlinks profilebutton autolinkurls emailpassword RegAgree emailwelcome allow_hide_email usetempfile faketruncation emailnewpass yyForceIIS yyblankpageIIS/;
push(@onoff, " enable_html");
my($snfchecked, $fls1, $fls2, $fls3, $utfchecked, $truncchecked, $mts1, $mts2, $mts3, $tsl6, $tsl5, $tsl4, $tsl3, $tsl2, $tsl1);
my($htmlchecked);
if ($maintenance) { $mainchecked = ' checked'; }
if ($enable_html) { $htmlchecked = ' checked'; }
$timeout = $FORM{'timeout'} || 0;
$enable_html = $FORM{'enable_html'} || 0;
$txt{'379'}
Enable HTML?
########## Feature Settings ##########
\$enable_html = $enable_html; # Set to 1 if you want to enable HTML
Sources/Profile.pl
$member{'signature'} =~ s/
if ($enable_html == 0) {
$member{'signature'} =~ s/