;
close(BT);
$top = "Content-type:text/html\n\n";
foreach (@TP) {
$top .= $_;
}
foreach (@BT) {
$bott .= $_;
}
use CGI qw(:standard);
$query = new CGI;
if ($ENV{REMOTE_ADDR}=~/62.30.112/) {
print "$top\nPlease go away.$bott";
exit;
}
if (!cookie("username")) {
print qq~$top You aren't registered! You must register a username, and log in, before being able to create a board.
$bott~;
exit;
}
$usern = cookie("username");
if (!$query->param("plan")) {
print $top;
print qq~You must choose a plan before attempting to sign up. Please go to the signup page.~;
print $bott;
}
elsif ($query->param("plan") eq "free") {
print $top;
print qq~Creating A Board On The 30-day Free Trial
Step Three
- You have now chosen a pricing plan - the 30-day Free Trial and read and agreed to the terms and conditions. If you haven't, please return to the signup page. The last step is to enter your board's details.
Please fill in the details for the board you wish to own.
We will not send you spam or "special offers" as some would call it. You will be notified by PM (not e-mail) when a new version of BbBoard is released, outlining the new features, and how to use them, for your convenience.
~;
print $bott;
}
elsif ($query->param('plan') eq "free1") {
my $bif = $query->param('boardname');
$bif = lc $bif;
$bif=~s/(\W| |-|_)//g;
use LWP::Simple;
if (-d "/boards/$bif" || get("http://azure.bbboy.net/${bif}-exists") || get("http://denim.bbboy.net/${bif}-exists") || get("http://emerald.bbboy.net/${bif}-exists")) {
print qq~$top Sorry, The board name $bif has already been taken. Please press your back button and choose a different name. If you really want that name, you may be able to add some numbers onto the end, for example ${bif}84.$bott~;
exit;
}
open(NW,">>/boards/all/newboards.cgi");
print NW $query->param('username')."::::".$query->param('email')."::::".$query->param('boardname')."::::".$query->param('cat')."::::$ENV{REMOTE_ADDR}\n";
close(NW);
print $top;
print qq~Creating A Board On The FREE Plan
Thank you!
That's all you need to do. You will recieve an e-mail within the next few hours with your board's details. Thanks for choosing Best Boards! Please note that we review each new board individually before they are created. Please don't re-submit this form if you don't recieve your board's details right away.
~;
print $bott;
}
else {
$plan = $query->param("plan");
$df = qq~You have chosen the fixed plan, so please enter an amount you wish to pay below - this is your "credit". Every month, \$2.50 will be deducted from your credit, so you are effectively pre-paying for several months. You will not be billed recurringly on your credit card - as soon as your credit runs low, you must make another payment.~ if ($plan eq "fixed");
$df = qq~You have chosen the variable plan, so please enter an amount you wish to pay below - this is your "credit". An amount of \$6 will be deducted from this credit for each GB of bandwidth (transfer) you use. You will not be billed recurringly on your credit card - as soon as your credit runs low, you must make another payment.~ if ($plan eq "variable");
print $top;
print qq~ Creating A Board On The $plan Plan
Step Three
- You have now chosen a pricing plan - the $plan plan and read and agreed to the terms and conditions. If you haven't, please return to the signup page. The last step is to select a payment method and send payment.
Note: You must already have a user account (FREE) before creating a board.
We have made paying for Best Boards very easy for almost anyone, we hope. And to help you pay, we have compiled some detailed instructions on how exactly to go about your payment.
You can pay by:
Credit/Debit Card
You can securely pay with a credit card (Visa, Mastercard, American Express, Discover, Eurocard, and Visa-Debit, MasterCard-Debit, and Novus cards). All transactions are handled using a secure encrypted connection. Your credit card details are safe.
One-Time Payment
To pay a one-time payment (you can always top up later if needed) by credit/debit card, using a completely secure server, please select the amount you wish to pay into your account at this stage - you can always top up later. On selecting a value, you will be taken to our credit card processor's secure order form. When the transaction has been processed, your message board will be set up within 24 hours. (If you need Instant Access, please see the recurring order section)
$df
OR: Recurring Payment
~;
if (!$query->param('upgrade')) {
print qq~To pay recurringly (every month, 3 months, 6 months or year), please choose the amount and period below. With a recurring payment, your board has Instant Setup.
If you wish to upgrade an existing board with a recurring payment, please click here.
~;
}
else {
# it's an upgrade
print qq~To pay recurringly (every month, 3 months, 6 months or year), please enter your BoardID below. With a recurring payment, your board has Instant Upgrade.
~;
}
print qq~
NoChex
NoChex (www.Nochex.com) allows anyone in the UK to make payments easily.
- If you don't currently have a Nochex account, click here and sign up.
- Once you have loaded enough money into your account (Click here for a currency convertor), click on "Send money".
- For the e-mail address, enter "bbboy\@bbboy.net", and enter the current value of however much you wish to pay into your account here, but in British Sterling. (Click here for a currency convertor!) ~;
print qq~\$2.50 will be charged every month. If you wish to pre-pay now for more than a month, simply send a multiple of \$2.50.~ if ($plan eq "fixed");
print qq~Please make sure that you are familiar with Best Boards' credit scheme. We recommend that you credit at least \$15 into your Best Boards account to be safe, but you don't have to.~ if ($plan eq "variable");
print qq~
- Please copy and paste the following into the "Message" box. Please make sure you copy and paste the following information exactly, entering the information where needed.
Username: Type your EXACT username, case sensitive
Email: Type your email address
Board Name: Choose a name for your board
Plan: $plan
- Wait for your payment to be processed!
Cheque / Money Order
- If you wish to send money the old-fashioned way, by cheque or money order, please e-mail bbboy\@bbboy.net for the payee address, and enclose the following information on a seperate piece of paper.
Username: Your EXACT username, case sensitive
Email: Your email address
Board Name: Choose a name for your board
Plan: $plan
- Make sure the cheque/money order is in UK funds (British Sterling - Click here for a currency convertor!). Your bank will be able to arrange this easily for you if you are not a UK resident. ~;
print qq~\$2.50 will be charged every month. If you wish to pre-pay now for more than a month, simply send a multiple of \$2.50..~ if ($plan eq "fixed");
print qq~Please make sure that you are familiar with Best Boards' credit scheme. We recommend that you credit at least \$15 into your Best Boards account to be safe, but you don't have to.~ if ($plan eq "variable");
print qq~
- We will activate your board as soon as the cheque/money order arrives.
PayPal
PayPal (www.paypal.com) allows you to send payment via Mastercard/Visa credit/debit card very easily, and securely.
- If you don't currently have a PayPal account, click here to sign up.
- Click the button below to make payment. You can credit any amount that you wish.
- Enter the amount of money you wish to credit into your account. Please note that we will not bill you recurringly - it's up to you to top up your credit when needed.
~;
print qq~\$2.50 will be charged every month. If you wish to pre-pay now for more than a month, simply send a multiple of \$2.50..~ if ($plan eq "fixed");
print qq~Please make sure that you are familiar with Best Boards' credit scheme. We recommend that you credit at least \$15 into your Best Boards account to be safe, but you don't have to.~ if ($plan eq "variable");
print qq~
- Please copy and paste the following into the "Notes" box. Please make sure you copy and paste the following information exactly, entering the information where needed.
Username: Type your EXACT username, case sensitive
Email: Type your email address
Board Name: Choose a name for your board
Plan: $plan
- We will activate your board as soon as the payment arrives.
~;
print $bott;
}