###############################################################################
#Post.pl                                                                     #
###############################################################################
# YaBB: Yet another Bulletin Board                                            #
# Open-Source Community Software for Webmasters                               #
# Version:        YaBB 1 Gold - SP 1.3                                        #
# Released:       December 2001; Updated April 6, 2003                        #
# Distributed by: http://www.yabbforum.com                                    #
# =========================================================================== #
# Copyright (c) 2000-2003 YaBB (www.yabbforum.com) - All Rights Reserved.     #
# Software by: The YaBB Development Team                                      #
#              with assistance from the YaBB community.                       #
# Sponsored by: Xnull Internet Media, Inc. - http://www.ximinc.com            #
###############################################################################

$postplver = "1 Gold - SP 1.3";

sub Post {
        if($username eq 'Guest' && $enable_guestposting == 0) { &fatal_error($txt{'165'}); }
        if( $currentboard eq '' ) { &fatal_error($txt{'1'}); }
        my( $subtitle, $x, $mnum, $msub, $mname, $memail, $mdate, $mreplies, $musername, $micon, $mstate, $msubject, $mattach, $mip, $mmessage, $mns, $quotestart);
        my $quotemsg = $INFO{'quote'};
        $threadid = $INFO{'num'};

        ($mnum, $msub, $mname, $memail, $mdate, $mreplies, $musername, $micon, $mstate) = split(/\|/,$yyThreadLine);
        if( $mstate == 1 ) { &fatal_error($txt{'90'}); }

        # Determine what category we are in.
        fopen(FILE, "$boardsdir/$currentboard.ctb") || &fatal_error("300 $txt{'106'}: $txt{'23'} $currentboard.ctb");
        $cat = <FILE>;
        fclose(FILE);
        $curcat = $cat;
        fopen(FILE, "$boardsdir/$cat.cat") || &fatal_error("300 $txt{'106'}: $txt{'23'} $cat.cat");
        $cat = <FILE>;
        fclose(FILE);

        $pollthread = 0;
        $polltxt{'1a'} =~ tr/+/ /;
        $polltxt{'2a'} =~ tr/+/ /;
        if ($INFO{'title'} eq $polltxt{'1a'}) { $pollthread = 1; }
        elsif ($INFO{'title'} eq $polltxt{'2a'}) { $pollthread = 2; }
        if ($pollthread == 2 && $useraddpoll == 0) { &fatal_error($txt{'1'}); }

        $notification = ! $enable_notification || $username eq 'Guest' ? '' : <<"~;";
    <tr>
      <td class="windowbg" bgcolor="$color{'windowbg'}" width="241"><font size=2><b>$txt{'131'}:</b></font></td>
      <td class="windowbg" bgcolor="$color{'windowbg'}" width="241"><input type=checkbox name="notify" value="x"$notify> <font size="1">$txt{'750'}</font></td>
    </tr>
~;

        $name_field = $realname eq '' ? qq~      <tr>
    <td class="windowbg"><font size=2><b>$txt{'44'}:</b></font></td>
    <td class="windowbg"><input type=text name="name" size=25 value="$FORM{'name'}" maxlength="25" tabindex="2"></td>
      </tr>~ : qq~~;

        $email_field = $realemail eq '' ? qq~      <tr>
    <td class="windowbg"><font size=2><b>$txt{'69'}:</b></font></td>
    <td class="windowbg"><font size="2"><input type=text name="email" size=25 value="$FORM{'email'}" maxlength="40" tabindex="3"></font></td>
      </tr>~ : qq~~;

        $sub = "";
        $settofield="subject";
        if( $threadid ne '' ) {
                fopen(FILE, "$datadir/$threadid.txt") || &fatal_error("201 $txt{'106'}: $txt{'23'} $threadid.txt");
                @messages = <FILE>;
                fclose(FILE);

                if($quotemsg ne '') {
                        ($msubject, $mname, $memail, $mdate, $musername, $micon, $mattach, $mip, $mmessage, $mns) = split(/\|/,$messages[$quotemsg]);
                        $message=$mmessage;
                        $message =~ s~<br>~\n~g;
                        $message =~ s~\n{0,1}\[quote([^\]]*)\](.*?)\[/quote\]\n{0,1}~\n~isg;
                        $message =~ s~\n*\[/*quote([^\]]*)\]\n*~~ig;

                        $mname ||= $musername || $txt{'470'};
                        $quotestart = int( $quotemsg / $maxmessagedisplay ) * $maxmessagedisplay;
                        $message = qq~[quote author=$mname link=board=$currentboard;num=$threadid;start=$quotestart#$quotemsg date=$mdate\]$message\[/quote\]\n~;
                        $msubject =~ s/\bre:\s+//ig;
                        if ($mns eq "NS") {$nscheck="checked";}
                }
                else {
                        ($msubject, $mname, $memail, $mdate, $musername, $micon, $mattache, $mip, $mmessage, $mns) = split(/\|/,$messages[0]);
                        $msubject =~ s/\bre:\s+//ig;
                }
                $sub = "Re: $msubject";
                $settofield="message";
        }
        if ($pollthread && $username eq "Guest") {$guest_vote = 1;}
        if ($pollthread == 2) {
                $settofield="question";
                $sub = "$msubject";
        } else {
                if (!$enable_notification || $username eq 'Guest') {$notification = ""} else { $notification = qq~<tr>
                <td><font size="2"><b>$txt{'131'}:</b></font></td>
                <td><input type="checkbox" name="notify" value="x"$notify> <font size="1">$txt{'750'}</font></td>
              </tr>~;}
        }
        if(!$sub) { $subtitle = "<i>$txt{'33'}</i>"; }
        else { $subtitle = "<i>$sub</i>"; }
        $yymain .= qq~
<table  width="90%" align="center" cellpadding=0 cellspacing=0>
  <tr>
    <td valign="bottom" colspan="2">
    <font size="2" class="nav"><B><img src="$imagesdir/open.gif" border="0" alt="">&nbsp;&nbsp;
    <a href="$scripturl" class="nav">$mbname</a><br>
    <img src="$imagesdir/tline.gif" border="0" alt=""><img src="$imagesdir/open.gif" border="0" alt="">&nbsp;&nbsp;
    <a href="$scripturl#$curcat" class="nav">$cat</a><br>
    <img src="$imagesdir/tline2.gif" border="0" alt=""><img src="$imagesdir/open.gif" border="0" alt="">&nbsp;&nbsp;
    <a href="$cgi" class="nav">$boardname</a><br>
    <img src="$imagesdir/tline3.gif" border="0" alt=""><img src="$imagesdir/open.gif" border="0" alt="">&nbsp;&nbsp;
    $INFO{'title'} ( $subtitle )</B></font></td>
  </tr>
</table>
~;
        $submittxt = "$txt{'105'}";
        $destination = "post2";
        $icon = "xx";
        $is_preview = 0;
        $post = "post";
        $preview = "preview";
        $yytitle = "$INFO{'title'}";
        &Postpage;
        if ($pollthread != 2) { &doshowthread; }
        &template;
        exit;
}

sub Postpage {
        my $extra;
        if ($is_preview) {$txt{'507'}=$txt{'771'};}
        $message =~ s~<\/~\&lt\;/~isg;
        if($post eq "imsend") {
                if(!$INFO{'to'}) { $INFO{'to'} = $FORM{'to'};}
                if($INFO{'to'}) {$settofield="message";} else {$settofield="to";}
                $idinfo = "$INFO{'id'}";
if($action = "imsend") { $write_outbox = qq~<tr><td class="windowbg" bgcolor="$color{'windowbg'}" width="23%"><font size=2><b>$imtxt{'84'}</b></font></td><td><input type=checkbox name="wriout" value=1>&nbsp;$imtxt{'85'}</td></tr>~; }
if(!$INFO{'adminim'}) {
                $extra = qq~
      <tr>
        <td class="windowbg" bgcolor="$color{'windowbg'}" width="23%"><font size=2><b>$txt{'150'}</b></font></td>
        <td class="windowbg" bgcolor="$color{'windowbg'}">
        <input type=text name="to" value="$INFO{'to'}" size="20" maxlength="50" tabindex="2">
        <font size="1">$txt{'748'}</font></td>
      </tr>
        ~;

} else { $extra = qq~$adminim~; }
        }
        else {
         $extra = qq~
      <tr>
        <td class="windowbg" bgcolor="$color{'windowbg'}" width="241"><font size=2><b>$txt{'71'}:</b></font></td>
        <td class="windowbg" bgcolor="$color{'windowbg'}">
        <select name="icon" onChange="showimage()">
         <option value="xx"$ic1>$txt{'281'}
         <option value="thumbup"$ic2>$txt{'282'}
         <option value="thumbdown"$ic3>$txt{'283'}
         <option value="exclamation"$ic4>$txt{'284'}
         <option value="question"$ic5>$txt{'285'}
         <option value="lamp"$ic6>$txt{'286'}
         <option value="smiley"$ic7>$txt{'287'}
         <option value="angry"$ic8>$txt{'288'}
         <option value="cheesy"$ic9>$txt{'289'}
         <option value="laugh"$ic10>$txt{'290'}
         <option value="sad"$ic11>$txt{'291'}
         <option value="wink"$ic12>$txt{'292'}
        </select>
        <img src="$imagesdir/$icon.gif" name="icons" border=0 hspace=15></td>
      </tr>
         ~;
        if ($realname eq '' && $threadid ne '') {$settofield="name";}
        }
        if($INFO{'adminim'} || $INFO{'action'} eq "imgroups") { $destination = "imgroups"; }
        $yymain .= qq~

<table border="0" width="90%" cellspacing="1" cellpadding="0" bgcolor="$color{'bordercolor'}" class="bordercolor" align="center">
  <tr>
    <td bgcolor="$color{'bordercolor'}" class="bordercolor">
<form action="$cgi;action=$destination" method="post" name="postmodify" onSubmit="return submitproc()">
<script language="JavaScript1.2" src="$ubbcjspath" type="text/javascript"></script>
<script language="JavaScript1.2" type="text/javascript">
<!--

function showimage() {
   document.images.icons.src="$imagesdir/"+document.postmodify.icon.options[document.postmodify.icon.selectedIndex].value+".gif";
}
//-->
</script>
    <input type="hidden" name="threadid" value="$threadid">
    <input type=hidden name="postid" value="$postid">
    <input type=hidden name="info" value="$idinfo">
    <table class="titlebg" bgcolor="$color{'titlebg'}" width="100%">
      <tr>
        <td class="titlebg" bgcolor="$color{'titlebg'}"><font size="2" class="text1" color="$color{'titletext'}"><b>$yytitle</b></font></td>
      </tr>
    </table>
    </td>
  </tr>~;
        if ($pollthread != 2 || ($pollthread == 2 && $username eq 'Guest')) { $yymain .= qq~
  <tr>
    <td bgcolor="$color{'bordercolor'}" class="bordercolor">
    <table width="100%" cellpadding="3" cellspacing="0" bgcolor="$color{'windowbg'}" class="windowbg">~;
                if ($pollthread == 2 ) {$extra = "";} else { $yymain .= qq~
      <tr>
        <td class="windowbg" bgcolor="$color{'windowbg'}" width="241"><font size=2><b>$txt{'70'}:</b></font></td>
        <td class="windowbg" bgcolor="$color{'windowbg'}"><font size=2><input type=text name="subject" value="$sub" size="40" maxlength="50" tabindex="1"></font></td>
      </tr>
~;
                }
                $yymain .= qq~
$name_field
$email_field
$extra
    </table>
    </td>
   </tr>
~;
        }

## [Poll Mod Options] ##
        if ($pollthread) {
                $maxpq ||= 60;
                $maxpo ||= 50;
                $maxpc ||= 0;
                $numpolloptions ||= 8;

                if ($guest_vote) {$gvchecked = " checked";}
                if ($hide_results) {$hrchecked = " checked";}
                if ($multi_choice) {$mcchecked = " checked";}
                $yymain .= qq~
        <tr>
          <td bgcolor="$color{'windowbg2'}" class="windowbg2">
            <input type="hidden" name="pollthread" value="$pollthread">
            <table width="100%" cellpadding="3" cellspacing="0" border="0">
              <tr>
                <td width="23%" align="left"><font size="2"><b>$polltxt{'6'}:</b></font></td>
                <td align="left"><input type="text" size="40" name="question" value="$poll_question" maxlength="$maxpq"></td>
              </tr><tr>
                <td width="23%" align="left">&nbsp;</td>
                <td align="left">
                  <table cellpadding="0" cellspacing="0" border="0">~;

                for(my $i = 1; $i <= $numpolloptions; $i++) {
                        $yymain .= qq~
                    <tr>
                      <td align="right"> &nbsp; <font size="2">$polltxt{'7'} $i: &nbsp;</font></td>
                      <td align="left"><input type="text" size="25" maxlength="$maxpo" name="option$i" value="$options[$i]"></td>
                    </tr>~;
                }
                $yymain .= qq~
                  </table>
                </td>~;

                if ($maxpc > 0) {
                        $yymain .= qq~
             </tr><tr>
                <td valign=top class="windowbg2" bgcolor="$color{'windowbg2'}" width="23%"><font size=2><b>$polltxt{'59'}:</b></font></td>
                <td class="windowbg2" bgcolor="$color{'windowbg2'}"><font size="2"><textarea name="poll_comment" rows="3" cols="60" wrap="soft" onkeyup="if (document.postmodify.poll_comment.value.length > $maxpc) {document.postmodify.poll_comment.value = document.postmodify.poll_comment.value.substring(0,$maxpc)}">$poll_comment</textarea></font></td>~;
                }

                $yymain .= qq~
              </tr><tr>
                <td width="23%" align="left"><font size="2"><b>$polltxt{'32'}</b></font></td>
                <td align="left"><input type="checkbox" name="guest_vote" value="1"$gvchecked> <font size="1">$polltxt{'54'}</font></td>
              </tr><tr>
                <td width="23%" align="left"><font size="2"><b>$polltxt{'26'}</b></font></td>
                <td align="left"><input type="checkbox" name="hide_results" value="1"$hrchecked> <font size="1">$polltxt{'55'}</font></td>
              </tr><tr>
                <td width="23%" align="left"><font size="2"><b>$polltxt{'58'}</b></font></td>
                <td align="left"><input type="checkbox" name="multi_choice" value="1"$mcchecked> <font size="1">$polltxt{'56'}</font></td>
              </tr>

            </table>
          </td>
        </tr>~;
        }
        if ($pollthread != 2) { # if not adding a poll to an existing thread, display standard post page inputs

## [/Poll Mod Options] ##

### Begin Enable HTML Mod
if ($post eq "post" || $post eq "postmodify" || $post eq "imsend") {
        $message_backup = $message; # since $message is no local variable, it often gets overwritten accidently somehwere (couldn't find out where)
        $enable_html = HTML_allow($username);
        $message = $message_backup;
        if ($enable_html == 1) {
                if ($message =~ /\#enable_html/isg || $FORM{enable_html} eq "1") {
                        $enable_html_check = ' checked';
                        $message =~ s/\#enable_html//isg;
                } else { $enable_html_check = '' }
                $enable_html_checkbox = qq~<tr>
                  <td class="windowbg" bgcolor="$color{'windowbg'}" width="241"><font size=2><b>$txt_allow_html_mod{'1'}:</b></font></td>
                  <td class="windowbg" bgcolor="$color{'windowbg'}"><input type=checkbox name="enable_html" value="1"$enable_html_check> <font size="1"> $txt_allow_html_mod{'5'}</font></td>
                </tr>~;
        } else { $enable_html_checkbox = ''; }
}
### End Enable HTML Mod

if($enable_ubbc && $showyabbcbutt) {
        $yymain .= qq~
  <tr>
    <td bgcolor="$color{'bordercolor'}" class="bordercolor">
    <table width="100%" cellpadding="3" cellspacing="0" bgcolor="$color{'windowbg2'}" class="windowbg2">
      <tr>
        <td class="windowbg2" bgcolor="$color{'windowbg2'}" width="23%"><font size=2><b>$txt{'252'}:</b></font></td>
        <td valign=middle class="windowbg2" bgcolor="$color{'windowbg2'}">
        <script language="JavaScript1.2" type="text/javascript">
        <!--
          HAND = "onmouseover=this.style.cursor='hand'";
          document.write("<img src='$imagesdir/bold.gif' onclick='bold();' "+HAND+" align=bottom width=23 height=22 alt='$txt{'253'}' border=0>");
          document.write("<img src='$imagesdir/italicize.gif' onclick='italicize();' "+HAND+" align=bottom width=23 height=22 alt='$txt{'254'}' border='0'>");
          document.write("<img src='$imagesdir/underline.gif' onclick='underline();' "+HAND+" align=bottom width=23 height=22 alt='$txt{'255'}' border='0'>");
          document.write("<img src='$imagesdir/strike.gif' onclick='strike();' "+HAND+" align=bottom width=23 height=22 alt='$txt{'441'}' border='0'>");
          document.write("<img src='$imagesdir/glow.gif' onclick='glow();' "+HAND+" align=bottom width=23 height=22 alt='$txt{'442'}' border='0'>");
          document.write("<img src='$imagesdir/shadow.gif' onclick='shadow();' "+HAND+" align=bottom width=23 height=22 alt='$txt{'443'}' border='0'>");
          document.write("<img src='$imagesdir/move.gif' onclick='move();' "+HAND+" align=bottom width=23 height=22 alt='$txt{'439'}' border='0'>");
          document.write("<img src='$imagesdir/pre.gif' onclick='pre();' "+HAND+" align=bottom width=23 height=22 alt='$txt{'444'}' border='0'>");
          document.write("<img src='$imagesdir/left.gif' onclick='left();' "+HAND+" align=bottom width=23 height=22 alt='$txt{'445'}' border='0'>");
          document.write("<img src='$imagesdir/center.gif' onclick='center();' "+HAND+" align=bottom width=23 height=22 alt='$txt{'256'}' border='0'>");
          document.write("<img src='$imagesdir/right.gif' onclick='size();' "+HAND+" align=bottom width=23 height=22 alt='$txt{'446'}' border='0'>");
          document.write("<img src='$imagesdir/size.gif' onclick='size();' "+HAND+" align=bottom width=23 height=22 alt='$txt{'532'}' border='0'>");
          document.write("<img src='$imagesdir/size.gif' onclick='size();' "+HAND+" align=bottom width=23 height=22 alt='$txt{'532'}' border='0'>");
          document.write("<img src='$imagesdir/size.gif' onclick='size();' "+HAND+" align=bottom width=23 height=22 alt='$txt{'532'}' border='0'>");
        //-->
        </script>
        <noscript>
        <font size="1">$txt{'215'}</font>
        </noscript>
        <!--   <select name="color" onChange="showcolor(this.options[this.selectedIndex].value)">
         <option value="Black" selected>$txt{'262'}</option>
         <option value="Red">$txt{'263'}</option>
         <option value="Yellow">$txt{'264'}</option>
         <option value="Pink">$txt{'265'}</option>
         <option value="Green">$txt{'266'}</option>
         <option value="Orange">$txt{'267'}</option>
         <option value="Purple">$txt{'268'}</option>
         <option value="Blue">$txt{'269'}</option>
         <option value="Beige">$txt{'270'}</option>
         <option value="Brown">$txt{'271'}</option>
         <option value="Teal">$txt{'272'}</option>
         <option value="Navy">$txt{'273'}</option>
         <option value="Maroon">$txt{'274'}</option>
         <option value="LimeGreen">$txt{'275'}</option>
        </select>
        -->
        <br>
        <script language="JavaScript1.2" type="text/javascript">
        <!--
          document.write("<img src='$imagesdir/flash.gif' onclick='flash();' "+HAND+" align=bottom width=23 height=22 alt='$txt{'433'}' border='0'>");
          document.write("<img src='$imagesdir/url.gif' onclick='hyperlink();' "+HAND+" align=bottom width=23 height=22 alt='$txt{'257'}' border='0'>");
          document.write("<img src='$imagesdir/ftp.gif' onclick='ftp();' "+HAND+" align=bottom width=23 height=22 alt='$txt{'434'}' border='0'>");
          document.write("<img src='$imagesdir/img.gif' onclick='image();' "+HAND+" align=bottom width=23 height=22 alt='$txt{'435'}' border='0'>");
          document.write("<img src='$imagesdir/email2.gif' onclick='emai1();' "+HAND+" align=bottom width=23 height=22 alt='$txt{'258'}' border='0'>");
          document.write("<img src='$imagesdir/table.gif' onclick='table();' "+HAND+" align=bottom width=23 height=22 alt='$txt{'436'}' border='0'>");
          document.write("<img src='$imagesdir/tr.gif' onclick='trow();' "+HAND+" align=bottom width=23 height=22 alt='$txt{'437'}' border='0'>");
          document.write("<img src='$imagesdir/td.gif' onclick='tcol();' "+HAND+" align=bottom width=23 height=22 alt='$txt{'449'}' border='0'>");
          document.write("<img src='$imagesdir/sup.gif' onclick='superscript();' "+HAND+" align=bottom width=23 height=22 alt='$txt{'447'}' border='0'>");
          document.write("<img src='$imagesdir/sub.gif' onclick='subscript();' "+HAND+" align=bottom width=23 height=22 alt='$txt{'448'}' border='0'>");
          document.write("<img src='$imagesdir/tele.gif' onclick='teletype();' "+HAND+" align=bottom width=23 height=22 alt='$txt{'440'}' border='0'>");
          document.write("<img src='$imagesdir/code.gif' onclick='showcode();' "+HAND+" align=bottom width=23 height=22 alt='$txt{'259'}' border='0'>");
          document.write("<img src='$imagesdir/quote2.gif' onclick='quote();' "+HAND+" align=bottom width=23 height=22 alt='$txt{'260'}' border='0'>");
          document.write("<img src='$imagesdir/list.gif' onclick='list();' "+HAND+" align=bottom width=23 height=22 alt='$txt{'261'}' border='0'>");
        //-->
        </script>
        <noscript>
        <font size="1">$txt{'215'}</font>
        </noscript>


<table cellspacing=0 cellpadding=0><tr><td width=20 bgcolor=black id="csquare">&#160;</td>
<script language="javascript">
<!-- Begin
var base_hexa = "0123456789ABCDEF";
function RGB2Hexa(TR,TG,TB) {
return "#" + dec2Hexa(TR) + dec2Hexa(TG) + dec2Hexa(TB);
}
function dec2Hexa(number) {
return base_hexa.charAt(Math.floor(number / 16)) + base_hexa.charAt(number % 16);
}
colors = new Array(0,1,2,3,4,5,6,7,8,9,"A","B","C","D","E","F")
col = new Array;
col[0] = new Array(255,0,255,0,255,-1);
col[1] = new Array(255,-1,255,0,0,0);
col[2] = new Array(0,0,255,0,0,1);
col[3] = new Array(0,0,255,-1,255,0);
col[4] = new Array(0,1,0,0,255,0);
col[5] = new Array(255,0,0,0,255,-1);
col[6] = new Array(255,-1,0,0,0,0);
pas=28;
function rgb(){
for (j=0;j<6+1;j++) {
    for (i=0;i<pas+1;i++) {
 r = Math.floor(col[j][0]+col[j][1]*i*(255)/pas);
 g = Math.floor(col[j][2]+col[j][3]*i*(255)/pas);
 b = Math.floor(col[j][4]+col[j][5]*i*(255)/pas);
  codehex = r + '' + g + '' + b;
  theColor = RGB2Hexa(r,g,b)
  document.writeln('<td onMouseover="document.getElementById(\\\'csquare\\\').bgColor = this.bgColor;" onClick="showcolor(this.bgColor)" bgColor=\\\"' + theColor + '\\\"  width=2 height=3></TD>');
 }}
}

rgb();
// End -->
</script></tr></table>

        </td>
      </tr>
~;
}
else {
        $yymain .= qq~
      <tr>
        <td bgcolor="$color{'bordercolor'}" colspan="2" class="bordercolor">
        <table width="100%" cellpadding="3" cellspacing="0" bgcolor="$color{'windowbg'}" class="windowbg">
~;
}
### Add More Smilies 3.0 - Smiley List ###
        if ($SmilieURL[0] eq "") {&LoadSmilies;}

        $showmore = "";
        $smilie_list = "";
        $smilie_more = "";
        $smilie_block = "";
        $smilie_url_array = "";
        for( my $i = 0; $i < @SmilieURL; $i++ ) {
                if ($SmilieURL[$i] =~ /\//i) {$tmpurl = $SmilieURL[$i];} else {$tmpurl = qq~$smiliesurl/$SmilieURL[$i]~;}
                ($tmpCode, $dummy) = split (/\s+/, $SmilieCode[$i]);
                $tmpCode =~ s/'/&#39;/g;
                if ($SmilieOption[$i] % 2 == 1) { $smilie_list .= qq~
                    document.write("<img src='$tmpurl' onclick='javascript:AddText(" + '" $tmpCode"' + ")' align='bottom' alt='$SmilieDescription[$i]' border='0' style='cursor:hand'> ");~;
                }
                if (($SmilieOption[$i] / 2) % 2 == 1) {$smilie_block .= qq~
                    document.write("<option value=" + '" $tmpCode"' + ">$SmilieDescription[$i]</option>");~;
                        $smilie_url_array .= qq~"$tmpurl", ~;
                }
                if (($SmilieOption[$i] / 4) % 2 == 1) {$showmore = 1;}
        }
        $smilie_url_array .= qq~""~;

        if ($showmore == 1 && ($show_smilie_block != 1 || $smilie_block eq "")) {$smilie_more = qq~
                    document.write('<a href="$scripturl?action=smilieindex" target="_blank" onclick="' + "javascript: window.open('$scripturl?action=smilieindex', 'list', 'width=100,height=100,left=0,top=0,scrollbars=yes'); return false" + '">$smi_txt{'8'}</a>');~;
        }

        if ($smilie_list ne "" || $smilie_more ne "" ) {$yymain .= qq~
              <tr>
                <td width="23%"><font size="2"><b>$txt{'297'}:</b></font></td>
                <td valign="middle">
                  <script language="JavaScript1.2" type="text/javascript">
                  <!--
                  if((navigator.appName == "Netscape" && navigator.appVersion.charAt(0) >= 4) || (navigator.appName == "Microsoft Internet Explorer" && navigator.appVersion.charAt(0) >= 4) || (navigator.appName == "Opera" && navigator.appVersion.charAt(0) >= 4)) {$smilie_list$smilie_more
                  }
                  else { document.write("<font size='1'>$txt{'215'}</font>"); }
                  //-->
                  </script>
                  <noscript>
                    <font size="1">$txt{'215'}</font>
                  </noscript>
                </td>
              </tr>~;
        }
### Add More Smilies 3.0 - Smiley List ###

                $yymain .= qq~
              <tr>

<td valign="top" width="23%">
<!-- Dies zeigt den Text "Beitrag:" im Antwortenfenster: <fontsize=2><b>$txt{'72'}:</b></font> -->
                          ~;

### BEGIN Add More Smilies 3.0 - Side table add in by Flicker ###
        if ($show_smilie_sidetable == 1 && $show_smilie_block == 0) {
        $wincolumn = "3";        # Number of columns in More Smilies pop-up window.
        if ($SmilieURL[0] eq "") {&LoadSmilies;}
        $i = 0;
        $offset = 0;
        $counter = 0;
        $smilieslist = "";
        $colwidth = int(100 / $wincolumn);
        while($SmilieURL[$i]) {
                if ($counter % $wincolumn == 0 && $counter !=0) {
                        $counter = 0;
                        $smilieslist .= qq~
        </tr><tr>~;
                        $offset++;
                }
                if (($counter % $wincolumn + $offset) % 2 == 0) {$smiliescolor = qq~class="windowbg2" bgcolor="$color{'windowbg2'}"~;} else {$smiliescolor = qq~class="windowbg" bgcolor="$color{'windowbg'}"~;}
                if ($SmilieURL[$i]=~ /\//i) {$tmpurl = $SmilieURL[$i];} else {$tmpurl = qq~$smiliesurl/$SmilieURL[$i]~;}
                ($tmpCode, $dummy) = split (/\s+/, $SmilieCode[$i]);
                $tmpCode =~ s/'/&#39;/g;
                if (($SmilieOption[$i] / 2) % 2 == 1) { $smilieslist .= qq~
          <td align="center" valign="middle" height="60" width="$colwidth%" $smiliescolor><img src="$tmpurl" border="0" alt="" onclick='javascript:AddText(" $tmpCode")' style="cursor:hand" align="absmiddle"></td>~;
                        $counter++;
                }
                $i++;
        }
        while ($counter % $wincolumn != 0) {
                if (($counter % $wincolumn + $offset) % 2 == 0) {$smiliescolor = qq~class="windowbg2" bgcolor="$color{'windowbg2'}"~;} else {$smiliescolor = qq~class="windowbg" bgcolor="$color{'windowbg'}"~;}
                $smilieslist .= qq~          <td align="center" valign="middle" height="60" width="25%" $smiliescolor>&nbsp;</td>\n~;
                $counter++;
        }

$yymain .= qq~ <!-- <hr> -->
<div style="width:240px;height:184px;margin:0px;padding:0px;overflow:auto;border:0px $color{'bordercolor'} solid;background-color:$color{'windowbg2'};">
      <table width="100%" border="0" cellspacing="1" cellpadding="3">
        <tr>$smilieslist</tr>
      </table>
</div>
~;
}
### END Add More Smilies 3.0 - Side table add in by Flicker ###

### Add More Smilies 3.0 - Smiley Block ###
        if ($show_smilie_block == 1 && $smilie_block ne "" && $show_smilie_sidetable ==0) {$yymain .= qq~<br><br><br>
               <script language="JavaScript1.2" type="text/javascript">
               <!--
               smilieurl = new Array($smilie_url_array)
               smiliecode = new Array($smilie_code_array)

               if((navigator.appName == "Netscape" && navigator.appVersion.charAt(0) >= 4) || (navigator.appName == "Microsoft Internet Explorer" && navigator.appVersion.charAt(0) >= 4) || (navigator.appName == "Opera" && navigator.appVersion.charAt(0) >= 4)) {

                 document.write('<table border="0" cellpadding="3" callspacing="0" bgcolor="white" style="border-style:solid; border-width:1px; border-color:$color{'bordercolor'}" align="center"><tr>');
                 document.write('<td height="20" width="120" align="center" valign="top"><select name="smiliextra_list" onchange="document.images.smiliextra_image.src= smilieurl[document.postmodify.smiliextra_list.selectedIndex]" style="width:120px; font-size:7pt">');$smilie_block
                 document.write('</select></td>');
                 document.write('</tr><tr>');
                 document.write('<td height="70" align="center" valign="middle" style="height:70px"><img name="smiliextra_image" src="'+smilieurl[0]+'" alt="" border="0" onclick="javascript:AddText(document.postmodify.smiliextra_list.options[document.postmodify.smiliextra_list.selectedIndex].value)" style="cursor:hand"></td>');
                 document.write('</tr><tr>');
                 document.write('<td height="15" align="center" valign="middle"><font size="1"><a href="$scripturl?action=smilieindex" target="_blank" onclick="' + "javascript: window.open('$scripturl?action=smilieindex', 'list', 'width=100,height=100,left=0,top=0,scrollbars=yes'); return false" + '">$smi_txt{'9'}</a></font></td>');
                 document.write('</tr></table>');
               }

               //-->
               </script>~;
        }
### Add More Smilies 3.0 - Smiley Block ###

                $yymain .= qq~
               </td>
        </td>
        <td class="windowbg2" bgcolor="$color{'windowbg2'}"><font size="2">
        <textarea name="message" rows="12" cols="60" wrap="soft" ONCLICK="javascript:storeCaret(this);" ONKEYUP="javascript:storeCaret(this);" ONCHANGE="javascript:storeCaret(this);" tabindex="4">$message</textarea>
        </font><BR></td>
      </tr>
    </table>
    </td>
  </tr><tr>
    <td bgcolor="$color{'bordercolor'}" class="bordercolor">
    <table width="100%" cellpadding="3" cellspacing="0" bgcolor="$color{'windowbg'}" class="windowbg">
$enable_html_checkbox
$notification
$lastmod
$write_outbox
      <tr>
        <td class="windowbg" bgcolor="$color{'windowbg'}" width="241"><font size=2><b>$txt{'276'}:</b></font><BR></td>
        <td class="windowbg" bgcolor="$color{'windowbg'}"><input type=checkbox name="ns" value="NS"$nscheck> <font size="1"> $txt{'277'}</font><BR></td>
      </tr>
    </table>
    </td>
  </tr>~;
        }
        $yymain .= qq~
  <tr>
    <td bgcolor="$color{'bordercolor'}" class="bordercolor">
    <table class="titlebg" bgcolor="$color{'titlebg'}" align="center" width="100%">
      <tr>
        <td align="center" class="titlebg" bgcolor="$color{'titlebg'}">
        <font size="1" class="text1" color="$color{'titletext'}">$txt{'329'}</font><br>
                <input type="submit" name="$post" value="$submittxt" accesskey="s" tabindex="5">
~;
unless ($pollthread == 2) {$yymain .= qq~                <input type="submit" name="$preview" value="$txt{'507'}" accesskey="p">~;}
unless ($is_preview){$yymain .= qq~       <input type="reset" value="$txt{'278'}" accesskey="r">~;}

$yymain.=qq~
        </td>
      </tr>
    </table>
    </td>
  </tr>
</table>
</form>
<script language="JavaScript"> <!--
   document.postmodify.$settofield.focus();
//--> </script>
~;
}

sub Preview {
        $poll_question = $FORM{'question'};
        $numpolloptions ||= 8;
        for(my $i = 1; $i <= $numpolloptions; $i++) {$options[$i] = $FORM{"option$i"};}
        $guest_vote = $FORM{'guest_vote'};
        $hide_results = $FORM{'hide_results'};
        $multi_choice = $FORM{'multi_choice'};
        $poll_comment = $FORM{'poll_comment'};
        $pollthread =  $FORM{'pollthread'} || 0;

        $name = $FORM{'name'};
        $email = $FORM{'email'};
        $sub = $FORM{'subject'};
        $FORM{'message'} =~ s~\r~~g;
        $mess = $FORM{'message'};
        $message = $FORM{'message'};
         $icon = $FORM{'icon'};
        $ns = $FORM{'ns'};
        $threadid = $FORM{'threadid'};
        $notify = $FORM{'notify'};
        $postid = $FORM{'postid'};
        if (length($sub) > 50) { $sub = substr($sub,0,50); }
        $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;
        &ToHTML($message);
        $message =~ s/\t/ \&nbsp; \&nbsp; \&nbsp;/g;
        $message =~ s/\n/<br>/g;
        &CheckIcon;

        if($icon eq "xx") { $ic1 = " selected"; }
        elsif($icon eq "thumbup") { $ic2 = " selected"; }
        elsif($icon eq "thumbdown") { $ic3 = " selected"; }
        elsif($icon eq "exclamation") { $ic4 = " selected"; }
        elsif($icon eq "question") { $ic5 = " selected"; }
        elsif($icon eq "lamp") { $ic6 = " selected"; }
        elsif($icon eq "smiley") { $ic7 = " selected"; }
        elsif($icon eq "angry") { $ic8 = " selected"; }
        elsif($icon eq "cheesy") { $ic9 = " selected"; }
        elsif($icon eq "laugh") { $ic10 = " selected"; }
        elsif($icon eq "sad") { $ic11 = " selected"; }
        elsif($icon eq "wink") { $ic12 = " selected"; }

        $name_field = $realname eq '' ? qq~      <tr>
    <td class="windowbg"><font size=2><b>$txt{'44'}:</b></font></td>
    <td class="windowbg"><input type=text name="name" size=25 value="$FORM{'name'}" maxlength="25" tabindex="2"></td>
      </tr>~ : qq~~;

        $email_field = $realemail eq '' ? qq~      <tr>
    <td class="windowbg"><font size=2><b>$txt{'69'}:</b></font></td>
    <td class="windowbg"><input type=text name="email" size=25 value="$FORM{'email'}" maxlength="40" tabindex="3"></td>
      </tr>~ : qq~~;
        if ($FORM{'notify'} eq "x") {$notify = " checked";}
        if ($FORM{'ns'} eq 'NS') {$nscheck = " checked";}

        if ($username eq 'Guest') {
                fopen(FILE, "$memberdir/memberlist.txt") || &fatal_error("202 $txt{'106'}: $txt{'23'} memberlist.txt");
                @memberlist = <FILE>;
                fclose(FILE);
                $testname = lc $name;
                for ($a = 0; $a < @memberlist; $a++) {
                        chomp $memberlist[$a];
                        $membername = lc $memberlist[$a];
                        if( fopen(FILE2, "$memberdir/$memberlist[$a].dat") ) {
                                $tmpa = <FILE2>;
                                $realname = <FILE2>;
                                fclose(FILE2);
                                chomp $realname;
                                $realname = lc $realname;
                                if ($realname eq $testname || $membername eq $testname) { &fatal_error($txt{'100'}); }
                        }
                        elsif( $testname eq $membername ) { &fatal_error($txt{'100'}); }
                }
                fopen(FILE, "$vardir/reserve.txt") || &fatal_error("203 $txt{'106'}: $txt{'23'} reserve.txt");
                @reserve = <FILE>;
                fclose(FILE);
                fopen(FILE, "$vardir/reservecfg.txt") || &fatal_error("204 $txt{'106'}: $txt{'23'} reservecfg.txt");
                @reservecfg = <FILE>;
                fclose(FILE);
                for( $a = 0; $a < @reservecfg; $a++ ) {
                        chomp $reservecfg[$a];
                }
                $matchword = $reservecfg[0] eq 'checked';
                $matchcase = $reservecfg[1] eq 'checked';
                $matchuser = $reservecfg[2] eq 'checked';
                $matchname = $reservecfg[3] eq 'checked';
                $namecheck = $matchcase eq 'checked' ? $name : lc $name;
                foreach $reserved (@reserve) {
                        chomp $reserved;
                        $reservecheck = $matchcase ? $reserved : lc $reserved;
                        if ($matchname) {
                                if ($matchword) {
                                        if ($namecheck eq $reservecheck) { &fatal_error("$txt{'244'} $reserved"); }
                                }
                                else {
                                        if ($namecheck =~ $reservecheck) { &fatal_error("$txt{'244'} $reserved"); }
                                }
                        }
                }
        }
        ### Begin Enable HTML Mod
        $html_username = $username;
        if($FORM{enable_html} eq "1") { $message .= qq~#enable_html~; }
        if ($message =~ /\#enable_html/isg) {
                $message_backup = $message; # since $message is no local variable, it often gets overwritten accidently somehwere (couldn't find out where)
                $enable_html = HTML_allow($html_username);
                $message = $message_backup;
                if ($enable_html == 1) {
                        $message =~ s/\#enable_html//isg;
                        $message =~ s/<br>/\n/ig;
                        &FromHTML($message);
                }
        } else { $enable_html = 0; }

        if ($enable_html != 1) {
################ Media Player mod
                if ($username ne 'Guest') {
                        $mediausername = $settings[1];
                } else{
                        $mediausername = $FORM{'name'};
                }
################ Media Player mod end
                &wrap;
                $displayname = $settings[1];
                if($enable_ubbc) { if(!$yyYaBBCloaded) { require "$sourcedir/YaBBC.pl"; } &DoUBBC; }
                &wrap2;
        }
        ### End Enable HTML Mod
        if( $FORM{'previewmodify'} ) {
                $submittxt = "$txt{'10'}";
                $is_preview = 1;
                $post = "postmodify";
                $preview = "previewmodify";
                $destination = 'modify2';
                $submittxt = $txt{'10'};
        }
        elsif( $FORM{'previewim'} ) {
                $submittxt = "$txt{'148'}";
                $destination = "imsend2";
                $is_preview = 1;
                $post = "imsend";
                $preview = "previewim";
                $submittxt = $txt{'148'};
        }
        else {
                $notification = ! $enable_notification || $username eq 'Guest' ? '' : <<"~;";
    <tr>
      <td class="windowbg"><font size=2><b>$txt{'131'}:</b></font></td>
      <td class="windowbg"><input type=checkbox name="notify" value="x"$notify> <font size="1">$txt{'750'}</font></td>
    </tr>
~;
                $destination = 'post2';
                $submittxt = $txt{'105'};
                $is_preview = 1;
                $post = "post";
                $preview = "preview";
        }

        if($INFO{'action'} eq "imgroups") { $destination = "imgroups"; }


        $csubject = $sub;
        &LoadCensorList;        # Load Censor List
        $csubject =~ s/\Q$tmpa\E/$tmpb/gi;
        $message =~ s/\Q$tmpa\E/$tmpb/gi;

        $yymain .= qq~
<script language="JavaScript1.2" type="text/javascript" src="$ubbcjspath"></script>
<script language="JavaScript1.2" type="text/javascript">
<!--
function showimage() {
   document.images.icons.src="$imagesdir/"+document.postmodify.icon.options[document.postmodify.icon.selectedIndex].value+".gif";
}
//-->
</script>
<table border=0 width="90%" cellspacing=1 cellpadding="3" bgcolor="$color{'bordercolor'}" class="bordercolor" align="center">
  <tr>
    <td class="titlebg" bgcolor="$color{'titlebg'}"><font size=2 class="text1" color="$color{'titletext'}">
    <img src="$imagesdir/$icon.gif" name="icons" border=0> $csubject</font></td>
  </tr><tr>
    <td class="windowbg" bgcolor="$color{'windowbg'}"><font size=2><BR>$message<BR><BR></font></td>
  </tr>
</table>
<BR>
~;
        $message = $mess;
        $yytitle = "$txt{'507'} - $csubject";
        $settofield="message";
        &Postpage;
        &template;
        exit;
}

sub Post2 {
        if($username eq 'Guest' && $enable_guestposting == 0) {        &fatal_error($txt{'165'}); }
        my( $email, $subject, $ns, $threadid, $notify, @memberlist, $a, $realname, $membername, $testname, @reserve, @reservecfg, $matchword, $matchcase, $matchuser, $matchname, $namecheck, $reserved, $reservecheck, $newthreadid, @messages, $mnum, $msub, $mname, $memail, $mdate, $mreplies, $musername, $micon, $mstate, $start, $pageindex, $tempname );

        # If poster is a Guest then evaluate the legality of name and email
        if(!$settings[2]) {
                $FORM{'name'} =~ s/\A\s+//;
                $FORM{'name'} =~ s/\s+\Z//;
                &fatal_error($txt{'75'}) unless ($FORM{'name'} ne '' && $FORM{'name'} ne '_' && $FORM{'name'} ne ' ');
                &fatal_error($txt{'568'}) if(length($FORM{'name'}) > 25);
                &fatal_error("$txt{'76'}") if($FORM{'email'} eq '');
                &fatal_error("$txt{'240'} $txt{'69'} $txt{'241'}") if($FORM{'email'} !~ /[\w\-\.\+]+\@[\w\-\.\+]+\.(\w{2,4}$)/);
                &fatal_error("$txt{'500'}") if(($FORM{'email'} =~ /(@.*@)|(\.\.)|(@\.)|(\.@)|(^\.)|(\.$)/) || ($FORM{'email'} !~ /^.+@\[?(\w|[-.])+\.[a-zA-Z]{2,4}|[0-9]{1,4}\]?$/));
        }

        # Get the form values
        $name = $FORM{'name'};
        $email = $FORM{'email'};
        $subject = $FORM{'subject'};
        $message = $FORM{'message'};
         $icon = $FORM{'icon'};
        $ns = $FORM{'ns'};
        $threadid = $FORM{'threadid'};
        if( $threadid =~ /\D/ ) { &fatal_error($txt{'337'}); }
        $notify = $FORM{'notify'};

        if($name && $email) {
                &ToHTML($name);
                $email =~ s/\|//g;
                &ToHTML($email);
                $tempname = $name;        # hold it temporarily so we can put the _'s back later
                $name =~ s/\_/ /g;
        }

        &fatal_error($txt{'75'}) unless($username || $name);
        &fatal_error($txt{'76'}) unless($settings[2] || $email);
        $pollthread = $FORM{'pollthread'} || 0;
        if ($pollthread != 2) {        # If user is NOT adding a Poll to an existing thread
        &fatal_error($txt{'77'}) unless($subject && $subject !~ m~\A[\s_.,]+\Z~);
        &fatal_error($txt{'78'}) unless($message);
        if (length($message)>$MaxMessLen) { &fatal_error($txt{'499'}); }

        if( $FORM{'preview'} ) { &Preview; }
        &spam_protection;

        if (length($subject) > 50) { $subject = substr($subject,0,50); }
        $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;
        &ToHTML($message);
        $message =~ s~\t~ \&nbsp; \&nbsp; \&nbsp;~g;
        $message =~ s~\n~<br>~g;
        &CheckIcon;

        ### Begin Enable HTML Mod
        $message =~ s/\#enable_html//isg;
        if($FORM{enable_html} eq "1") {
                $message_backup = $message; # since $message is no local variable, it often gets overwritten accidently somehwere (couldn't find out where)
                $enable_html = HTML_allow($username);
                $message = $message_backup;
                if ($enable_html == 1) { $message .= qq~#enable_html~; }
        }
        ### End Enable HTML Mod

        if(-e("$datadir/.txt")) { unlink("$datadir/.txt"); }

        } # end if


        if ($username ne 'Guest') {
                # If not guest, get name and email.
                $name = $settings[1];
                $email = $settings[2];
        } else {
                # If user is Guest, then make sure the chosen name
                # is not reserved or used by a member.
                fopen(FILE, "$memberdir/memberlist.txt") || &fatal_error("206 $txt{'106'}: $txt{'23'} $memberlist.txt");

                @memberlist = <FILE>;
                fclose(FILE);
                $testname = lc $name;
                for ($a = 0; $a < @memberlist; $a++) {
                        chomp $memberlist[$a];
                        $membername = lc $memberlist[$a];
                        if( fopen(FILE2, "$memberdir/$memberlist[$a].dat") ) {
                                $tmpa = <FILE2>;
                                $realname = <FILE2>;
                                fclose(FILE2);
                                chomp $realname;
                                $realname = lc $realname;
                                if ($realname eq $testname || $membername eq $testname) { &fatal_error($txt{'473'}); }
                        }
                        elsif( $testname eq $membername ) { &fatal_error($txt{'473'}); }
                }

                fopen(FILE, "$vardir/reserve.txt") || &fatal_error("207 $txt{'106'}: $txt{'23'} reserve.txt");
                @reserve = <FILE>;
                fclose(FILE);
                fopen(FILE, "$vardir/reservecfg.txt") || &fatal_error("208 $txt{'106'}: $txt{'23'} reservecfg.txt");
                @reservecfg = <FILE>;
                fclose(FILE);
                for( $a = 0; $a < @reservecfg; $a++ ) { chomp $reservecfg[$a]; }
                $matchword = $reservecfg[0] eq 'checked';
                $matchcase = $reservecfg[1] eq 'checked';
                $matchuser = $reservecfg[2] eq 'checked';
                $matchname = $reservecfg[3] eq 'checked';
                $namecheck = $matchcase eq 'checked' ? $name : lc $name;

                foreach $reserved (@reserve) {
                        chomp $reserved;
                        $reservecheck = $matchcase ? $reserved : lc $reserved;
                        if ($matchname) {
                                if ($matchword) {
                                        if ($namecheck eq $reservecheck) { &fatal_error("$txt{'244'} $reserved"); }
                                }
                                else {
                                        if ($namecheck =~ $reservecheck) { &fatal_error("$txt{'244'} $reserved"); }
                                }
                        }
                }
                $name = $tempname; # put the name back (with any _'s) now that we've checked it
        }


## [Poll Mod] ##
        my @poll_data;
        if ($pollthread) {
                $maxpq ||= 60;
                $maxpo ||= 50;
                $maxpc ||= 0;
                $numpolloptions ||= 8;

                $numcount = 0;
                if ( length($FORM{"question"} ) > $maxpq) { &fatal_error("$polltxt{'40'} $polltxt{'34a'} $maxpq $polltxt{'34b'} $polltxt{'36'}"); }
                &ToHTML($FORM{"question"});
                $guest_vote = $FORM{'guest_vote'} || 0;
                $hide_results = $FORM{'hide_results'} || 0;
                $multi_choice = $FORM{'multi_choice'} || 0;
                $poll_comment = $FORM{'poll_comment'} || "";
                if ( length($poll_comment ) > $maxpc) { &fatal_error("$polltxt{'57'} $polltxt{'34a'} $maxpc $polltxt{'34b'} $polltxt{'36'}"); }
                &ToHTML($poll_comment);
                $poll_comment =~ s~\n~<br>~g;
                $poll_comment =~ s~\r~~g;
                push @poll_data, qq~$FORM{"question"}|0|$username|$name|$email|$date|$guest_vote|$hide_results|$multi_choice|||$poll_comment\n~;

                for ($i = 1; $i <= $numpolloptions; $i++){
                        if ($FORM{"option$i"}) {
                                if (length($FORM{"option$i"}) > $maxpo) { &fatal_error("$polltxt{'7'} $i  $polltxt{'34a'} $maxpo $polltxt{'34b'} $polltxt{'36'}"); }
                                &ToHTML($FORM{"option$i"});
                                $numcount++;
                                push @poll_data, qq~0|$FORM{"option$i"}\n~;
                        }
                }
                unless ($FORM{"question"}) { &fatal_error("$polltxt{'37'}"); }
                if ($numcount < 2) { &fatal_error("$polltxt{'38'}"); }
        }
## [/Poll Mod] ##

        # If no thread specified, this is a new thread.
        # Find a valid random ID for it.
        if($threadid eq '') {
                $newthreadid = time;
                $i=0;
                if (-e "$datadir/$newthreadid.txt") {
                        while (-e "$datadir/$newthreadid$i.txt") { ++$i; }
                        $newthreadid="$newthreadid$i";
                }
        }
        else { $newthreadid = ''; }

        if($newthreadid) {
                # This is a new thread. Save it.
                fopen(FILE, "$boardsdir/$currentboard.dat") || &fatal_error("300 $txt{'106'}: $txt{'23'} $currentboard.dat");
                @postcheck = <FILE>;
                fclose(FILE);
                chomp($postcheck[5]);
                if ($postcheck[5] ne "1") {
                # Increment post count for the member.
                $settings[6] =~ s/[\n\r]//g;
                ++$settings[6];
                fopen(FILE, ">$memberdir/$username.dat") || &fatal_error("213 $txt{'106'}: $txt{'23'} $username.dat");
                foreach (@settings) {
                        print FILE qq~$_\n~;
                }
                fclose(FILE);
                }
                fopen(FILE, "+<$boardsdir/$currentboard.txt", 1) || &fatal_error("210 $txt{'106'}: $txt{'23'} $currentboard.txt");
                        seek FILE, 0, 0;
                        my @buffer = <FILE>;
                        truncate FILE, 0;
                        seek FILE, 0, 0;
                        print FILE qq~$newthreadid|$subject|$name|$email|$date|0|$username|$icon|0\n~;
                        print FILE @buffer;
                fclose(FILE);
                fopen(FILE, ">$datadir/$newthreadid.txt") || &fatal_error("$txt{'23'} $newthreadid.txt");
                print FILE qq~$subject|$name|$email|$date|$username|$icon|0|$user_ip|$message|$ns|\n~;
                fclose(FILE);
                $mreplies = 0;
                if ($pollthread) { # Save Poll data for new thread
                        fopen (POLL, ">$datadir/$newthreadid.poll");
                        print POLL @poll_data;
                        fclose (POLL);
                }
        } else {
                # This is an old thread. Save it.
                fopen(FILE, "$boardsdir/$currentboard.dat") || &fatal_error("300 $txt{'106'}: $txt{'23'} $currentboard.dat");
                @postcheck = <FILE>;
                fclose(FILE);
                chomp($postcheck[4]);
                if ($postcheck[4] ne "1") {
                # Increment post count for the member.
                $settings[6] =~ s/[\n\r]//g;
                ++$settings[6];
                fopen(FILE, ">$memberdir/$username.dat") || &fatal_error("213 $txt{'106'}: $txt{'23'} $username.dat");
                foreach (@settings) {
                        print FILE qq~$_\n~;
                }
                fclose(FILE);
                }
                if ($pollthread) { # Save new Poll data
                        fopen (POLL, ">$datadir/$threadid.poll");
                        print POLL @poll_data;
                        fclose (POLL);
                        $yySetLocation = qq~$cgi;action=display;num=$threadid~;
                        &redirectexit;
                } else { # or save new reply data
                ($mnum, $msub, $mname, $memail, $mdate, $mreplies, $musername, $micon, $mstate) = split(/\|/,$yyThreadLine);
                if( $mstate == 1 ) { &fatal_error($txt{'90'}); }
                ++$mreplies;
                fopen(FILE, "+<$boardsdir/$currentboard.txt", 1) || &fatal_error("211 $txt{'106'}: $txt{'23'} $currentboard.txt");
                        seek FILE, 0, 0;
                        my @buffer = <FILE>;
                        truncate FILE, 0;
                        for ($a = 0; $a < @buffer; $a++) {
                                if ( $buffer[$a] =~ m~\A$mnum\|~o ) { $buffer[$a] = ""; last; }
                        }
                        seek FILE, 0, 0;
                        print FILE qq~$mnum|$msub|$mname|$memail|$date|$mreplies|$musername|$micon|$mstate\n~;
                        print FILE @buffer;
                fclose(FILE);
                fopen(FILE, ">>$datadir/$threadid.txt") || &fatal_error("212 $txt{'106'}: $txt{'23'} $threadid.txt");
                print FILE qq~$subject|$name|$email|$date|$username|$icon|0|$user_ip|$message|$ns|\n~;
                fclose(FILE);

                } # end else

        }

        if($username ne 'Guest') {
        # Outtaken because 0 counter mod by dOCda S!
                &WriteLastOnline($username, "x", $date, "x");
        }

        # The thread ID, regardless of whether it's a new thread or not.
        $thread = $newthreadid || $threadid;

        # Update totals for this board.
        &doaddition;

        # Mark thread as read for the member.
        &dumplog($currentboard,$date);

        # Let's figure out what page number to show
        $start = 0;
        $pageindex = int($mreplies / $maxmessagedisplay);
        $start = $pageindex * $maxmessagedisplay;

        # Notify any members who have notification turned on for this thread.
        if(-e("$datadir/$thread.mail")) { &NotifyUsers; }

        if($notify) {
                $INFO{'thread'} = $thread;
                $INFO{'start'} = $start;
                require "$sourcedir/Notify.pl";
                &Notify2;
        }
        $yySetLocation = qq~$cgi;action=display;num=$thread;start=$start#$mreplies~;
        &redirectexit;
}

sub NotifyUsers {
        $subject = $FORM{'subject'};

        fopen(FILE, "$datadir/$thread.mail") || return 0;
        @mails = <FILE>;
        fclose(FILE);
        foreach $curmail (@mails) {
                chomp $curmail;
                if ($curmail ne $settings[2]) {
                        &sendmail($curmail,"$txt{'127'}\:  $subject","$txt{'128'}, $subject, $txt{'129'} $cgi;action=display;num=$thread\n\n$txt{'130'}");
                }
        }
        return 1;
}

sub doshowthread {
        my( $line, $trash, $tempname, $tempdate, $temppost );
        my( $html_username, $lastmoduser, $enable_html );

        &LoadCensorList;        # Load Censor List

        if (@messages) {
                $yymain .= qq~
        <BR><BR>
        <table cellspacing=1 cellpadding=0 width="90%" align="center" bgcolor="$color{'bordercolor'}" class="bordercolor">
        <tr><td>
        <table class="windowbg" cellspacing="1" cellpadding="2" width="100%" align=center bgcolor="$color{'windowbg'}">
        <tr><td class="titlebg" bgcolor="$color{'titlebg'}" colspan="2"><font size="2" class="text1" color="$color{'titletext'}">
        <b>$txt{'468'}</b>
        </font></td></tr>~;
                foreach $line (@messages) { #start for each

                        ($trash, $tempname, $trash, $tempdate, $html_username, $trash, $trash, $trash, $message, $ns, $trash, $lastmoduser) = split(/\|/,$line);
                        $tempdate = &timeformat($tempdate);
                        foreach (@censored) {
                                ($tmpa,$tmpb) = @{$_};
                                $message =~ s~\Q$tmpa\E~$tmpb~gi;
                        }
                        my @words = split(/\s/,$message);
################ Media Player mod
                        $mediausername = $tempname;
################ Media Player mod end
                        ### Begin Enable HTML Mod
                        if ($message =~ /\#enable_html/isg) {
                                $lastmoduser =~ s~\n~~g;
                                if ($lastmoduser ne $html_username && $lastmoduser ne '') {
                                        $html_username = $lastmoduser;
                                }
                                $message_backup = $message; # since $message is no local variable, it often gets overwritten accidently somehwere (couldn't find out where)
                                $enable_html = HTML_allow($html_username);
                                $message = $message_backup;
                                if ($enable_html == 1) {
                                        $message =~ s/\#enable_html//isg;
                                        $message =~ s/<br>/\n/ig;
                                        &FromHTML($message);
                                }
                        } else { $enable_html = 0; }

                        if ($enable_html != 1) {
                                &wrap;
                                $displayname = $tempname;
                                if($enable_ubbc) { if(!$yyYaBBCloaded) { require "$sourcedir/YaBBC.pl"; } &DoUBBC; }
                                &wrap2;
                        }
                        ### End Enable HTML Mod
                        $yymain .= qq~

<tr><td align=left class="catbg">
<font size="1">$txt{'279'}: $tempname</font></td>
<td class="catbg" align=right>
<font size="1">$txt{'280'}: $tempdate</font></td>
</tr>
<tr><td class="windowbg2" colspan=2 bgcolor="$color{'windowbg2'}">
<font size="1">$message</font>
</td></tr>~;
                }
                $yymain .= "</table></td></tr></table>\n";
        }
        else { $yymain .= "<!--no summary-->"; }
}

sub doaddition {
        fopen(FILE2, "$datadir/$thread.data");
        $tempinfo = <FILE2>;
        fclose(FILE2);

        ($views, $lastposter) = split(/\|/,$tempinfo);

        my( $threadcount, $messagecount, $lastposttime, $lastposter ) = &BoardCountGet($currentboard);
        ++$messagecount;
        unless( $FORM{'threadid'} ) {
                ++$threadcount;
        }
        $myname = $username eq 'Guest' ? qq~Guest-$name~ : $username;
        &BoardCountSet( $currentboard, $threadcount, $messagecount, $date, $myname );

        fopen(FILE2, "+>$datadir/$thread.data");
        print FILE2 "$views|$myname";
        fclose(FILE2);
}

1;