#!/usr/bin/perl

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

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

if (!$where) {
    my $cty = 'int';
    $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 two different payment options. You can either <b>rent</b> a copy of bbBoard v2, or <b>purchase</b> one. <a href="http://www.bbv2.com/manuals/purchasing.bhtml#what's the difference between purchasing and renting">What\'s the difference between renting and purchasing</a>, and <a href="http://www.bbv2.com/manuals/purchasing.bhtml#licenses">what\'s the difference between Business and Regular?</a><br><br>

<b>Purchasing:</b> Please select below which license you wish to use. <br><br>

	<center><b><font size=2><a href="http://www.bbv2.com/int/purchase.boy?step=2;license=personal$exp">Regular License</a> (~ . '&#163;50 GBP' . qq~)</font></b><br>Choose this option if you will not be using the software for business use.<br><br>

	<b><font size=2><a href="http://www.bbv2.com/int/purchase.boy?step=2;license=business$exp">Business License</a> (~ . '&#163;89 GBP' . qq~)</b></font><br>Choose this option if you <b>will</b> be using the software for business use.</center>

<p><b>Renting:</b> Please select below which license you wish to use.<br>

<center><b><font size=2><a href="http://www.bbv2.com/int/rent.boy?step=2;license=personal$exp">Regular License</a> (~ . '&#163;4.99 GBP' . qq~ per month)</b></font><br>Choose this option if you will not be using the software for business use.<br><br>

<b><font size=2><a href="http://www.bbv2.com/int/rent.boy?step=2;license=business$exp">Business License</a> (~ . '&#163;6.99 GBP' . qq~ per month)</b></font><br>Choose this option if you <b>will</b> be using the software for business use.</center>

~;
}
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/int/rent.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/int/rent.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=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->{int}->{per_rent} : $amt->{int}->{bus_rent};
	my $ustotal = ($license eq 'personal') ? $amt->{usa}->{per_rent} : $amt->{usa}->{bus_rent};

