###############################################################################
# YaBBC.pl                                                                    #
###############################################################################
# YaBB: Yet another Bulletin Board                                            #
# Open-Source Community Software for Webmasters                               #
# Software Version: YaBB 1 Gold - SP1                                         #
# Released: December 2001                                                     #
# =========================================================================== #
# Software Distributed by:    http://yabb.xnull.com                           #
# Support, News, Updates at:  http://yabb.xnull.com/community/                #
# =========================================================================== #
# Copyright (c) 2000-2002 Xnull (www.xnull.com) - All Rights Reserved.        #
# Software by: The YaBB Development Team                                      #
#              with assistance from the YaBB community.                       #
###############################################################################

$yabbcplver = "1 Gold - SP1";

$yyYaBBCloaded = 1;

sub validwidth {
	return ( $_[0] > 400 ? 400 : $_[0] );
}

sub MakeSmileys {
# --- Added for Notify Plus 2.2 --- #

local($parameter) = @_;

# Save & Change Image Directory
if ($parameter eq "IncludeImage") {
	$save_imagesdir = $imagesdir;
	$imagesdir = $imagesurl;
}

# --- /Added for Notify Plus 2.2 --- #


$message =~ s/\[smilie=(.*?)\]/\<img border=0 src=$smiliesurl\/$1\>/isg;
	$message =~ s/\[smiley=(.*?)\]/\<img border=0 src=$smiliesurl\/$1\>/isg;
	$message =~ s/(\W|\A)\;\)/$1\<img border=0 src=$imagesdir\/wink.gif\>/g;
	$message =~ s/(\W|\A)\;\-\)/$1\<img border=0 src=$imagesdir\/wink.gif\>/g;
	$message =~ s/(\W|\A)\;D/$1\<img border=0 src=$imagesdir\/grin.gif\>/g;
	$message =~ s/\Q:'(\E/\<img border=0 src=$imagesdir\/cry.gif\>/g;
	$message =~ s/(\W)\:\-\//$1\<img border=0 src=$imagesdir\/undecided.gif\>/g;
	$message =~ s/:\-\//<img border=0 src=$imagesdir\/undecided.gif\>/g;
	$message =~ s/\Q:-X\E/\<img border=0 src=$imagesdir\/lipsrsealed.gif\>/g;
	$message =~ s/\Q:-[\E/\<img border=0 src=$imagesdir\/embarassed.gif\>/g;
	$message =~ s/\Q:-*\E/\<img border=0 src=$imagesdir\/kiss.gif\>/g;
	$message =~ s/\Q&gt;:(\E/\<img border=0 src=$imagesdir\/angry.gif\>/g;
	$message =~ s/\Q>:(\E/\<img border=0 src=$imagesdir\/angry.gif\>/g;
	$message =~ s/\Q::)\E/\<img border=0 src=$imagesdir\/rolleyes\.gif\>/g;
	$message =~ s/\Q:P\E/\<img border=0 src=$imagesdir\/tongue\.gif\>/g;
	$message =~ s/\Q:)\E/\<img border=0 src=$imagesdir\/smiley\.gif\>/g;
	$message =~ s/\Q:-)\E/\<img border=0 src=$imagesdir\/smiley\.gif\>/g;
	$message =~ s/\Q:D\E/\<img border=0 border=0 src=$imagesdir\/cheesy.gif\>/g;
	$message =~ s/\Q:-(\E/\<img border=0 src=$imagesdir\/sad.gif\>/g;
	$message =~ s/\Q:(\E/\<img border=0 src=$imagesdir\/sad.gif\>/g;
	$message =~ s/\Q:o\E/\<img border=0 src=$imagesdir\/shocked.gif\>/gi;
	$message =~ s/\Q8)\E/\<img border=0 src=$imagesdir\/cool.gif\>/g;
	$message =~ s/\Q???\E/\<img border=0 src=$imagesdir\/huh.gif\>/g;
	$message =~ s/\Q?!?\E/\<img border=0 src=$imagesdir\/huh.gif\>/g;
	$count=0;
	while($SmilieURL[$count]) {
		if ($SmilieURL[$count]=~ /\//i) {$tmpurl = $SmilieURL[$count];} else {$tmpurl = qq~$imagesdir/$SmilieURL[$count]~;}
		$tmpcode = $SmilieCode[$count];
		$tmpcode =~ s/&#36;/\$/g;
		$tmpcode =~ s/&#64;/\@/g;
		$message =~ s/\Q$tmpcode\E/\<img border=0 src=$tmpurl\>/g;
		$count++
	}
# --- Added for Notify Plus 2.2 --- #

# Restore Image Directory
if ($parameter eq "IncludeImage") {
	$imagesdir = $save_imagesdir;
}
# --- /Added for Notify Plus 2.2 --- #

}

$MAXIMGWIDTH = 400;
$MAXIMGHEIGHT = 500;
sub restrictimage {
	my($w,$h,$s) = @_;
	$w = $w <= $MAXIMGWIDTH ? $w : $MAXIMGWIDTH;
	$h = $h <= $MAXIMGHEIGHT ? $h : $MAXIMGHEIGHT;
	return qq~<img src="$s" width="$w" height="$h" alt="" border="0" onError='this.src="$imagesdir/blank.gif"'>~;
}

sub box {
	$parameter{'width'}  = "";
	$parameter{'color'}  = "";
	my ($tmpstuff, $tmpmessage) = @_;
	foreach $dummy (split(/ /,$tmpstuff)) {
		($key, $value) = split(/=/,$dummy);
		$parameter{$key} = $value;
	}

	if ($parameter{'width'} eq "") {$parameter{'width'} = "90%";}
	if ($parameter{'color'} ne "") {$parameter{'color'} = qq~ bgcolor="$parameter{'color'}" style="background-color:$parameter{'color'}"~;}
	if ($parameter{'align'} ne "") {$parameter{'align'} = qq~ align="$parameter{'align'}"~;}

	$_ = $txt{'706a'};
	$_ =~ s~BOXWIDTH~$parameter{"width"}~ig;
	$_ =~ s~BOXSTYLE~$parameter{'color'}~ig;
	$_ =~ s~BOXALIGN~$parameter{'align'}~ig;
	$_ =~ s~BOXMESSAGE~$tmpmessage~ig;
	return $_;
}

sub whisper { 
	my ($whisper_name, $whisper_msg) = @_; 
	&LoadUserDisplay($whisper_name);
	if ($whisper_name eq $username) { 
		$whisper_msg =~ s~\/me\s+(.*?)(\n.*?)~<font color="#FF0000">* $1</font>~ig;
		$whisper_msg =~ s~<font color="#FF0000">(.*?)\/me~<font color="#FF0000">$1\&\#47\;me~ig;
		$whisper_msg =~ s~\/me\s+([\s\S]*)~<font color="#FF0000">* $1</font>~ig;
		$whisper_msg =~ s~\/me~\&\#47\;me~ig;
		return qq~<b>$YaBBCtxt{'whsp2'}</b>$whisper_msg~; 
	} elsif ($username eq $tmpuname || $moderators{$username} || $settings[7] eq 'Administrator' || $settings[7] eq 'Global Moderator') { 
		return qq~<b>$YaBBCtxt{'whsp1'}</b>$userprofile{$whisper_name}->[1]: $whisper_msg~; 
	} else { 
		return qq~[<b>$YaBBCtxt{'whsp3'}</b>$userprofile{$whisper_name}->[1] ]~; 
	} 
} 
sub xwhisper { 
	my ($whisper_name, $whisper_msg) = @_; 
	&LoadUserDisplay($whisper_name);
	if ($whisper_name ne $username && $username ne 'Guest') { 
		$whisper_msg =~ s~\/me\s+(.*?)(\n.*?)~<font color="#FF0000">* $1</font>~ig;
		$whisper_msg =~ s~<font color="#FF0000">(.*?)\/me~<font color="#FF0000">$1\&\#47\;me~ig;
		$whisper_msg =~ s~\/me\s+([\s\S]*)~<font color="#FF0000">* $1</font>~ig;
		$whisper_msg =~ s~\/me~\&\#47\;me~ig;
		return qq~<b>$YaBBCtxt{'whsp2'}</b>$whisper_msg~; 
	} elsif ($username eq $tmpuname || $moderators{$username} || $settings[7] eq 'Administrator' || $settings[7] eq 'Global Moderator') { 
		return qq~<b>$YaBBCtxt{'whsp4'}</b>$userprofile{$whisper_name}->[1]: $whisper_msg~; 
	} else { 
		return qq~[<b>$YaBBCtxt{'whsp5'}</b>$userprofile{$whisper_name}->[1] ]~; 
	} 
} 
 
sub quotemsg {
	my( $qauthor, $qlink, $qdate, $qmessage ) = @_;
	$qmessage =~ s~\/me\s+(.*?)(\n.*?)~<font color="#FF0000">* $qauthor $1</font>$2~ig;
	$qmessage =~ s~<font color="#FF0000">(.*?)\/me~<font color="#FF0000">$1\&\#47\;me~ig;
	$qmessage =~ s~\/me\s+([\s\S]*)~<font color="#FF0000">* $qauthor $1</font>~ig;
	$qdate = &timeformat($qdate);
	######### Media Player mod
	$qmessage =~ s~\[media~\[qmedia~ig;
	$qmessage =~ s~\[\/media~\[\/qmedia~ig;
	$qmediausername = $qauthor;
	$mediaflag = 'quote';
    ######### Media Player mod end
	if($action ne "imshow") { $_ = $txt{'704'}; }
	else { $_ = $imtxt{'68'}; }
	$_ =~ s~AUTHOR~$qauthor~g;
	$_ =~ s~QUOTELINK~$scripturl?action=display;$qlink~g;
	$_ =~ s~DATE~$qdate~g;
	$_ =~ s~QUOTE~$qmessage~g;
	return $_;
}

sub simplequotemsg {
	my $qmessage = $_[0];
	$qmessage =~ s~\/me\s+(.*?)(\n.*?)~<font color="#FF0000">* $1</font>~ig;
	$qmessage =~ s~<font color="#FF0000">(.*?)\/me~<font color="#FF0000">$1\&\#47\;me~ig;
	$qmessage =~ s~\/me\s+([\s\S]*)~<font color="#FF0000">* $1</font>~ig;
	$qmessage =~ s~\/me~\&\#47\;me~ig;
	$_ = $txt{'705'};
	$_ =~ s~QUOTE~$qmessage~g;
	return $_;
}

{
	my %killhash = (
	';' => '&#059;',
	'!' => '&#33;',
	'(' => '&#40;',
	')' => '&#41;',
	'-' => '&#45;',
	'.' => '&#46;',
	'/' => '&#47;',
	':' => '&#58;',
	'?' => '&#63;',
	'[' => '&#91;',
	'\\' => '&#92;',
	']' => '&#93;',
	'^' => '&#94;'
	);
	sub codemsg {
		my $code = $_[0];
		if($code !~ /&\S*;/) { $code =~ s/;/&#059;/g; }
		$code =~ s~([\(\)\-\:\\\/\?\!\]\[\.\^])~$killhash{$1}~g;
		$code =~ s~\&\#91\;highlight\&\#93\;(.*?)\&\#91\;\&\#47\;highlight\&\#93\;~<b>$1</b>~isg;
		$code =~ s~\&\#91\;highlight size=(.*?) color=(.*?) background=(.*?)\&\#93\;(.*?)\&\#91\;\&\#47\;highlight\&\#93\;~<font size="$1" color="$2" class="highlight" style="background-color:$3;"><b>$4</b></font>~isg;
		$_ = $txt{'706'};
		$_ =~ s~CODE~$code~g;
		return $_;
	}
}

sub DoUBBC {
	$message =~ s~\[code\]~ \[code\]~ig;
	$message =~ s~\[/code\]~ \[/code\]~ig;
	$message =~ s~\[quote\]~ \[quote\]~ig;
	$message =~ s~\[/quote\]~ \[/quote\]~ig;
	$message =~ s~\[glow\]~ \[glow\]~ig;
	$message =~ s~\[/glow\]~ \[/glow\]~ig;
	$message =~ s~<br>~\n~ig;
	$message =~ s~\[code\]\n*(.+?)\n*\[/code\]~&codemsg($1)~eisg;
	if ($message =~ /\#nosmileys/isg || $ns =~ "NS") {$message =~ s/\#nosmileys//isg;} else { &MakeSmileys; }
	$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~\[b\](.+?)\[/b\]~<b>$1</b>~isg;
	$message =~ s~\[i\](.+?)\[/i\]~<i>$1</i>~isg;
	$message =~ s~\[u\](.+?)\[/u\]~<u>$1</u>~isg;
	$message =~ s~\[s\](.+?)\[/s\]~<s>$1</s>~isg;
	$message =~ s~\[move\](.+?)\[/move\]~<marquee>$1</marquee>~isg;

	$message =~ s~\[glow(.*?)\](.*?)\[/glow\]~qq^[glow$1]^ . &elimnests($2) . q^[/glow]^~eisg;
	$message =~ s~\[shadow(.*?)\](.*?)\[/shadow\]~qq^[shadow$1]^ . &elimnests($2) . q^[/shadow]^~eisg;

	$message =~ s~\[shadow=(\S+?),(.+?),(.+?)\](.+?)\[/shadow\]~q^[&table width=^ . validwidth($3) . qq^ style="filter:shadow\(color=$1, direction=$2\)"\]$4\[/\&table\]^~eisg;
	$message =~ s~\[glow=(\S+?),(.+?),(.+?)\](.+?)\[/glow\]~q^[&table width=^ . validwidth($3) . qq^ style="filter:glow\(color=$1, strength=$2\)"\]$4\[/\&table\]^~eisg;
	

	$message =~ s~\[color=([\w#]+)\](.*?)\[/color\]~<font color="$1">$2</font>~isg;
	$message =~ s~\[black\](.*?)\[/black\]~<font color=000000>$1</font>~isg;
	$message =~ s~\[white\](.*?)\[/white\]~<font color=FFFFFF>$1</font>~isg;
	$message =~ s~\[red\](.*?)\[/red\]~<font color=FF0000>$1</font>~isg;
	$message =~ s~\[green\](.*?)\[/green\]~<font color=00FF00>$1</font>~isg;
	$message =~ s~\[blue\](.*?)\[/blue\]~<font color=0000FF>$1</font>~isg;
	$message =~ s~\[highlight\](.*?)\[/highlight\]~<b>$1</b>~isg;
	$message =~ s~\[highlight size=(.*?) color=(.*?) background=(.*?)\](.*?)\[/highlight\]~<font size="$1" color="$2" class="highlight" style="background-color:$3;"><b>$4</b></font>~isg;

	$message =~ s~\[font=(.+?)\](.+?)\[/font\]~<font face="$1">$2</font>~isg;
	$message =~ s~\[size=(.+?)\](.+?)\[/size\]~<font size="$1">$2</font>~isg;

	$char_160 = chr(160);
	$message =~ s~\[img\][\s*\t*\n*(&nbsp;)*($char_160)*]*(http\:\/\/)*(.+?)[\s*\t*\n*(&nbsp;)*($char_160)*]*\[/img\]~<img src="http\:\/\/$2" alt="" border="0" onError='this.src="$imagesdir/blank.gif"' onLoad="if (this.width > $MAXIMGWIDTH) {this.height = this.height * $MAXIMGWIDTH / this.width; this.width = $MAXIMGWIDTH; } if (this.height > $MAXIMGHEIGHT) {this.width = this.width * $MAXIMGHEIGHT/ this.height; this.height = $MAXIMGHEIGHT; }">~isg;
	$message =~ s~\[img width=(\d+) height=(\d+)\][\s*\t*\n*(&nbsp;)*($char_160)*]*(http\:\/\/)*(.+?)[\s*\t*\n*(&nbsp;)*($char_160)*]*\[/img\]~restrictimage($1,$2,'http://'.$4)~eisg;

	$message =~ s~\[tt\](.*?)\[/tt\]~<tt>$1</tt>~isg;
	$message =~ s~\[left\](.+?)\[/left\]~<p align=left>$1</p>~isg;
	$message =~ s~\[center\](.+?)\[/center\]~<center>$1</center>~isg;
	$message =~ s~\[right\](.+?)\[/right\]~<p align=right>$1</p>~isg;
	$message =~ s~\[sub\](.+?)\[/sub\]~<sub>$1</sub>~isg;
	$message =~ s~\[sup\](.+?)\[/sup\]~<sup>$1</sup>~isg;
	$message =~ s~\[fixed\](.+?)\[/fixed\]~<font face="Ms Sans Serif">$1</font>~isg;

	$message =~ s~\[hr\]\n~<hr width="40%" align="left" size="1" class="hr">~g;
	$message =~ s~\[hr\]~<hr width="40%" align="left" size="1" class="hr">~g;
	$message =~ s~\[br\]~\n~ig;

	if( $autolinkurls ) {
		$message =~ s~([^\w\"\=\[\]]|[\n\b]|\A)\\*(\w+://[\w\~\.\;\:\,\$\-\+\!\*\?/\=\&\@\#\%]+\.[\w\~\;\:\$\-\+\!\*\?/\=\&\@\#\%]+[\w\~\;\:\$\-\+\!\*\?/\=\&\@\#\%])~$1<a href="$2" target="_blank">$2</a>~isg;
		$message =~ s~([^\"\=\[\]/\:\.(\://\w+)]|[\n\b]|\A)\\*(www\.[^\.][\w\~\.\;\:\,\$\-\+\!\*\?/\=\&\@\#\%]+\.[\w\~\;\:\$\-\+\!\*\?/\=\&\@\#\%]+[\w\~\;\:\$\-\+\!\*\?/\=\&\@\#\%])~$1<a href="http://$2" target="_blank">$2</a>~isg;
	}
	$message =~ s~\[url\]www\.\s*(.+?)\s*\[/url\]~<a href="http://www.$1" target="_blank">www.$1</a>~isg;
	$message =~ s~\[url=\s*(\w+\://.+?)\](.+?)\s*\[/url\]~<a href="$1" target="_blank">$2</a>~isg;
	$message =~ s~\[url=\s*(.+?)\]\s*(.+?)\s*\[/url\]~<a href="http://$1" target="_blank">$2</a>~isg;
	$message =~ s~\[url\]\s*(.+?)\s*\[/url\]~<a href="$1" target="_blank">$1</a>~isg;

	$message =~ s~\[link\]www\.\s*(.+?)\s*\[/link\]~<a href="http://www.$1">www.$1</a>~isg;
	$message =~ s~\[link=\s*(\w+\://.+?)\](.+?)\s*\[/link\]~<a href="$1">$2</a>~isg;
	$message =~ s~\[link=\s*(.+?)\]\s*(.+?)\s*\[/link\]~<a href="http://$1">$2</a>~isg;
	$message =~ s~\[link\]\s*(.+?)\s*\[/link\]~<a href="$1">$1</a>~isg;

	$message =~ s~\[email\]\s*(\S+?\@\S+?)\s*\[/email\]~<a href="mailto:$1">$1</a>~isg;
	$message =~ s~\[email=\s*(\S+?\@\S+?)\]\s*(.*?)\s*\[/email\]~<a href="mailto:$1">$2</a>~isg;

	$message =~ s~\[news\](.+?)\[/news\]~<a href="$1">$1</a>~isg;
	$message =~ s~\[gopher\](.+?)\[/gopher\]~<a href="$1">$1</a>~isg;
	$message =~ s~\[ftp\](.+?)\[/ftp\]~<a href="$1">$1</a>~isg;

    $message =~ s~\[box+(.*?)\](.*?)\[\/box\]~&box($1,$2)~eisg;

	$message =~ s~\[quote\s+author=(.*?)link=(.*?)\s+date=(.*?)\s*\]\n*(.*?)\n*\[/quote\]~&quotemsg($1,$2,$3,$4)~eisg;
	$message =~ s~\[quote\]\n*(.+?)\n*\[/quote\]~&simplequotemsg($1)~eisg;
	$message =~ s~\[offtopic\](.+?)\[/offtopic\]~<table border="0" bordercolor="#ffffff" cellspacing="0" cellpadding="0"><tr><td align="center"><img src="$imagesdir/offtopic_oben.gif" border="0"></td></tr><tr><td><table border="0" cellspacing="0" cellpadding="1" bgcolor="#9C5231"><tr><td><table border="0" cellspacing="0" cellpadding="3" bgcolor="#000000"><tr><td><u><font color="red">$santxt{'1'}</font> </u><br><font color="green"><ul>$1</ul></font></td></tr></table></td></tr></table></td></tr><tr><td align="center"><img src="$imagesdir/offtopic_unten.gif" border="0"></td></tr></table>~isg;
	$message =~ s~\[haha\](.+?)\[/haha\]~<table border="0" bordercolor="#ffffff" cellspacing="0" cellpadding="0"><tr><td align="center"><img src="$imagesdir/offtopic_oben.gif" border="0"></td></tr><tr><td><table border="0" cellspacing="0" cellpadding="1" bgcolor="#9C5231"><tr><td><table border="0" cellspacing="0" cellpadding="3" bgcolor="#000000"><tr><td><u><font color="#a72fcc"><b>$santxt{'2'}</b></font> </u><br><font color="#82aef0"><ul>$1</ul></font></td></tr></table></td></tr></table></td></tr><tr><td align="center"><img src="$imagesdir/offtopic_unten.gif" border="0"></td></tr></table>~isg;
	# The following tags are by Doctor San # 
	$message =~ s~\[beg\](.*?)\[/beg\]~<table border="0" bordercolor="#ffffff" cellspacing="0" cellpadding="0"><tr><td align="center"><img src="$imagesdir/offtopic_oben.gif" border="0"></td></tr><tr><td><table border="0" cellspacing="0" cellpadding="1" bgcolor="#9AEB31"><tr><td><table border="0" cellspacing="0" cellpadding="3" bgcolor="#000033"><tr><td><TABLE style="FILTER: glow(color='#E08CE9', strength=3)" width=400><b><font color="#123ace" size="3">$santxt{'3'}</font></b></TABLE><br><font color="#CCFF33" face="tahoma" size="2">$1</font><br><br><b><font color="#AA34DE">$santxt{'4'} <br><img src="$imagesdir/wave.gif" border="0"></font></b></td></tr></table></td></tr></table></td></tr><tr><td align="center"><img src="$imagesdir/offtopic_unten1.gif" border="0"></td></tr></table>~isg; 
	$message =~ s~\[e191\](.*?)\[/e191\]~<table border="0" bordercolor="#ffffff" cellspacing="0" cellpadding="0"><tr><td align="center"><img src="$imagesdir/offtopic_oben.gif" border="0"></td></tr><tr><td><table border="0" cellspacing="0" cellpadding="1" bgcolor="#9CEF31"><tr><td><table border="0" cellspacing="0" cellpadding="3" bgcolor="#333300"><tr><td><TABLE style="FILTER: glow(color='#CC3333', strength=3)" width=400><b><font color="#FFFFF1" size="3">$santxt{'5'} </font></b></TABLE><br><font color="#00FFFF" face="tahoma" size="2">$1</font><br><br><b><font color="#0033FF">$santxt{'6'} </font></b></td></tr></table></td></tr></table></td></tr><tr><td align="center"><img src="$imagesdir/offtopic_unten1.gif" border="0"></td></tr></table>~isg; 
	$message =~ s~\[hehe\](.*?)\[/hehe\]~<table border="0" bordercolor="#ffffff" cellspacing="0" cellpadding="0"><tr><td align="center"><img src="$imagesdir/offtopic_oben.gif" border="0"></td></tr><tr><td><table border="0" cellspacing="0" cellpadding="1" bgcolor="#CCFFFF"><tr><td><table border="0" cellspacing="0" cellpadding="3" bgcolor="#CC0066"><tr><td><TABLE style="FILTER: glow(color='#9CFFF9', strength=2)" width=500><b><font color="Red" size="3">$santxt{'7'} </font></b></TABLE><br><font color="#CCFFFF" face="tahoma" size="2">$1</font><br><br><font color="#99CCCC">$santxt{'8'} </font></td></tr></table></td></tr></table></td></tr><tr><td align="center"><img src="$imagesdir/offtopic_unten.gif" border="0"></td></tr></table>~isg;
	$message =~ s~\[to=(.+?)\](.+?)\[/to\]~<table border="0" bordercolor="#ffffff" cellspacing="0" cellpadding="0"><tr><td align="center"><img src="$imagesdir/offtopic_oben.gif" border="0"></td></tr><tr><td><table border="0" cellspacing="0" cellpadding="1" bgcolor="#C0E2FF"><tr><td><table border="0" cellspacing="0" cellpadding="3" bgcolor="#990000"><tr><td><TABLE style="FILTER: glow(color='#FFFFFF', strength=2)" width=500><font color="#FF3366" size="3"><b>$santxt{'9'} <font color="#234abc" face="tahoma"><i>$1</i></font></b></font></TABLE><br><font color="#996699" face="tahoma" size="2">$2</font><br><br><font color="#9933CC"><b>$santxt{'10'} </b></font></td></tr></table></td></tr></table></td></tr><tr><td align="center"><img src="$imagesdir/offtopic_unten2.gif" border="0"></td></tr></table>~isg;
	$message =~ s~\[doctor\](.*?)\[/doctor\]~<table border="0" bordercolor="#ffffff" cellspacing="0" cellpadding="0"><tr><td align="center"><img src="$imagesdir/offtopic_oben.gif" border="0"></td></tr><tr><td><table border="0" cellspacing="0" cellpadding="1" bgcolor="#663333"><tr><td><table border="0" cellspacing="0" cellpadding="3" bgcolor="#663366"><tr><td><TABLE style="FILTER: glow(color='#FF0033', strength=2)" width=400><b><font color="#00FF33" size="3">$santxt{'11'} </font></b></TABLE><br><font color="#CCFF33" face="tahoma" size="2">$1</font><br><br><b><font color="#CCFF99">$santxt{'12'} </font></b></td></tr></table></td></tr></table></td></tr><tr><td align="center"><img src="$imagesdir/offtopic_unten.gif" border="0"></td></tr></table>~isg;
	$message =~ s~\[oops\](.*?)\[/oops\]~<table border="0" bordercolor="#ffffff" cellspacing="0" cellpadding="0"><tr><td align="center"><img src="$imagesdir/offtopic_oben.gif" border="0"></td></tr><tr><td><table border="0" cellspacing="0" cellpadding="1" bgcolor="#00FFCC"><tr><td><table border="0" cellspacing="0" cellpadding="3" bgcolor="#003366"><tr><td><TABLE style="FILTER: glow(color='#66FF99', strength=4)" width=500><b><font color="#00FFFF" size="5">$santxt{'13'}  <img src="$imagesdir/lipsrsealed.gif" border="0"></font></b></TABLE><br><font color="#FFFF66" face="tahoma" size="2">$1</font><br><br><font color="#FF6699">$santxt{'13'} $santxt{'13'} $santxt{'13'} </font></td></tr></table></td></tr></table></td></tr><tr><td align="center"><img src="$imagesdir/offtopic_unten.gif" border="0"></td></tr></table>~isg;
	$message =~ s~\[sorry\](.*?)\[/sorry\]~<table border="0" bordercolor="#ffffff" cellspacing="0" cellpadding="0"><tr><td align="center"><img src="$imagesdir/offtopic_oben.gif" border="0"></td></tr><tr><td><table border="0" cellspacing="0" cellpadding="1" bgcolor="#996633"><tr><td><table border="0" cellspacing="0" cellpadding="3" bgcolor="#CC9966"><tr><td><TABLE style="FILTER: glow(color='#99FF66', strength=2)" width=500><b><font color="#CC0099" size="4">$santxt{'14'} </font></b></TABLE><br><font color="#996633" face="tahoma" size="2">$1</font><br><br><font color="#660033">$santxt{'15'} </font></td></tr></table></td></tr></table></td></tr><tr><td align="center"><img src="$imagesdir/offtopic_unten1.gif" border="0"></td></tr></table>~isg;
	# end of mod #
	$message =~ s~\[san1=(.+?)\](.+?)\[/san1\]~<table width="253" height="242" border="1" align="center" bordercolor="#0000FF" bgcolor="#0099FF"><tr><td height="18" bgcolor="#CCFF00" valign="top" align="center"><div align="center"><font face="MS Sans Serif" size="2" color="#FF0000"><strong>$1</strong></font></div></td></tr><tr><td bgcolor="#CCFFFF" bordercolor="#0000FF" valign="top" height="215"><marquee class=text onMouseOver=this.stop() onMouseOut=this.start() scrollamount=2 scrolldelay=80 direction=up height=190><font face="MS Sans Serif, Tahoma, sans-serif" size="2" color="#0000FF">$2</font></marquee></td></tr></table>~isg;
	$message =~ s~\[san2=(.+?)\](.+?)\[/san2\]~<table width="420" height="456" border="10" bgcolor="#000000" bordercolorlight="#8B2252" bordercolordark="#CD3278" bordercolor="#8B2252" cellpadding="5" align="center"><tr><td valign="top" background="$imagesdir/SaNScript/image/santagbg2.jpg"><center><font color="Pink" size="5" face="Verdana"><b>$1</b> </font></center><BR><marquee class=text onMouseOver=this.stop() onMouseOut=this.start() scrollamount=2 scrolldelay=80 direction=up height=390><font face="Arial, MS Sans Serif, sans-serif" size="4" color="#FFFFFF">$2</font></marquee></td></tr></table>~isg;
	$message =~ s~\[san3=(.+?)\](.+?)\[/san3\]~<table BORDER="11" CELLSPACING="2" width="100%" CELLPADDING="3" bordercolordark="#df709c" bordercolorlight="#df709c" align="center"><tr><td bgcolor="#000000"><table border="10"cellpadding="12" cellspacing="12" BGcolor="#000000" align="center" width="100%" height="290"><tr><td background="$imagesdir/SaNScript/image/santagbg3.jpg" border="2" align="center" valign="middle" width="40%"><font size="5" color="#6adf90" face="Arial, MS Sans Serif, sans-serif"><b>$1</b></font></td><td border="2"><marquee class=text onMouseOver=this.stop() onMouseOut=this.start() scrollamount=2 scrolldelay=100 direction=up height=270><font face="Arial, MS Sans Serif, sans-serif" size="3" color="#FFFFFF">$2</font></marquee></td></tr></table></td></tr></table>~isg;
	$message =~ s~\[san4=(.+?)\](.+?)\[/san4\]~<table align="center" width="75%" cellspacing="0" cellpadding="0" border="0"><tr height="35"><td width="13" width="13"><img src="$imagesdir/SaNScript/image/santag4_1a.gif" width="13" height="35" border="0"></td><td valign="top" background="$imagesdir/SaNScript/image/santag4_1b.gif"><table align="left" cellspacing="0" cellpadding="0" border="0"><tr><td valign="bottom" width="100%" height="21"><font face="MS Sans Serif, sans-serif" color="#00059F" size="4"><nobr><b>:: $1::</b></nobr></font></td></tr></table></td><td width="14"><img src="$imagesdir/SaNScript/image/santag4_1c.gif" width="14" height="35" border="0"></td></tr><tr><td background="$imagesdir/SaNScript/image/santag4_2a.gif">&nbsp;</td><td background="$imagesdir/SaNScript/image/santagbg4.gif"><marquee class=text onMouseOver=this.stop() onMouseOut=this.start() scrollamount=4 scrolldelay=200 direction=up height=290><font face="MS Sans Serif, sans-serif" color="#FFFFFF" size="3">$2 </font></marquee></td><td background="$imagesdir/SaNScript/image/santag4_2c.gif">&nbsp;</td></tr><tr><td background="$imagesdir/SaNScript/image/santag4_3a.gif"><img src="$imagesdir/SaNScript/image/santag4_3a.gif" width="13" height="14" border="0"></td><td background="$imagesdir/SaNScript/image/santag4_3b.gif"><img src="$imagesdir/SaNScript/image/santag4_3b.gif" width="9" height="14" border="0"></td><td background="$imagesdir/SaNScript/image/santag4_3c.gif"><img src="$imagesdir/SaNScript/image/santag4_3c.gif" width="14" height="14" border="0"></td></tr></table>~isg;
	$message =~ s~\[san5=(.+?)\](.+?)\[/san5\]~<table BORDER="15" CELLSPACING="4" width="100%" CELLPADDING="3" bordercolordark="#a90e33" bordercolorlight="#a90e33" align="center"><tr><td bgcolor="#000000" bordercolor="#070707"><table border="13"cellpadding="8" cellspacing="6" BGcolor="#000000" align="center" width="100%" height="340"><tr><td background="$imagesdir/SaNScript/image/santagbg5a.jpg" border="3" align="center" valign="middle" width="30%" bordercolor="#23eac7"><font size="3" color="#ae5430" face="MS Sans Serif, sans-serif"><b>$1</b></font></td><td border="3" background="$imagesdir/SaNScript/image/santagbg5b.jpg" bordercolor="#23eac7" width="70%"><marquee class=text onMouseOver=this.stop() onMouseOut=this.start() scrollamount=2 scrolldelay=200 direction=up height=300><font face="MS Sans Serif, sans-serif" size="3" color="#96652B">$2</font></marquee></td></tr></table></td></tr><tr><td width="100%" valign="middle" bgcolor="#000000"><marquee LOOP="infinite" BEHAVIOR="alternate"><font face="MS Sans Serif, sans-serif" size="3" color="#FFCAFF">$1</font></marquee></td></tr></table>~isg;
	$message =~ s~\[san6=(.+?)\](.+?)\[/san6\]~<table BORDER="12" CELLSPACING="4" width="100%" CELLPADDING="5" bordercolordark="#8adfc2" bordercolorlight="#8adfc2" align="center" bgcolor="#000000"><tr><td width="100%" valign="middle" bgcolor="#000000" border="2" align="center" bordercolor="#e54ac9"><font face="MS Sans Serif, sans-serif" size="3" color="#FE32CF"><strong>$1</strong></font></td></tr><tr><td bgcolor="#000000" bordercolor="#0CFA17"><table border="10"cellpadding="8" cellspacing="4" BGcolor="#000000" align="center" width="100%" height="340"><tr><td background="$imagesdir/SaNScript/image/santagbg6a.gif" border="5" width="50%" bordercolor="#23eac7"><marquee class=text onMouseOver=this.stop() onMouseOut=this.start() scrollamount=3 scrolldelay=150 direction=up height=300><font size="2" color="#5AFFF0" face="MS Sans Serif, sans-serif">$2</font></marquee></td><td border="5" background="$imagesdir/SaNScript/image/santagbg6b.jpg" bordercolor="#23eac7" width="50%"><marquee class=text onMouseOver=this.stop() onMouseOut=this.start() scrollamount=3 scrolldelay=150 direction=up height=300><font face="MS Sans Serif, sans-serif" size="2" color="#009ADB">$2</font></marquee></td></tr></table></td></tr></table>~isg;

	#SanSound
	if (($action eq "viewprofile" || $action eq "profile2")) {
	$char_160 = chr(160);
	$message =~ s~\[SanSound\][\s*\t*\n*(?:&nbsp;)*(?:$char_160)*]*(?:http\:\/\/)*(.+?)[\s*\t*\n*(?:&n bsp;)*(?:$char_160)*]*\[/SanSound\]~<br><center><img src="$imagesdir/sansound.gif" border="0" width="42" height="40">&nbsp;<font color="red" size="2" face="Verdana"><b>$santxt{'28'}</b></font><bgsound src="http\:\/\/$1" LOOP="infinite"></center><br>~isog;
	} else {
	$message =~ s~\[SanSound\](.+?)\[/SanSound\]~~isg;
	} 
	#End of SanSound
#### ironwing commented this stuff out
   #more attribute in table tag by Doctor San#
#	if( $message =~ m/\[table\]/g or $message =~ m/\[table(.*?)\]/g ) {
#		$message =~ s~\[table(.*?)\]~<table$1>~g;
#		$message =~ s~\[tr(.*?)\]~<tr$1>~g;
#		$message =~ s~\[td(.*?)\]~<td$1>~g;
#		$message =~ s~\[tr\]~<tr>~g;
#		$message =~ s~\[td\]~<td>~g;
#		$message =~ s~\[/td\]~</td>~g;
#		$message =~ s~\[/tr\]~</tr>~g;
#		$message =~ s~\[/table\]~</table>~g;
#	}
	 #end more attribute in table tag by Doctor San#

###########################################################
##################### Hidden/Spoiler Mod ####################
#############Copyright ? by Chicano and Darkened##############
##########################################################

	$random = 'S'.int(rand(9999));
	$message =~ s~\[hidden\](.+?)\[/hidden\]~<p><center><table width="80%" border="0" cellspacing="0" cellpadding="0"><tr><td width="50%"><table width="100%" border="1" cellspacing="0" cellpadding="2" bgcolor="#198acf"><tr><td width="50%"><font style="font-family: Ms Sans Serif, Helvetica, Arial; font-size: 10px; color: #000000;"> <b style="color:white;font-weight:bold">&nbsp;$santxt{'23'}&nbsp;&nbsp;&nbsp;$santxt{'24'} :</b> </font></td><td width="50%" align="right"> <a onClick="getElementById('$random').style.display='';$random.style.display=''" style="cursor :pointer"><img border=0 alt="Maximize" src=$imagesdir\/maximize.gif\></a> <a onClick="getElementById('$random').style.display='none';$random.style.display='none'" style="cursor :pointer"><img border=0 alt="Minimize" src=$imagesdir\/minimize.gif\></a> </td></tr></table></td></tr><tr><td border="1" bgcolor="#000304"><div style="width:100%;height:150px;overflow:auto;display:none;font-size:15px" id="$random"><font color="#FFFFFF">$1</font></div></td></tr></table></p></center>~isg;

	$randomtitle = 'T'.int(rand(9999));
	$message =~ s~\[hidden title=(.+?)\](.+?)\[/hidden\]~<p><center><table width="60%" border="0" cellspacing="0" cellpadding="0"><tr><td width="50%"><table width="100%" border="0" cellspacing="0" cellpadding="2" class="titlebg"><tr><td width="50%"><font style="font-family: Ms Sans Serif, Helvetica, Arial; font-size: 10px; color: #000000;"> <b style="color:white;font-weight:bold;letter-spacing:2px">$1</b> </font></td><td width="50%" align="right"> <a onClick="getElementById('$randomtitle').style.display='';$randomtitle.style.display=''" style="cursor :pointer"><img border=0 alt="Maximize" src=$imagesdir\/maximize.gif\></a> <a onClick="getElementById('$randomtitle').style.display='none';$randomtitle.style.display='none'" style="cursor :pointer"><img border=0 alt="Minimize" src=$imagesdir\/minimize.gif\></a> </td></tr></table></td></tr><tr><td><div class="catbg" style="width:100%;height:70px;overflow:auto;display:none;font-size:15px" id="$randomtitle">$2</div></td></tr></table></p></center>~isg;

	$randomone = 'one'.int(rand(9999));
	$message =~ s~\[hidden style=1\](.+?)\[/hidden\]~<p><center><table width="60%" border="0" cellspacing="0" cellpadding="0"><tr><td width="50%"><table width="100%" border="0" cellspacing="0" cellpadding="2" class="titlebg"><tr><td width="50%"><font style="font-family: Ms Sans Serif, Helvetica, Arial; font-size: 10px; color: #000000;"> <b style="color:white;font-weight:bold">&nbsp;$santxt{'23'}&nbsp;&nbsp;&nbsp;$santxt{'24'} :</b> </font></td><td width="50%" align="right"> <a onClick="getElementById('$randomone').style.display='';$randomone.style.display=''" style="cursor :pointer"><img border=0 alt="Maximize" src=$imagesdir\/maximize.gif\></a> <a onClick="getElementById('$randomone').style.display='none';$randomone.style.display='none'" style="cursor :pointer"><img border=0 alt="Minimize" src=$imagesdir\/minimize.gif\></a> </td></tr></table></td></tr><tr><td><div class="catbg" style="width:100%;height:70px;overflow:auto;display:none;font-size:15px" id="$randomone">$2</div></td></tr></table></p></center>~isg;


	$message =~ s~\[hidden style=2\](.+?)\[/hidden\]~<p><center><table width="50%" border="0" cellspacing="0" cellpadding="0"><tr><td style="color:orange;font-size:10px;border:1px white solid;letter-spacing:2px;background:black;border-bottom:2px black solid;position:relative;top:3px"><center><b>$santxt{'23'} <br> $santxt{'25'}</b></center></td></tr></table><table width="70%" height="50px"><tr><td width="60%" style="font-size:15px;border:1px white solid;background:black;color:black">$1</td></tr></table></p></center>~isg;


	$randomtitleoneone = 'T11'.int(rand(9999));
	$message =~ s~\[hidden style=1 title=(.+?)\](.+?)\[/hidden\]~<p><center><table width="60%" border="0" cellspacing="0" cellpadding="0"><tr><td width="50%"><table width="100%" border="0" cellspacing="0" cellpadding="2" class="titlebg"><tr><td width="50%"><font style="font-family: Ms Sans Serif, Helvetica, Arial; font-size: 10px; color: #000000;"> <b style="color:white;font-weight:bold;letter-spacing:2px">$1</b> </font></td><td width="50%" align="right"> <a onClick="getElementById('$randomtitleoneone').style.display='';$randomtitleoneone.style.display=''" style="cursor :pointer"><img border=0 alt="Maximize" src=$imagesdir\/maximize.gif\></a> <a onClick="getElementById('$randomtitleoneone').style.display='none';$randomtitleoneone.style.display='none'" style="cursor :pointer"><img border=0 alt="Minimize" src=$imagesdir\/minimize.gif\></a> </td></tr></table></td></tr><tr><td><div class="catbg" style="width:100%;height:70px;overflow:auto;display:none;font-size:15px" id="$randomtitleoneone">$2</div></td></tr></table></p></center>~isg;

# Title + Style 2 (2)
	$message =~ s~\[hidden style=2 title=(.+?)\](.+?)\[/hidden\]~<p><center><table width="50%" border="0" cellspacing="0" cellpadding="0"><tr><td style="color:orange;font-size:10px;border:1px white solid;letter-spacing:2px;background:black;border-bottom:2px black solid;position:relative;top:3px"><center><b>$1 <br> $santxt{'25'}</b></center></td></tr></table><table width="70%" height="50px"><tr><td width="60%" style="font-size:15px;border:1px white solid;background:black;color:black">$2</td></tr></table></p></center>~isg;

###########################################################
##################### Hidden/Spoiler Mod ####################
#################### elchicano99@yahoo.com##################
################## zeke_summers@hotmail.com#################

	
	$message =~ s~\/me\s+(.*)~<font color="#FF0000">* $displayname $1</font>~ig;
	$message =~ s~\[kazip\=(.+?)\](.+?)\[\/kazip\]~&whisper($1,$2)~eisg; 
	$message =~ s~\[kazip\!(.+?)\](.+?)\[\/kazip\]~&xwhisper($1,$2)~eisg; 


	# more lists mod 
    $message =~ s~\[list type=1\](.+?)\[/list\]~<ol type=1>$1</ol>~isg;
    $message =~ s~\[list type=a\](.+?)\[/list\]~<ol type=a>$1</ol>~sg;
    $message =~ s~\[list type=A\](.+?)\[/list\]~<ol type=A>$1</ol>~isg;
    $message =~ s~\[list type=i\](.+?)\[/list\]~<ol type=i>$1</ol>~sg;
    $message =~ s~\[list type=I\](.+?)\[/list\]~<ol type=I>$1</ol>~isg;
    $message =~ s~\[list type=bullet\](.+?)\[/list\]~<ul type=bullet>$1</ul>~isg;
    $message =~ s~\[list type=disc\](.+?)\[/list\]~<ul type=disc>$1</ul>~isg;
    $message =~ s~\[list type=square\](.+?)\[/list\]~<ul type=square>$1</ul>~isg;
    $message =~ s~\[list\](.+?)\[/list\]~<ul type=bullet>$1</ul>~isg;
    $message =~ s~\[\*\]~<li>~isg;
    # end more lists mod

	$message =~ s~\[pre\](.+?)\[/pre\]~'<pre>' . dopre($1) . '</pre>'~iseg;


###### Media Player mod
	require "$vardir/mediasettings.txt";
	if( $flashtags == 1 ){
		$message =~ /\[flash\=(\S+?),(\S+?)](\S+?)\[\/flash\]/;
		$width = $1;
		$height = $2;
		if ($width > 500) { $width = 500; }
		if ($height > 500) { $height = 500; }
		$message =~ s~\[flash\=(\S+?),(\S+?)](\S+?)\[\/flash\]~<object classid=\"clsid:D27CDB6E-AE6D-11cf-96B8-444553540000\" width=$width height=$height><param name=movie value=$3><param name=play value=true><param name=loop value=true><param name=quality value=high><embed src=$3 width=$width height=$height play=true loop=true quality=high></embed></object>~g;
	}
	if ( ( $message =~ m~\[qmedia\=(\S+?),(\S+?),(\S+?)]\s*(.+?)\s*\[\/qmedia\]~ ) || ( $message =~ m~\[media\=(\S+?),(\S+?),(\S+?)]\s*(.+?)\s*\[\/media\]~ ) ) {
		require "$sourcedir/Media.pl";
		if ( $mediaflag eq 'quote' ) {
			$message =~ s~\[qmedia\=(\S+?),(\S+?),(\S+?)]\s*(.+?)\s*\[\/qmedia\]~&MediaTags2($1,$2,$3,$4)~eisg;
			$message =~ s~\[media\=(\S+?),(\S+?),(\S+?)]\s*(.+?)\s*\[\/media\]~&MediaTags1($1,$2,$3,$4)~eisg;

		} else {
			$message =~ s~\[media\=(\S+?),(\S+?),(\S+?)]\s*(.+?)\s*\[\/media\]~&MediaTags1($1,$2,$3,$4)~eisg;
		}
	}
###### Media Player mod end

### table tag stuff by ironwing
while ( $message =~ m/\[table(.*?)\]/i ) { 
      $tabletagcontents = $1; 
      $tabletagcontents =~ s/\cM//g; 
      $tabletagcontents =~ s~\[([^\]]{0,30})\n([^\]]{0,30})\]~\[$1$2\]~g; 
      $tabletagcontents =~ s~\[/([^\]]{0,30})\n([^\]]{0,30})\]~\[/$1$2\]~g; 
      $tabletagcontents =~ s~(\w+://[^<>\s\n\"\]\[]+)\n([^<>\s\n\"\]\[]+)~$1\n$2~g; 
      &ToHTML($tabletagcontents); 
      $message =~ s~\[table(.*?)\]~\<table $tabletagcontents\>~i; 
} 
while ( $message =~ m/\[tr(.*?)\]/i ) { 
      $tabletagcontents = $1; 
      $tabletagcontents =~ s/\cM//g; 
      $tabletagcontents =~ s~\[([^\]]{0,30})\n([^\]]{0,30})\]~\[$1$2\]~g; 
      $tabletagcontents =~ s~\[/([^\]]{0,30})\n([^\]]{0,30})\]~\[/$1$2\]~g; 
      $tabletagcontents =~ s~(\w+://[^<>\s\n\"\]\[]+)\n([^<>\s\n\"\]\[]+)~$1\n$2~g; 
      &ToHTML($tabletagcontents); 
      $message =~ s~\[tr(.*?)\]~\<tr $tabletagcontents\>~i;       
} 
while( $message =~ m/\[td(.*?)\]/i ) { 
      $tabletagcontents = $1; 
      $tabletagcontents =~ s/\cM//g; 
      $tabletagcontents =~ s~\[([^\]]{0,30})\n([^\]]{0,30})\]~\[$1$2\]~g; 
      $tabletagcontents =~ s~\[/([^\]]{0,30})\n([^\]]{0,30})\]~\[/$1$2\]~g; 
      $tabletagcontents =~ s~(\w+://[^<>\s\n\"\]\[]+)\n([^<>\s\n\"\]\[]+)~$1\n$2~g; 
      &ToHTML($tabletagcontents); 
      $message =~ s~\[td(.*?)\]~\<td $tabletagcontents\>~i; 
} 
$message =~ s~\[/td\]~</td>~ig; 
$message =~ s~\[/tr\]~</tr>~ig; 
$message =~ s~\[/table\]~</table>~ig;
### table test stuff by ironwing end

####  ironwing temporarily conmmented this stuff out
#	if( $message =~ m~\[table\]\s*(.+?)\s*\[tr\]~i ) {
#		while( $message =~ s~<marquee>(.*?)\[table\](.*?)\[/table\](.*?)</marquee>~<marquee>$1<table>$2</table>$3</marquee>~s ) {}
#		while( $message =~ s~<marquee>(.*?)\[table\](.*?)</marquee>(.*?)\[/table\]~<marquee>$1\[//table\]$2</marquee>$3\[//table\]~s ) {}
#		while( $message =~ s~\[table\](.*?)<marquee>(.*?)\[/table\](.*?)</marquee>~\[//table\]$1<marquee>$2\[//table\]$3</marquee>~s ) {}
#		$message =~ s~\n{0,1}\[table\]\n*(.+?)\n*\[/table\]\n{0,1}~<table>$1</table>~isg;
#		while( $message =~ s~\<table\>(.*?)\n*\[tr\]\n*(.*?)\n*\[/tr\]\n*(.*?)\</table\>~<table>$1<tr>$2</tr>$3</table>~is ) {}
#		while( $message =~ s~\<tr\>(.*?)\n*\[td\]\n{0,1}(.*?)\n{0,1}\[/td\]\n*(.*?)\</tr\>~<tr>$1<td>$2</td>$3</tr>~is ) {}
#	}
################
	while( $message =~ s~<a([^>]*?)\n([^>]*)>~<a$1$2>~ ) {}
	while( $message =~ s~<a([^>]*)>([^<]*?)\n([^<]*)</a>~<a$1>$2$3</a>~ ) {}
	while( $message =~ s~<a([^>]*?)&amp;([^>]*)>~<a$1&$2>~ ) {}
	while( $message =~ s~<img([^>]*?)\n([^>]*)>~<img$1$2>~ ) {}
	while( $message =~ s~<img([^>]*?)&amp;([^>]*)>~<img$1&$2>~ ) {}

	$message =~ s~\[\&table(.*?)\]~<table$1>~g;
	$message =~ s~\[/\&table\]~</table>~g;
	$message =~ s~\n~<br>~ig;
}

1;