# Control Panel, Ban Lists

&FormStart("$vars_config{CGIURL}/cp.cgi", "$Hiddens");

print <<the_explanation;
<center>
<table border="0" width="95%">
<TR><TD align="left">
<P><FONT SIZE="2" FACE="Verdana, Arial">
You can prevent certain users from being registered, based on email addresses they attempt to register with or based on their IP numbers.  Users banned by IP also cannot post, even if they are already registered. </p>
<p>Reversing the ban lists will cause them to become access lists instead.  Rather than users being banned if their address matches one in the list, they are banned if they do NOT match an address in the list.</p>
</FONT>
</TD></TR></TABLE>
</center>
the_explanation

&TBT;    #Table Border Top in cp_common.pl

print <<ban_options;

<TR bgcolor="#5d7790">
<TD colspan="2">
<FONT SIZE="2" color="white" FACE="Verdana, Arial">
<B>Email Ban Lists</B></FONT>
</TD></TR>
<TR bgcolor="white">
<TD>
<FONT SIZE="1" FACE="Verdana, Arial">
You may ban certain email addresses from registering on your forums.<p> To ban a specific email, type the full email address (as in, waldo\@whereiswaldo.com).</p><p> To ban all email addresses from certain domains, such as hotmail, simply type the domain name (as in hotmail.com)- that will prevent anyone using a hotmail address from registering.</p> Put each banned email on its own line (hit the carriage return after each email entry to be banned).
</FONT>
</TD>
<TD valign="top">
<TEXTAREA NAME="email_bans" COLS="35" ROWS="8" WRAP="VIRTUAL">
$email_bans
</TEXTAREA>
</TD>
</TR>
ban_options

$vars_misc{ReverseEmailBans} = "NO" unless $vars_misc{ReverseEmailBans};
&RadioField("Reverse Email Bans", "ReverseEmailBans", "yes", "At your option, you may reverse your list of banned email addresses.  Instead of the list of emails being banned, registrations will ONLY be allowed from those email addresses.  Checks against emails are only made during new registrations and when existing users edit their profiles.  This is not retroactive - users who have already registered will not be impacted by the ban until they edit their profile.", "$vars_misc{ReverseEmailBans}", "YES|Reverse Email Bans.%%NO|Regular Email Bans.");

print <<ban_options2;
<TR bgcolor="#5d7790">
<TD colspan="2">
<FONT SIZE="2" color="white" FACE="Verdana, Arial">
<B>IP Ban Lists</B></FONT>
</TD></TR>

<TR bgcolor="white"><TD>
<FONT SIZE="1" FACE="Verdana, Arial">
You may ban any IP numbers from registering, logging in, and posting.<p>Type in the complete IP number (such as <b>243.21.31.7</b>), or use a partial IP number (such as <b>243.21.31.</b>). </p><p>The UBB will do matches from the beginning of each IP number that you enter. If you enter a partial IP of <b>243.21.31</b>, someone attempting to register who has an IP number of <b>243.21.31.5</b> will not be able to register, log in, or post. </p><p>Similarly, if you have an IP ban on <b>243.21</b>, someone registering who has an IP of <b>243.21.3.44</b> will not be able to register, log in, or post. </p><p>Be careful when you add IPs to your ban list and be as specific as possible. As with the email ban list, put each IP number on its own line (hit the carriage return after each entry). </p>
</FONT>
</TD>
<TD valign="top">
<TEXTAREA NAME="ip_bans" COLS="35" ROWS="8" WRAP="VIRTUAL">
$ip_bans
</TEXTAREA>
</TD>
</TR>
ban_options2

$vars_misc{ReverseIPBans} = "NO" unless $vars_misc{ReverseIPBans};
&RadioField("Reverse IP Bans", "ReverseIPBans", "yes", "At your option, you may reverse your list of banned IP addresses.  Instead of the list of IPs being banned, accesses will ONLY be allowed from those IP addresses.  Checks against the IP list are only made during registration, during logins, and when creating new threads or replies.", "$vars_misc{ReverseIPBans}", "YES|Reverse IP Bans.%%NO|Regular IP Bans.");


&TBB;    #Table Border Bottom in cp_common.pl

&Submit("Update $vars_wordlets_cp{ban_lists}");

# 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;
