#! /usr/bin/perl

require "cgi-lib.pl";
require "cl-lib.pl";


sub doform {
if ($forms) {
 open(INPUTFORM,"payment/pcinpre.html") || die "Can't open your input form-post. $!\n";
 while(<INPUTFORM>) {
  print $_;
 }
 close INPUTFORM;
}


print qq!<p><center><FORM METHOD="POST" ACTION="payment1.cgi">!;
print qq!<Input type="hidden" name="bananas" value="spiders"><br>!;
print qq!<input type="hidden" name="c" value="$input{c}"><br>!;
print qq!<table align="center" width="50%" border="1">!;
print qq!<tr><td colspan="2">(Note: Please enter only numbers)</td></tr>!;
print qq!<tr><td class="HeaderTD">Loan Amount</td><td><input type="text" size=10 name="loanamount_" value="$loanamount"></td></tr>!;
print qq!<tr><td class="HeaderTD">Term (in years)</td><td><input type="text" size=10 name="term" value="$term"></td></tr>!;
print qq!<tr><td class="HeaderTD">Interest Rate</td><td><input type="text" size=10 name="rate%" value="$rate"></td></tr>!;
print qq!</table>!;
print qq!<input type="submit" value="Calculate"></center></FORM></p>!;

if ($forms) {
 open(INPUTFORM,"payment/pcinpost.html") || die "Can't open your input
form-post. $!\n";
 while(<INPUTFORM>) {
  print $_;
 }
 close INPUTFORM;
}
 print qq!<BR><HR><BR><A HREF="! . &CL_http($input{c}) . qq!"><H3>Return to Home Page</H3></A>! if ($input{c});

}

sub Results {


if ($forms) {
 open(INPUTFORM,"payment/pcoutpre.html") || die "Can't open your input form-post. $!\n";
 while(<INPUTFORM>) {
  print $_;
 }
 close INPUTFORM;
}

print  "<table align='center' width='50%' border='1'>";
printf ("<tr><td class='HeaderTD'>Loan Amount   :</td><td> \$%-9.0d</td></tr>", $loanamount);
printf ("<tr><td class='HeaderTD'>Interest Rate :</td><td> %3.3f\%</td></tr>", ($rate * 100));
printf ("<tr><td class='HeaderTD'>Loan Term     :</td><td> %2.0f years.</td></tr>", $term);
printf ("<tr><td class='HeaderTD'>Payment       :</td><td> \$%-9.2f per month.</td></tr>", $payment);
print  "</table>";

print qq!<center><FORM METHOD="POST" ACTION="payment1.cgi">!;
print qq!<Input type="hidden" name="bananas" value="spiders"><br>!;
print qq!<input type="hidden" name="c" value="$input{c}"><br>!;
print qq!<table align="center" width="50%" border='1'>!;
print qq!<tr><td colspan="2">(Note: Please enter only numbers)</td></tr>!;
print qq!<tr><td class='HeaderTD'>Loan Amount</td><td><input type="text" size=10 name="loanamount_" value="$loanamount"></td></tr>!;
print qq!<tr><td class='HeaderTD'>Term (in years)</td><td><input type="text" size=10 name="term" value="$term"></td></tr>!;
$rate=$rate*100;
print qq!<tr><td class='HeaderTD'>Interest Rate</td><td><input type="text" size=10 name="rate%" value="$rate"></td></tr>!;
print qq!<tr><td colspan="2" align="center"><input type="submit" value="Re-calculate"></td></tr>!;
print qq!</table></FORM></center>!;

if ($forms) {
 open(INPUTFORM,"payment/pcoutpost.html") || die "Can't open your input form-post. $!\n";
 while(<INPUTFORM>) {
  print $_;
 }
 close INPUTFORM;
}
 print qq!<BR><HR><BR><A HREF="! . &CL_http($input{c}) . qq!"><H3>Return to Home Page</H3></A>! if ($input{c});

}

sub Process {

$numerator = ( $loanamount *  ($rate/12));
$denominator = (1 - (1 / (1 + ($rate/12))) ** ($term * 12));
$payment = $numerator / $denominator;
}

MAIN:
{
$forms=true;
 print &PrintHeader;
 if (&MethGet) {

  &ReadParse ( *input);
  &doform;
 } else {

  if (! &ReadParse ( *input)) {

   $in = "";
   $in .= "&banana=spiders";
   $in .= "&c=abcmortgage";
   $in .= "&loanamount_=100000";
   $in .= "&term=30";
   $in .= "&rate%=8";
   @input = split(/&/,$in);
   foreach $i (1 .. $#input) {
    ($key, $val) = split(/=/,$input[$i],2);
    if (index($key,"\%") > $[) {
     $val = $val * 0.01;
     $key =~ s/\%//;
    }
    if (index($key,"_") > $[) {
     $val =~ s/\,//;
     $key =~ s/_//;
    }
    $input{$key} .= $val;
   }
  }
  $loanamount =  $input {loanamount};
  $term = int ($input {term});
  $rate =  $input {rate};
  &Process;
  &Results;
 }
}