#!/usr/bin/perl print "Content-type: text/html\n\n"; $long = $ENV{'QUERY_STRING'}; if ($long) { @pairs=split(/&/,$long); foreach $item(@pairs) { ($name,$content)=split (/=/,$item,2); $content=~tr/+/ /; $content=~ s/%(..)/pack("c",hex($1))/ge; if ($INPUT{$name}) { $INPUT{$name} = $INPUT{$name}.",".$content; } else { $INPUT{$name} = $content; } } } else { read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); @pairs = split(/&/, $buffer); foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair); $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; if ($INPUT{$name}) { $INPUT{$name} = $INPUT{$name}.",".$value; } else { $INPUT{$name} = $value; } } } if ($INPUT{action} eq "change") { &change; } else { &main; } sub main { $preprice = "$INPUT{price}"; $INPUT{mortgagetax} =~ s/\,//gi; $price = &commas($INPUT{price}); $fivepercent = ($INPUT{price} * .05); $showfivepercent = &commas($fivepercent); $tenpercent = ($INPUT{price} * .10); $showtenpercent = &commas($tenpercent); $fifteenpercent = ($INPUT{price} * .15); $showfifteenpercent = &commas($fifteenpercent); $twentypercent = ($INPUT{price} * .20); $showtwentypercent = &commas($twentypercent); $twentyfivepercent = ($INPUT{price} * .25); $showtwentyfivepercent = &commas($twentyfivepercent); $thirtypercent = ($INPUT{price} * .30); $showthirtypercent = &commas($thirtypercent); $thirtyfivepercent = ($INPUT{price} * .35); $showthirtyfivepercent = &commas($thirtyfivepercent); $fortypercent = ($INPUT{price} * .40); $showfortypercent = &commas($fortypercent); $fortyfivepercent = ($INPUT{price} * .45); $showfortyfivepercent = &commas($fortyfivepercent); $fiftypercent = ($INPUT{price} * .50); $showfiftypercent = &commas($fiftypercent); $fiftyfivepercent = ($INPUT{price} * .55); $showfiftyfivepercent = &commas($fiftyfivepercent); $sixtypercent = ($INPUT{price} * .60); $showsixtypercent = &commas($sixtypercent); $sixtyfivepercent = ($INPUT{price} * .65); $showsixtyfivepercent = &commas($sixtyfivepercent); $seventypercent = ($INPUT{price} * .70); $showseventypercent = &commas($seventypercent); $seventyfivepercent = ($INPUT{price} * .75); $showseventyfivepercent = &commas($seventyfivepercent); $eightypercent = ($INPUT{price} * .80); $showeightypercent = &commas($eightypercent); $eightyfivepercent = ($INPUT{price} * .85); $showeightyfivepercent = &commas($eightyfivepercent); $ninetypercent = ($INPUT{price} * .90); $showninetypercent = &commas($ninetypercent); print <<"STARTPAGECONTENT"; Mortgage Assumptions for MLS $INPUT{mlsnum} MuncieMLS.com
 
 Mortgage Assumptions for MLS $INPUT{mlsnum}
  
Property Offering Price\$$price or \$
Down Payment
Real Estate Taxes\$
Mortage Insurance\$
Term of Mortgage (Years)
Interest Rate

  [Close This Window]
