$newthreadbutton $replybutton |
~;
#------- END HTML
$editpostnumber = $startarray; $editpostnumber++; $postcountnumber = 0;
foreach (@threads[$startarray .. $endarray]) {
($membername, $topictitle, $postipaddress, $showemoticons, $showsignature, $postdate, $post) = split(/\|/,$_);
$postdate = $postdate + ($timedifferencevalue*3600) + ($timezone*3600);
$postdate = &dateformat("$postdate");
&getmember("$membername");
$m_membername = &stripMETA($membername);
$m_membername =~ y! !_!; &set_up_guest() unless (-e $ikondir . 'members/'.$m_membername.'.cgi');
if ($joineddate) {
$joineddate = $joineddate + ($timedifferencevalue*3600) + ($timezone*3600);
$joineddate = &joineddate("$joineddate");
}
else { $joineddate = "N/A"; }
if (!$numberofposts) { $numberofposts = "N/A"; }
if (($post =~ /#Moderation Mode/i) and ($membercode eq 'mo' || $membercode eq 'ad')) {
$post =~ s/<//g; $post =~ s/"/\"/g;
}
if ($htmlstate eq 'on') {
$post =~ s/<//g; $post =~ s/"/\"/g;
}
if ($idmbcodestate eq 'on') {
$post = &ikoncode("$post");
}
if ($count eq 1) {
$postbackcolor = "$postcolorone"; $postfontcolor = "$postfontcolorone"; $count++;
}
else {
$postbackcolor = "$postcolortwo"; $postfontcolor = "$postfontcolortwo"; $count = 1;
}
if (($emoticons eq 'on') and ($showemoticons eq 'yes') and ($post =~ /:(.+?):/)) {
$post = &doemoticons("$post");
}
if (($emoticons eq 'on') && ($showemoticons eq 'yes')) {
$post =~ s/\:\)//g;
$post =~ s/\;\)//g;
$post =~ s/\:\(//g;
$post =~ s/\:o//g;
}
if (($signature) and ($showsignature eq 'yes')) {
$signature =~ s/</g; $signature =~ s/>/>/g;
$signature =~ s/\&/\&/isg;
$signature =~ s/\[b\]//isg;
$signature =~ s/\[\/b\]/<\/b>/isg;
$signature =~ s/\[i\]//isg;
$signature =~ s/\[\/i\]/<\/i>/isg;
$signature =~ s/\[url=\s*(.*?)\s*\]\s*(.*?)\s*\[\/url\]/$2<\/a>/isg;
$signature =~ s/\[url\]\s*http:\/\/(.*?)\s*\[\/url\]/http:\/\/$1<\/a>/isg;
$signature =~ s/\[url\]\s*(.*?)\s*\[\/url\]/$1<\/a>/isg;
$signature =~ s/\[br\]/\ /isg;
$signature =~ s/\\(\S+?)\@(\S+)/$1\@$2<\/a>/ig;
$signature =~ s/\[email=(\S+?)\]//isg;
$signature =~ s/\[\/email\]/<\/a>/isg;
$signature =~ s/\[img\](.+?)\[\/img\]//isg;
$signature =~ s/\[color=(\S+?)\]//isg;
$signature =~ s/\[\/color\]/<\/font>/isg;
$post = qq($post
$signature);
}
if ($numberofposts > $mpostmark5) { $mtitle = "$mtitle5"; $membergraphic = "$mgraphic5"; }
elsif ($numberofposts > $mpostmark4) { $mtitle = "$mtitle4"; $membergraphic = "$mgraphic4"; }
elsif ($numberofposts > $mpostmark3) { $mtitle = "$mtitle3"; $membergraphic = "$mgraphic3"; }
elsif ($numberofposts > $mpostmark2) { $mtitle = "$mtitle2"; $membergraphic = "$mgraphic2"; }
else { $mtitle = "$mtitle1"; $membergraphic = "$mgraphic1"; }
if ($membergraphic) { $membergraphic = ""; }
if (($avatars eq "on") && ($useravatar) && ($useravatar ne "noavatar")) {
($avatarwidth, $avatarheight) = (32, 32);
($avatarwidth, $avatarheight) = ($1, $2)
if $useravatar =~ /\((\d+)x(\d+)\)$/;
$useravatar = qq( );
}
else { undef $useravatar; }
$memberfilename = $membername;
$memberfilename =~ y/ /_/;
if ($threadstate !~ /\bclosed\b/) {
$replygraphic = qq~~;
}
else {
undef $replygraphic;
}
$privatemessagegraphic = qq~~;
$profilegraphic = qq~~;
$editgraphic = qq~~;
$partition = qq~~;
if($showemail eq "yes") { $emailgraphic = qq~~; }
else { undef $emailgraphic; }
$homepage =~ s/http\:\/\///sg;
if($homepage) { $homepagegraphic = qq~~; }
else { undef $homepagegraphic; }
if ($aolname) { $aolgraphic = qq~~; }
else { undef $aolgraphic; }
#if (($icqnumber) && ($icqnumber =~ /[0-9]/)) { $icqgraphic = qq~~; }
# else { undef $icqgraphic; }
undef $icqgraphic;
if ($membercode eq "ad") {
$posterfontcolor = "$adminnamecolor";
$membername = "$membername ";
$membergraphic = "";
if ($membertitle eq "") { $membertitle = "Administrator"; }
}
elsif ($membercode eq "mo") {
$posterfontcolor = "$teamnamecolor";
$membername = "$membername ";
if ($membertitle eq "") { $membertitle = "Moderator"; }
}
elsif ($membercode eq "banned") {
$posterfontcolor = "$posternamecolor";
$membergraphic = "";
$membertitle = "BANNED";
}
else { $posterfontcolor = "$posternamecolor"; }
if ($membertitle eq "member" || $membertitle eq "Member") { $membertitle = $mtitle; }
$membertitle =~ s/<//g; $membertitle =~ s/"/"/g;
$post =~ s/\(Edited by(.+?)\)/\\(Edited by$1\)\<\/font\>/isg;
#------- HTML
$output .= qq~
$membername
$useravatar
$membergraphic
$membertitle
|
$editgraphic $partition $profilegraphic $homepagegraphic $emailgraphic $privatemessagegraphic $aolgraphic $icqgraphic $partition $replygraphic
$post
|
Total Posts: $numberofposts | Joined $joineddate | Posted on: $postdate | IP
|
|
~;
#------- END HTML
$editpostnumber++; $postcountnumber++; undef $membercode;
}
#------- HTML
$output .= qq~
$newthreadbutton $replybutton |
|