# UBB Private Message Form (new private message)

$MainButtonsLine = &MainButtonOptions;

# standard top of HTML page
print "$Header";


print <<NewTopicGuts;
<center>
<TABLE border="0" width="$vars_style{TableWidth}">
<TR>
<TD align="center" colspan="2">
<B><FONT size="$vars_style{TextSize}" face="$vars_style{FontFace}">$page_title</FONT></B>
<P>
<FONT size="1" face="$vars_style{FontFace}">
$MainButtonsLine
</FONT>
</TD></TR></TABLE>
</center>

$TBT

<TR bgcolor="$vars_style{AltColumnColor1}">
<TD valign="bottom" align="left">
<FONT size="1" face="$vars_style{FontFace}">
<B>&#187;
$show_logout
</B>
</font>
</TD>
<TD valign="bottom" align="right">
<FONT size="1" face="$vars_style{FontFace}"><B>
<a href="$vars_config{CGIURL}/ultimatebb.cgi">$vars_config{BBName}</a> &raquo; $breadcrumb
</B></font>
</TD>
</TR>

$TBB
<P>

<CENTER><TABLE border="0" width="$vars_style{TableWidth}">
<TR>
<TD align="left">
<FONT size="$vars_style{TextSize}" face="$vars_style{FontFace}">
$vars_wordlets{pm_explained}</FONT>
</TD></TR></TABLE></CENTER>


<FORM NAME="REPLIER" METHOD="POST" ACTION="$vars_config{CGIURL}/ultimatebb.cgi">
$form_hiddens
<INPUT TYPE="HIDDEN" NAME="refer" VALUE="$ENV{'HTTP_REFERER'}">

$TBT

<tr bgcolor="$vars_style{TableColorStrip}">
<td colspan="2">
<FONT SIZE="2" FACE="$vars_style{FontFace}" COLOR="$vars_style{TableStripTextColor}">
<B>$page_title</B>
</FONT>
</td></tr>

NewTopicGuts



print <<ROWS;

<tr bgcolor="$vars_style{AltColumnColor1}">
<td align="top">
<FONT SIZE="$vars_style{TextSize}" FACE="$vars_style{FontFace}"><B>
$vars_wordlets{author_from}
</B></FONT></td>
<td valign="top">
<FONT SIZE="$vars_style{TextSize}" FACE="$vars_style{FontFace}"><B>
$pubname &nbsp;&nbsp;&nbsp;&nbsp;[<A HREF="$vars_config{CGIURL}/ultimatebb.cgi?ubb=logoff">$vars_wordlets{logout}</A>]
</B></FONT>
</td>
</tr>


<tr bgcolor="$vars_style{AltColumnColor1}">
<td align="top">
<FONT SIZE="$vars_style{TextSize}" FACE="$vars_style{FontFace}"><B>
$vars_wordlets{pm_to}:
</B></FONT></td>
<td valign="top">
<FONT SIZE="$vars_style{TextSize}" FACE="$vars_style{FontFace}"><B>
$pm_to_name
</B></FONT>
</td>
</tr>

ROWS


# do subject row

$subject_field =~ s/\&amp\;\#0124\;/\|/g;

print <<SubjectRow;

<TR bgcolor="$vars_style{AltColumnColor1}">
<td NOWRAP>
<FONT SIZE="$vars_style{TextSize}" FACE="$vars_style{FontFace}"><B>
$vars_wordlets{subject_field}:
</B></FONT></td>
<td>
<FONT SIZE="$vars_style{TextSize}" FACE="$vars_style{FontFace}">
$subject_field
</font>
</td>
</tr>

SubjectRow

# icon row?
if ($vars_display{AllowIcons} eq 'TRUE') {


	print <<IconsRow;

<TR bgcolor="$vars_style{AltColumnColor1}">
<td NOWRAP valign="top">
<FONT SIZE="$vars_style{TextSize}" FACE="$vars_style{FontFace}"><B>
$vars_wordlets{message_icon}:
</B></FONT></td>
<td valign="top">
$icon_field
</td>
</tr>

IconsRow


}    # allow icons row

# message

print <<the_message;

<tr bgcolor="$vars_style{AltColumnColor1}">
<td valign="top" NOWRAP>
<FONT SIZE="$vars_style{TextSize}" FACE="$vars_style{FontFace}"><B>$vars_wordlets{message_field}:</B>
<p><BR>
<FONT SIZE="1" COLOR="$vars_style{VisitedLinkColor}">
$is_html
<BR>
<A HREF="$vars_config{CGIURL}/ultimatebb.cgi?ubb=ubb_code_page" target=_blank>
$is_ubb</A>
<BR>$ubb_images_wording</FONT></FONT>
</td>
<td>
<TEXTAREA NAME="message" ROWS='12' COLS='50' WRAP="VIRTUAL"></TEXTAREA>
<p><INPUT TYPE="SUBMIT" NAME="submit" VALUE="$vars_wordlets{send_private_message}">
</p></td></tr>

$TBB

$TBT

<TR  bgcolor="$vars_style{TableColorStrip}">
<TD valign="top" width="40%">
<font face="$vars_style{FontFace}" size="$vars_style{TextSize}" color="$vars_style{TableStripTextColor}"><b>
$vars_wordlets{instant_graemlins}
</b></font></TD>
<TD valign="top" width="60%">
<font face="$vars_style{FontFace}" size="$vars_style{TextSize}" color="$vars_style{TableStripTextColor}"><b>
$vars_wordlets{instant_ubbcode}
</b></font></TD>
</TR>

<TR bgcolor="$vars_style{AltColumnColor1}">
<TD valign="top" align="left">
$smilie_list
  &nbsp;
</TD><TD valign="top" align="left">
<font face="$vars_style{FontFace}" size="1">
$ubb_code_buttons
</font>
</TD>
</TR>

$TBB

$TBT

<tr bgcolor="$vars_style{TableColorStrip}">
<td>
<FONT SIZE="$vars_style{TextSize}" FACE="$vars_style{FontFace}" COLOR="$vars_style{TableStripTextColor}">
<B>$vars_wordlets{options_header}</B>
</FONT>
</td></tr>

<TR bgcolor="$vars_style{AltColumnColor1}">
<td valign=top>
<FONT SIZE="1" FACE="$vars_style{FontFace}">
$show_sig
<BR>
$disable_smilies
<BR>
$close_option
</FONT>
</td></tr>
the_message


print <<NearBottom;
$TBB

<P>
<CENTER>
<INPUT TYPE="SUBMIT" NAME="submit" VALUE="$vars_wordlets{send_private_message}">
</CENTER>
<P>
</FORM>
<P>
NearBottom

# standard bootom of HTML page
print "$Footer";

# Nothing below this line should be changed.. and there is no more code!

# This entire program is copyright Infopop Corporation.
# For more info on the Ultimate Bulletin Board and other Infopop
# Products/Services, visit: http://www.infopop.com

# You may not distribute this program in any manner, modified or otherwise.

#You make modifications, but only for your own use and within the confines of the UBB License Agreement.

# DANGER: Do not remove the following line!
1;