#	$coupon = 'v2intro';

	print qq~<form action=http://www.bbv2.com/int/rent.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">

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

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

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

	my $discount, $usdiscount, $pluscon;

	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_/) {
                if ($coupon eq 'bbv1') {
		    $pluscon = qq~<br>plus $amt->{int}->{prefix}$amt->{int}->{amt_inst}$amt->{int}->{suffix} for conversion~;
                    print qq~</td></tr><tr><td>v1 Conversion:</td><td><b>$amt->{int}->{prefix}$amt->{int}->{amt_inst}$amt->{int}->{suffix}</b>~;
                }
		else {
		    print qq~</td></tr><tr><td>Discount:</td><td>Sorry, this coupon can only be redeemed against <i>purchased</i> licenses.~;
		}
#			$discount = $amt->{int}->{dis_exist};
#			$usdiscount = $amt->{usa}->{dis_exist};
#			print qq~</td></tr><tr><td>Discount:</td><td><b>$amt->{int}->{prefix}$discount$amt->{int}->{suffix}</b>~;
#			$total -= $discount;
#			$ustotal -= $usdiscount;
#	}
#                elsif ($coupon eq 'v2intro') {
#                       $discount = $amt->{int}->{dis_int};
#                        $usdiscount = $amt->{usa}->{dis_int};
#                        print qq~</td></tr><tr><td>Discount:</td><td><b>$amt->{int}->{prefix}$discount$amt->{int}->{suffix}</b>~;
#                        $total -= $discount; $ustotal -= $usdiscount;
#                }

	}

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

        my $installation = param('installation');
                                                                                                                             
        if ($installation) {
            print qq~Installation:</td><td><b>$amt->{int}->{prefix}$amt->{int}->{amt_inst}$amt->{int}->{suffix}</b></td></tr><tr><td>~;
        }
        else {
            print qq~Installation:</td><td><a href="rent.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->{int}->{prefix}$amt->{int}->{amt_inst}$amt->{int}->{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->{int}->{prefix}$pretax$amt->{int}->{suffix}</b> per month</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->{int}->{prefix}$taxamt$amt->{int}->{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, wantsinstall, whatfor, extlicense) VALUES ('$ref','GBP','$total','Awaiting Payment', '$uid', '$license', 'rented','" . ($installation ? $amt->{int}->{amt_inst} : '0') . "', '" . ($exlic ? 'UpgradeTrial' : 'license') . "', " . ($exlic ? "'$exlic'" : 'NULL') . ")");

	if ($installation) {
	    print qq~<b><u>Total:</u></b></td><td><b><u>$amt->{int}->{prefix}$total$amt->{int}->{suffix} per month</u><bR>plus $amt->{int}->{prefix}$amt->{int}->{amt_inst}$amt->{int}->{suffix} one-time$pluscon</b></td></tr></table></td></tr></table>~;
	}
	else {
	    print qq~<b><u>Total:</u></b></td><td><b><u>$amt->{int}->{prefix}$total$amt->{int}->{suffix} per month</u>$pluscon</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>. You may also cancel your license at any time.<br><br>

		<table border=0 align=center width=95%>~;
#		print qq~<tr><td><a href="https://select.worldpay.com/wcc/purchase?futurePayType=regular&intervalUnit=3&intervalMult=1&initialAmount=~ . ($installation ? ($total + $amt->{int}->{amt_inst}) : $total) . qq~&normalAmount=$total&option=1&startDelayUnit=1&startDelayMult=1&cartId=$ref&currency=GBP&desc=bbBoard v2 rented $license license&instId=87997&hideCurrency=yes">Credit/Debit Card</a></td><td align=center>
#	    <a href="https://select.worldpay.com/wcc/purchase?futurePayType=regular&intervalUnit=3&intervalMult=1&initialAmount=~ . ($installation ? ($total + $amt->{int}->{amt_inst}) : $total) . qq~&normalAmount=$total&option=1&startDelayUnit=1&startDelayMult=1&cartId=$ref&currency=GBP&desc=bbBoard v2 rented $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 ('GBP' ne 'AUD' && 'GBP' ne 'CNY') {
		if ($installation) {
		    my $famt = $amt->{int}->{amt_inst} + $total;
		    if ($pluscon) { $famt += $amt->{int}->{amt_inst} }
		    print qq~<a href="https://www.paypal.com/cgi-bin/webscr?cmd=_xclick-subscriptions&business=support\@bbv2.com&invoice=$ref&item_name=bbBoard v2 rented $license license&no_note=1&currency_code=GBP&a1=$famt&p1=1&t1=M&a3=$total&p3=1&t3=M&src=1&sra=1&notify_url=http://www.bbv2.com/paypalpostback.boy">PayPal</a></td><td><a href="https://www.paypal.com/cgi-bin/webscr?cmd=_xclick-subscriptions&business=support\@bbv2.com&item_name=bbBoard v2 rented $license license&no_note=1&currency_code=GBP&a1=$famt&p1=1&t1=M&a3=$total&p3=1&t3=M&src=1&sra=1&invoice=$ref&notify_url=http://www.bbv2.com/paypalpostback.boy"><img src="/images/paypal-pay.gif" border=0></a><br><br></td>~;
		}
		elsif ($pluscon) {
		    my $famt = $amt->{int}->{amt_inst} + $total;
		    print qq~<a href="https://www.paypal.com/cgi-bin/webscr?cmd=_xclick-subscriptions&business=support\@bbv2.com&invoice=$ref&item_name=bbBoard v2 rented $license license&no_note=1&currency_code=GBP&a1=$famt&p1=1&t1=M&a3=$total&p3=1&t3=M&src=1&sra=1&notify_url=http://www.bbv2.com/paypalpostback.boy">PayPal</a></td><td><a href="https://www.paypal.com/cgi-bin/webscr?cmd=_xclick-subscriptions&business=support\@bbv2.com&item_name=bbBoard v2 rented $license license&no_note=1&currency_code=GBP&a1=$famt&p1=1&t1=M&a3=$total&p3=1&t3=M&src=1&sra=1&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~<a href="https://www.paypal.com/cgi-bin/webscr?cmd=_xclick-subscriptions&business=support\@bbv2.com&item_name=bbBoard v2 rented $license license&no_note=1&currency_code=GBP&a3=$total&p3=1&t3=M&src=1&sra=1&invoice=$ref&notify_url=http://www.bbv2.com/paypalpostback.boy">PayPal</a>~;
		print qq~</td><td><a href="https://www.paypal.com/cgi-bin/webscr?cmd=_xclick-subscriptions&business=support\@bbv2.com&item_name=bbBoard v2 rented $license license&no_note=1&currency_code=GBP&a3=$total&p3=1&t3=M&src=1&sra=1&invoice=$ref&notify_url=http://www.bbv2.com/paypalpostback.boy"><img src="/images/paypal-pay.gif" border=0></a><br><br></td>~;
		}

#http://www.paypal.com/cgi-bin/webscr?cmd=_xclick&business=support\@bbv2.com&item_name=bbBoard v2 rented $license license&amount=$total&no_note=1&currency_code=GBP&lc=GB&invoice=$ref&notify_url=http://www.bbv2.com/paypalpassback.boy">PayPal</a>
	    }
	    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/rent.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>
	    </table>
	    <br><br>~;
	}

#	if ($meth eq 'check') {
#	    if ("GBP" ne 'GBP') {
#		my $surcharge = $amt->{int}->{chk_surcharge};
#		print qq~Paper cheque surchage: <b>$amt->{int}->{prefix}$surcharge$amt->{int}->{suffix}</b><p>~;
#		print qq~[ <a href="rent.boy?step=$step&coupon=$coupon&where=$where&license=$license">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->{int}->{prefix}$total$amt->{int}->{suffix}</b> to:<br><br><pre>~ . "Chris Brooks, bbv2 site<br>9 Travis Grove<br>Thorne<br>Doncaster<br>Sth Yorkshire<br>DN8 5PL<br>England" . 

#bbv2.com<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="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);