STARTPAGECONTENT } sub change { $INPUT{price} =~ s/\,//gi; $INPUT{oprice} =~ s/\,//gi; $startprice = &commas($INPUT{price}); if ($INPUT{oprice} eq "" || $INPUT{oprice} eq "0") { $tempprice = "$INPUT{price}"; } else { $tempprice = "$INPUT{oprice}"; } $tempdownpayment = "$INPUT{downpayment}"; $tempprincipal = $tempprice-$tempdownpayment; $startprincipal = &commas($tempprincipal); $startprincipal = "\$$startprincipal"; $taxes = "$INPUT{taxes}"; $startmonthlytaxes = $taxes/12; $startyearlytaxes = $taxes; if ($startmonthlytaxes eq "0" || $startmonthlytaxes eq "") { $startmonthlytaxes = "Not Entered"; } else { $startmonthlytaxes = sprintf("%.2f",$startmonthlytaxes); $startmonthlytaxes = &commas($startmonthlytaxes); $startmonthlytaxes = "\$$startmonthlytaxes Monthly
"; } if ($startyearlytaxes eq "0" || $startyearlytaxes eq "") { $startyearlytaxes = ""; } else { $startyearlytaxes = sprintf("%.2f",$startyearlytaxes); $startyearlytaxes = &commas($startyearlytaxes); $startyearlytaxes = "\$$startyearlytaxes Annually
"; } $pmi = "$INPUT{pmi}"; $startmonthlypmi = $pmi/12; $startyearlypmi = $pmi; if ($startmonthlypmi eq "0" || $startmonthlypmi eq "") { $startmonthlypmi = "Not Entered"; } else { $startmonthlypmi = sprintf("%.2f",$startmonthlypmi); $startmonthlypmi = &commas($startmonthlypmi); $startmonthlypmi = "\$$startmonthlypmi Monthly
"; } if ($startyearlypmi eq "0" || $startyearlypmi eq "") { $startyearlypmi = ""; } else { $startyearlypmi = sprintf("%.2f",$startyearlypmi); $startyearlypmi = &commas($startyearlypmi); $startyearlypmi = "\$$startyearlypmi Annually
"; } $starttotalmonthly = ($pmi+$taxes)/12; $starttotalmonthlyreal = ($pmi+$taxes)/12; $starttotalyearly = $pmi+$taxes; if ($starttotalmonthly eq 0) { $starttotalmonthly = "Not Entered"; } else { $starttotalmonthly = sprintf("%.2f",$starttotalmonthly); $starttotalmonthly = &commas($starttotalmonthly); $starttotalmonthly = "\$$starttotalmonthly Monthly
"; } if ($starttotalyearly eq 0) { $starttotalyearly = ""; } else { $starttotalyearly = sprintf("%.2f",$starttotalyearly); $starttotalyearly = &commas($starttotalyearly); $starttotalyearly = "\$$starttotalyearly Annually
"; } $principal = "$tempprincipal"; $interest = "$INPUT{rate}"; $monthlyinterest = ($interest)/1200; $termyear = "$INPUT{term}"; $numberofmonths = $termyear*12; $temp = 1 + $monthlyinterest; $expon = 1; for ($p = 0; $p < $numberofmonths; $p++) { $expon = $temp * $expon; } $expon = 1 / $expon; $expon = 1 - $expon; $expon = $monthlyinterest / $expon; $monthlypayment = $principal * $expon; $monthlypaymentclear = $principal * $expon; $monthlypayment=sprintf("%.2f",$monthlypayment); $monthlypayment = &commas($monthlypayment); $realpayment = $monthlypaymentclear+$starttotalmonthlyreal; $realpayment = sprintf("%.2f",$realpayment); $realpayment = &commas($realpayment); if ($tempdownpayment eq 0) { $downpayment = "No Down Payment"; } else { $downpayment = &commas($tempdownpayment); $downpayment = "\$$downpayment"; } print <<"THECHANGEHTML"; Mortgage Assumptions for MLS $INPUT{mlsnum} MuncieMLS.com
 
 Mortgage Assumptions for MLS $INPUT{mlsnum}
  
New Monthly Payment:
 \$$realpayment
Loan DetailsPrincipal $startprincipal
Term $termyear Years
Payment \$$monthlypayment
Down Payment$downpayment
Real Estate Taxes$startmonthlytaxes$startyearlytaxes
Mortgage Insurance$startmonthlypmi$startyearlypmi
Total Taxes & Insurance$starttotalmonthly$starttotalyearly
[Change Assumptions]  [Close Calculator]
THECHANGEHTML } sub commas { local($_)=@_; 1 while s/(.*\d)(\d\d\d)/$1,$2/; $_; }