# UBB NEW TOPIC FORM

$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}">$vars_wordlets{post_new_topic}</FONT></B>
<P>
<FONT size="1" face="$vars_style{FontFace}">
$MainButtonsLine
</FONT>
</TD></TR></TABLE>

</center>
<P>
$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; <A HREF="$vars_config{CGIURL}/ultimatebb.cgi?ubb=forum&f=$in{f}">$this_forum[1]</A> &raquo; $vars_wordlets{post_new_topic}
</B></font>
</TD>
</TR>

$TBB
<P>

<FORM NAME="REPLIER" METHOD="POST" ACTION="$vars_config{CGIURL}/ultimatebb.cgi">
<INPUT TYPE="HIDDEN" NAME="ubb" VALUE="submit_new_topic">
<INPUT TYPE="HIDDEN" NAME="f" VALUE="$in{f}">

$TBT

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

NewTopicGuts

# if this forum permits unreg users... contingency

if (($vars_display{RequireLoginPosts} eq "NO") && ($username eq '') && ($vars_registration{DisplayRegistration} ne "NO")) {



	my $notice = "";

	if ($topic_restrict eq 'all') {
		$notice = qq~<br /><small>$vars_wordlets{unreg_author_notice_2}\n</small>~;
	}

	print <<ROWZ;
<tr bgcolor="$vars_style{AltColumnColor1}">
<td>
<FONT SIZE="$vars_style{TextSize}" FACE="$vars_style{FontFace}"><B>
$vars_wordlets{login_name}:
</B>
$notice
</FONT></td>
<td width="67%">
<INPUT TYPE="TEXT" NAME="your_name" SIZE=25 MAXLENGTH=25>
</td>
</tr>

<tr bgcolor="$vars_style{AltColumnColor1}">
<td>
<FONT SIZE="$vars_style{TextSize}" FACE="$vars_style{FontFace}"><B>
$vars_wordlets{password_field}:
</B></FONT></td>
<td>
<INPUT TYPE="password" NAME="your_password" SIZE=8 MAXLENGTH=16>
</td>
</tr>

ROWZ

} elsif (($username eq '') && ($vars_registration{DisplayRegistration} eq "NO")){

	print <<ROWS;

<tr bgcolor="$vars_style{AltColumnColor1}">
<td>
<FONT SIZE="$vars_style{TextSize}" FACE="$vars_style{FontFace}"><B>
$vars_wordlets{displayed_name}
</B><BR>
<FONT SIZE="1">
$vars_wordlets{unreg_author_notice_3}
</FONT>
</FONT></td>
<td width="67%">
<INPUT TYPE="TEXT" NAME="your_name" SIZE=25 MAXLENGTH=25>
</td>
</tr>

ROWS

} elsif ($username ne ''){

	print <<ROWS;

<tr bgcolor="$vars_style{AltColumnColor1}">
<td align="top">
<FONT SIZE="$vars_style{TextSize}" FACE="$vars_style{FontFace}"><B>
$vars_wordlets{displayed_name}:
</B></FONT></td>
<td valign="top" width="67%">
<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>

ROWS

} else {

	print <<ROWS;

<tr bgcolor="$vars_style{AltColumnColor1}">
<td>
<FONT SIZE="$vars_style{TextSize}" FACE="$vars_style{FontFace}"><B>
$vars_wordlets{displayed_name}
</B><BR>
<FONT SIZE="1">
$vars_wordlets{unreg_author_notice} <A HREF="$vars_config{CGIURL}/ultimatebb.cgi?ubb=login">$vars_wordlets{login_now}</A>.
</FONT>
</FONT></td>
<td width="67%">
<INPUT TYPE="TEXT" NAME="your_name" SIZE=25 MAXLENGTH=25>
</td>
</tr>

ROWS


}    # end topic_restrict check

## do subject row

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>
<INPUT TYPE="TEXT" NAME="topic_subject" VALUE="" SIZE="40" MAXLENGTH="85">
</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{submit_new_topic}">
</p>
</td></tr>

$TBB

$TBT

<TR  bgcolor="$vars_style{TableColorStrip}">
<TD valign="top" width="33%">
<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="67%">
<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}">
$email_notify
<BR>
$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{submit_new_topic}">
</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;
