#!/usr/bin/perl

use CGI qw(param cookie);
use POSIX;
use DBI;
my $dbh = DBI->connect("DBI:mysql:licenses:localhost","licenseuser","kic");
	my $refer = cookie('refer');
	exit if ($refer eq 'nabbers');


my $step = param('step');
my $license = param('license');
my $where = param('where');
my $exlic = param('exlic');
my $exp = ";exlic=$exlic" if ($exlic);
my $upsupport = param('upsupport');
$exp = ";upsupport=$upsupport" if ($upsupport);

if (!$where) {
    my $cty = 'cn';
    $where = 'uk' if ($cty eq 'uk');
    $where = 'ecnonumber' if ($cty eq 'eu');
    $where ||= 'nonec';
}

my $coupon = param('coupon');

print "Content-type:text/html\n\n";

open(TOP,"top.html.ssl");
print while (<TOP>);
close(TOP);

print "<br>";

if (!$step) {
	print qq~Thanks for your interest in using bbBoard v2. We offer three different payment options. You can either <b>rent</b> a copy of bbBoard v2, <b>purchase</b> a copy, or purchase a copy without included technical support.<br><br>
<ul>
<b>Purchase bbBoard v2:</b><br>
&#187; <a href="http://www.bbv2.com/cn/purchase.boy?step=2;license=business$exp">Business license</a>: ~ . '1409.31 Yuan' . qq~<br>
&#187; <a href="http://www.bbv2.com/cn/purchase.boy?step=2;license=personal$exp">Regular license</a>: ~ . '791.75 Yuan' . qq~<p>
<b>Rent bbBoard v2:</b><br>
&#187; <a href="http://www.bbv2.com/cn/rent.boy?step=2;license=business$exp">Business license</a>: ~ . '110.69 Yuan' . qq~/month <br>
&#187; <a href="http://www.bbv2.com/cn/rent.boy?step=2;license=personal$exp">Regular license</a>: ~ . '79.02 Yuan' . qq~/month <p>
<b>License Only: (no tech support)</b><br>
&#187; <a href="http://www.bbv2.com/cn/notechsupport.bhtml">Business license</a>: ~ . '554.23 Yuan' . qq~<br>
&#187; <a href="http://www.bbv2.com/cn/notechsupport.bhtml">Regular license</a>: ~ . '221.69 Yuan' . qq~<p>

</ul>
We offer the above options so that you can weigh the benefits of each and choose the one that best matches your current situation.  You'll want to research the differences between <a href="http://www.bbv2.com/manuals/purchasing.bhtml#what's the difference between purchasing and renting">purchasing and renting</a> and <a href="http://www.bbv2.com/manuals/purchasing.bhtml#licenses">business and regular</a> licenses.  Please contact us if you have questions - we'll do all we can to help you make the right decision. If budget is an issue, consider the advantages of using our new <a href="http://www.bbv2.com/cn/potogold.bhtml">Pot O' Gold</a> and allow your users to donate towards the cost!
~;
}
elsif ($step == 55) {
	print qq~You have chosen a <b>$license</b> license.<br><br>Please now choose where you are located in the world from the options below. The option you select must match with the billing address you provide later on.<br><br>

	<form action=http://www.bbv2.com/cn/purchase.boy method=post>
	<input type=hidden name=step value=3>
	<input type=hidden name=license value=$license>
	<input type=radio name=where value=uk checked> I am in the UK.<br>~;

	if ($license eq 'business') {
		print qq~<input type=radio name=where value=ecwithnumber> I am in the EC (but outside of the UK), and I have a VAT registration number for my business.<br><input type=radio name=where value=ecnonumber> I am in the EC (but outside of the UK), and I <b>don\'t</b> have a VAT registration number for my business.<br>~; 
	}
	else {
		print qq~<input type=radio name=where value=ecnonumber> I am in the EC (but outside of the UK).<br>~;
	}

	print qq~<input type=radio name=where value=nonec> I am not in the EC (e.g if you\'re in the USA).<br>
	<br><input type=submit value="Submit"></form>~;
}
elsif ($step == 2 || param('changemeth') || param('docoupon') eq 'Redeem') {
	my %in = ( uk => 'in the UK', ecwithnumber => 'in the EC, with a VAT registration number', ecnonumber => 'in the EC' . (($license eq 'business') ? ', without a VAT registration number' : ''), nonec => 'not in the EC');	

	print qq~You have chosen a <b>~ . ($license eq 'personal' ? 'regular' : $license) . qq~</b> license, and you are $in{$where}. ~;

	if ($where eq 'ecnonumber' && $license eq 'business') {
	    print qq~<form action=http://www.bbv2.com/cn/purchase.boy method=post>
		<input type=hidden name=step value=$step>
		<input type=hidden name=where value=ecwithnumber>
		<input type=hidden name=license value=$license>
		<input type=hidden name=exlic value="$exlic">
		<input type=hidden name=upsupport value="$upsupport">
		<input type=submit value="Click here if your business has a VAT registration number">
		</form>~;
	}

	my $tax;

	if ($where eq 'uk' || $where eq 'ecnonumber') {
#		print qq~17.5% VAT has been included in the total purchase price.~;
#		$tax = 1;
	}
	elsif ($where eq 'ecwithnumber' || $where eq 'nonec') {
		$tax = 0;
	}

	require "/home/bbv2/v2/amounts.pl";
	my $amt = &amounts;
	my $total = ($license eq 'personal') ? $amt->{cn}->{per_pur} : $amt->{cn}->{bus_pur};
	my $ustotal = ($license eq 'personal') ? $amt->{usa}->{per_pur} : $amt->{usa}->{bus_pur};

#	$coupon ||= 'v2intro';

#<script type="text/javascript">TrustLogo("http://secure.bbv2.com/images/secure_site.gif", "SC", "none");</script>

#<script language="JavaScript" src="http://secure.comodo.net/trustlogo/javascript/trustlogo.js" type="text/javascript">
#</script>


	print qq~<form action=http://www.bbv2.com/cn/purchase.boy name=pur method=post><input type=hidden name=step value=$step> <input type=hidden name=where value="$where"> <input type=hidden name=license value="$license"><input type=hidden name=exlic value="$exlic"><input type=hidden name=upsupport value="$upsupport">

	    <table width=80%>
	    <tr><td>
</td><td>
<table width=100%>
<tr><td>
~;

	print "Upgrade For:</td><td><b>$exlic</b></td></tr><tr><td>" if ($exlic);
	print "Upgrade (Tech Support) For:</td><td><b>$upsupport</b></td></tr><tr><td>" if ($upsupport);

	if ($upsupport) {
	    $coupon = 'upgradesupport';
	}

	print "Base price:</td><td><b>$amt->{cn}->{prefix}$total$amt->{cn}->{suffix}</b>" . ($tax ? " (inc VAT)" : '') . "</td></tr><tr><td>" if ($coupon);

	my $discount, $usdiscount;

	if (!$coupon) {
		print qq~If you have a coupon code, please enter it here.</td><td>
Coupon Code: <input type=text name=coupon> <input type=submit class="small" name=docoupon value="Redeem">~;
	}
	else {
		print qq~Coupon Code:</td><td><b>$coupon</b><input type=hidden name=coupon value="$coupon">~;

		if ($coupon=~/^existing_/) {
			$discount = $amt->{cn}->{dis_exist};
			$usdiscount = $amt->{usa}->{dis_exist};
			print qq~</td></tr><tr><td>Discount:</td><td><b>$amt->{cn}->{prefix}$discount$amt->{cn}->{suffix}</b>~;
			$total -= $discount;
			$ustotal -= $usdiscount;
		}
		elsif ($coupon eq 'upgradesupport') {
		    $discount = $amt->{cn}->{$license eq 'personal' ? 'per_nos' : 'bus_nos'};
		    print qq~</td></tr><tr><td>Already Paid:</td><td><b>$amt->{cn}->{prefix}$discount$amt->{cn}->{suffix}</b>~;
		    $total -= $discount;
		}
		elsif ($coupon eq '2hours') {
		    $discount = sprintf("%.2f", 60 * $amt->{cn}->{fromgbp});
		    $total += $discount;
		    print qq~</td></tr><tr><td>Design/Customisation Work:</td><td><b>$amt->{cn}->{prefix}~ . $discount . qq~$amt->{cn}->{suffix}</b>~;
		}
                elsif ($coupon eq 'v2intro') {
#                        $discount = $amt->{cn}->{dis_int};
#                        $usdiscount = $amt->{usa}->{dis_int};
#                        print qq~</td></tr><tr><td>Discount:</td><td><b>$amt->{cn}->{prefix}$discount$amt->{cn}->{suffix}</b>~;
#                        $total -= $discount; $ustotal -= $usdiscount;
                }
		elsif ($coupon eq 'nonprofit') {
		    $discount = sprintf("%.2f",$amt->{cn}->{dis_char});
		$total -= $discount;
		print qq~</td></tr><tr><td>Discount:</td><td><b>$amt->{cn}->{prefix}$discount$amt->{cn}->{suffix}</b>~;
		}
		elsif ($coupon eq 'nosupport') {
		    $discount = $total - $amt->{cn}->{$license eq 'personal' ? 'per_nos' : 'bus_nos'};
		    $total = $amt->{cn}->{$license eq 'personal' ? 'per_nos' : 'bus_nos'};
		    print qq~</td></tr><tr><td>Discount:</td><td><b>$amt->{cn}->{prefix}$discount$amt->{cn}->{suffix}</b>~;
		}
		elsif ($coupon eq 'mon') {
		    $discount = sprintf("%.2f", $total / 2);
		    $total = $total - $discount;
		    print qq~</td></tr><tr><td>Discount:</td><td><b>$amt->{cn}->{prefix}$discount$amt->{cn}->{suffix}</b>~;
		}
		elsif ($coupon eq 'bbv1') {
		    $discount = -$amt->{cn}->{amt_inst};
		    $total = $total - $discount;
		    print qq~</td></tr><tr><td>v1 Conversion:</td><td><b>$amt->{cn}->{prefix}$amt->{cn}->{amt_inst}$amt->{cn}->{suffix}</b>~;
		}
	}

	print "</td></tr><tr><td>";

	my $installation = param('installation');

	if (!$upsupport) {
	    if ($installation) {
		print qq~Installation:</td><td><b>$amt->{cn}->{prefix}$amt->{cn}->{amt_inst}$amt->{cn}->{suffix}</b></td></tr><tr><td>~;
		$total += $amt->{cn}->{amt_inst};
	    }
	    else {
		print qq~Installation:</td><td><a href="purchase.boy?step=$step;license=$license$exp;where=$where;coupon=$coupon;method=$meth;installation=1">Click here to have a tech install bbBoard v2 for you ($amt->{cn}->{prefix}$amt->{cn}->{amt_inst}$amt->{cn}->{suffix})</a></td></tr><tr><td>~;
	    }
	}
		if ($tax) {
		    my $taxamt = sprintf("%0.2f",$total * (17.5 / (100 + 17.5)));
		    my $pretax = $total - $taxamt;

		    print "Subtotal:</td><td><b>$amt->{cn}->{prefix}$pretax$amt->{cn}->{suffix}</b></td></tr>";
#		    my $tax = ($total * 0.175);
#		    $tax = sprintf("%0.2f",$tax);
#		    my $ustax = ($ustotal * 0.175);
#		    $ustax = sprintf("%0.2f",$ustax);
		    print qq~<tr><td>Tax (VAT):</td><td><b>$amt->{cn}->{prefix}$taxamt$amt->{cn}->{suffix}</b></td></tr><tr><td>~;
#		    $total = $total + $tax;
#		    $ustotal = $ustotal + $ustax;
		}

	my $meth = param('method');

	my $ref;
	while (!$ref) {
	    $ref = int(rand(999999999999));
	    my $sth = $dbh->prepare("SELECT invnumber FROM invoices WHERE invnumber = '$ref'");
	    $sth->execute;
	    (my $alr) = $sth->fetchrow_array;
	    $sth->finish;
	    $ref = '' if ($alr);
	}

	my $sess = cookie("frmsessionid");
	my $uid;
	if ($sess) {
	    require "/home/bbv2/sf.bbv2.com/bbv2api.pm";
	    my $bbv2 = new bbv2api;
	    
	    my $uu = $bbv2->{db}->bbselect('uid, sesid','session',"sesid = '$sess'",'sesid');
	    $uid = $uu->{$sess}->{uid};
	}

	$dbh->do("INSERT INTO invoices (invnumber, currency, total, status, uid, lictype, rentorbuy, refer, wantsinstall, whatfor, extlicense, nosupport) VALUES ('$ref','CNY','$total','Awaiting Payment', '$uid', '$license', 'purchased','$refer','" . ($installation ? $amt->{cn}->{amt_inst} : '0') . "', '" . ($exlic ? 'UpgradeTrial' : $upsupport ? 'UpgradeSupport' : 'license') . "', " . ($exlic ? "'$exlic'" : $upsupport ? "'$upsupport'" : 'NULL') . ", " . ($coupon eq 'nosupport' ? 1 : 0) . ")");

print qq~<b><u>Total:</u></b></td><td><b><u>$amt->{cn}->{prefix}$total$amt->{cn}->{suffix}</u></b></td></tr></table></td></tr></table>

    ~;
	if ($meth ne 'check') {
	    print qq~Please choose a payment method below, and make payment. After making payment, you will be taken to your client area, where you will be able to download a copy of bbBoard v2, and manage your license. We offer a 30-day no questions asked 100% <a href="http://www.bbv2.com/uk/guarantee.bhtml#refund">money-back guarantee</a>.<br><br>

		<table border=0 align=center width=95%>~;
#		print qq~<tr><td><a href="https://select.worldpay.com/wcc/purchase?cartId=$ref&amount=$total&currency=CNY&desc=bbBoard v2 purchased $license license&instId=87997&hideCurrency=yes">Credit/Debit Card</a></td><td align=center>
#	    <a href="https://select.worldpay.com/wcc/purchase?cartId=$ref&amount=$total&currency=CNY&desc=bbBoard v2 purchased $license license&instId=87997&hideCurrency=yes"><img src="/images/VISD.gif" border=0> <img src="/images/VISA.gif" border=0> <img src="/images/JCB.gif" border=0> <img src="/images/SWIT.gif" border=0> <img src="/images/MSCD.gif" border=0> <img src="/images/SOLO.gif" border=0> <img src="/images/VIED.gif" border=0><br>
#	    <img src="/images/poweredByWorldPay.gif" border=0></a><br><br>
#	    </td></tr>~;

	    print qq~<tr><td>~;
	    if ('CNY' ne 'AUD' && 'CNY' ne 'CNY') {
		print qq~<a href="http://www.paypal.com/cgi-bin/webscr?cmd=_xclick&business=support\@bbv2.com&item_name=bbBoard v2 purchased $license license&amount=$total&no_note=1&currency_code=CNY&lc=GB&invoice=$ref&notify_url=http://www.bbv2.com/paypalpostback.boy">PayPal</a><br>(For Credit/Debit Card, click the logo on the right<br>and scroll to the bottom of the page)</td><td><a href="http://www.paypal.com/cgi-bin/webscr?cmd=_xclick&business=support\@bbv2.com&item_name=bbBoard v2 purchased $license license&amount=$total&no_note=1&currency_code=CNY&lc=GB&invoice=$ref&notify_url=http://www.bbv2.com/paypalpostback.boy"><img src="/images/paypal-pay.gif" border=0></a><br><br></td>~;
	    }
	    else {
		print qq~PayPal</td><td>PayPal is not yet available for your currency. If you wish to pay by PayPal, please <a href="/int/purchase.boy?step=$step;license=$license$exp;where=$where;coupon=$coupon">click here to review your order in GBP</a>, then choose PayPal.<br><br></td>~;
	    }

print qq~</tr>
    <tr><td><a href="purchase.boy?step=$step;coupon=$coupon;license=$license$exp;where=$where;method=check;installation=$installation">Paper Cheque</a></td><td><a href="purchase.boy?step=$step;coupon=$coupon;license=$license$exp;where=$where;method=check;installation=$installation">Paper Cheque</a></td></tr>
	    </table>
	    <br><br>~;
	}

	if ($meth eq 'check') {
	    if ("CNY" ne 'GBP') {
		my $surcharge = $amt->{cn}->{chk_surcharge};
		print qq~Paper cheque surchage: <b>$amt->{cn}->{prefix}$surcharge$amt->{cn}->{suffix}</b><p>~;
		print qq~[ <a href="purchase.boy?step=$step;coupon=$coupon;where=$where;license=$license$exp">Choose a different payment method?</a> ]<p>~;
		$total += $surcharge;
	    }

	    print qq~
		<script language=javascript>
		<!--
		window.open('checkform.boy?plan=$license&amount=$total&ref=$ref','chequeform','width=620,height=400,resizable=1,scrollbars=yes,menubar=yes,status=no');
		-->
		</script>
		Please send a paper cheque for <b>$amt->{cn}->{prefix}$total$amt->{cn}->{suffix}</b> to:<br><br><pre>~ . "Chris Brooks<br>9 Travis Grove<br>Thorne<br>Doncaster<br>Sth Yorkshire<br>DN8 5PL<br>England" . 

#<br>Suite 6<br>34 Buckingham Palace Road<br>London<br>SW1W 0RH<br>England

qq~</pre>A window with a print out form should have popped up when you loaded this page (<font size=1><a href="checkform.boy?plan=$license&amount=$total&ref=$ref" target=_blank>click here if it didn\'t</a></font>). To ensure quick processing of your cheque, please print out the form, fill in the blanks, staple the cheque to the paper and send it in an envelope to the above address. If you are not sending from the UK, then air mail is preferred.<br><br>We understand that post will take a while, but endeavour to process all cheques on the day we receive them. While you\'re waiting, please feel free to take advantage of our <a href="http://www.bbv2.com/cn/freetrial.bhtml">Free Trial</a> - you will be able to set up and begin using your board right now, before your payment is processed.~;

    }

}

	open(BOT,"bottom.html.ssl");
	print while (<BOT>);
	close(BOT);