#!/usr/bin/perl

open(TOP,"top.html");
print "Content-type:text/html\n\n";
print while (<TOP>);
close(TOP);

use CGI qw(param);

my $which1 = param('which1');
my $which2 = param('which2');
my $which3 = param('which3');
my $which4 = param('which4');
my $which5 = param('which5');

if ($which1) {
    if ($which1 eq 'Yes') { # business
        print qq~Is your company a registered charity or non-profit organisation?<br><br>
            <form action="whichlicense.boy" method=post>
            <input type=submit name=which5 value="Yes"> &nbsp;
        <input type=submit name=which5 value="No"></form>~;
    }
    else {
	print qq~Does your web site make money?<br><br>
	    <form action="whichlicense.boy" method=post>
	    <input type=submit name=which2 value="Yes"> &nbsp;
	<input type=submit name=which2 value="No"></form>~;
    }
}
elsif ($which2) {
    if ($which2 eq 'No') { # regular
	print qq~Complete! You need a <a href="http://www.bbv2.com/usa/purchase.boy?step=2;license=personal">Regular License</a>.~;
    }
    else {
	print qq~Do you employ any staff or paid helpers for your web site?<br><br>
            <form action="whichlicense.boy" method=post>
            <input type=submit name=which3 value="Yes"> &nbsp;
	<input type=submit name=which3 value="No"></form>~;	
    }
}
elsif ($which3) {
    if ($which3 eq 'Yes') { # business
	print qq~Complete! You need a <a href="http://www.bbv2.com/usa/purchase.boy?step=2;license=business">Business License</a>.~;
    }
    else {
	print qq~Does your web site make more than &\#163;10,000 GBP or \$20,000 USD per year?<br><br>
            <form action="whichlicense.boy" method=post>
            <input type=submit name=which4 value="Yes"> &nbsp;
	<input type=submit name=which4 value="No"></form>~;	
    }
}
elsif ($which4) {
    if ($which4 eq 'Yes') {
	print qq~Complete! You need a <a href="http://www.bbv2.com/usa/purchase.boy?step=2;license=business">Business License</a>.~;
    }
    else {
	print qq~Complete! You need a <a href="http://www.bbv2.com/usa/purchase.boy?step=2;license=personal">Regular License</a>.~;
    }
}
elsif ($which5) {
    if ($which5 eq 'Yes') {
	print qq~Complete! You need a <a href="http://www.bbv2.com/usa/purchase.boy?step=2;license=personal">Regular License</a>.~;
    }
    else {
	print qq~Complete! You need a <a href="http://www.bbv2.com/usa/purchase.boy?step=2;license=business">Business License</a>.~;	
    }
}
else {
    print qq~This short quiz will help you to find whether you need a Business or Regular bbv2 license. Please click the appropriate button below.<br><br>
	
	<form action="whichlicense.boy" method=post>
	Do you own your own company? If so, are you purchasing bbv2 for your company\'s web site?<br><br>
	<input type=submit name=which1 value="Yes"> &nbsp;
    <input type=submit name=which1 value="No">
	</form>
	~;
}

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