|
|
Current Rates
#!/usr/bin/perl
#
# DEFINE VARIABLES
#
#
#
#
#
#
$scriptname='currentrates.cgi';
$pathtofiles='/var/web/hardin/hardinmortgage.com/cgi-bin/rates/';
$datefilename='date.txt';
$convfilename='convrates.txt';
$jumbofilename='jumborates.txt';
$fhavafilename='fhavarates.txt';
#
# bgcolor: background color of all pages
# textcolor: color of default text
# linkcolor: color of url text
# thcolor: table header color
# thtext: table header text color
# sitename: site this script is used for
#
#
#
$bgcolor='#FFF3E1';
$textcolor='#000000';
$linkcolor='#0000FF';
$thcolor='#006600';
$thtext='#FFFFFF';
$sitename='Hardin Mortgage Company';
###################
#
$convrates=$pathtofiles . $convfilename;
$jumborates=$pathtofiles . $jumbofilename;
$fhavarates=$pathtofiles . $fhavafilename;
$datefile=$pathtofiles . $datefilename;
#
#######################################
#
# BEGIN MAIN
#
###################
#
#Get data from query string
#
&parse_form;
#
# What do we display?
#
if ($input{'action'} eq 'displayconv') {
&display_conv;
} elsif ($input{'action'} eq 'displayjumbo') {
&display_jumbo;
} elsif ($input{'action'} eq 'displayfhava') {
&display_fhava;
} elsif ($input{'action'} eq 'displaydate') {
&show_date;
} elsif ($input{'action'} eq 'edit') {
&edit_rates;
} elsif ($input{'action'} eq 'editfile') {
&edit_rate_files;
} elsif ($input{'action'} eq 'editdate') {
&edit_date;
} elsif ($input{'action'} eq 'showall') {
&show_all_rates;
} elsif ($input{'action'} eq 'help') {
&show_help;
} else {
&show_menu_page;
}
###################
#
# SHOW_MENU_PAGE
#
###################
sub show_menu_page {
&print_header;
&print_menu;
&print_footer;
}
###################
#
# SHOW_ALL RATES
#
###################
sub show_all_rates {
&print_header;
print "";
&show_date;
print "";
print "";
&display_conv;
print " ";
&display_jumbo;
print " ";
&display_fhava;
print "
";
print "Back to Main Menu";
&print_footer;
}
###################
#
# PRINT_MENU
#
###################
sub print_menu {
print "Edit Date ";
print "Edit Rates ";
print "Show All Rates ";
print "Show Current Rates Page ";
}
###################
#
# SHOW_DATE
#
###################
sub show_date {
# Get Date
open (DTE, "$datefile");
$currdate = ;
close (DTE);
print "Content-type: text/html\n\n";
print "$currdate"
}
###################
#
# DISPLAY_CONV
#
###################
sub display_conv {
#
# Open Conv data file
#
open (ORGDB,"<$convrates");
@ODB=;
close (ORGDB);
print "Content-type: text/html\n\n";
#
# Print Table Header
#
print qq|
Conforming "A" Quality Conventional Loan Rates
For loans from \$150,000 to \$333,700
Rates on loan amounts under \$150,000 may be slightly higher than reflected on the chart below.
| 30-Year Fixed Loans - 30 day lock. |
|
15-Year Fixed Loans - 30 day lock. |
| Rate |
Disc. Pts. |
Origination |
APR |
|
Rate |
Disc. Pts. |
Origination |
APR |
|;
$counter = 1;
foreach $rec (@ODB){
chomp($rec);
($rate01,$discpts01,$orig01,$apr01,$rate02,$discpts02,$orig02,$apr02)=split(/\|/,$rec);
if (($counter % 2) ne 0) {
print "| $rate01 | $discpts01 | $orig01 |
$apr01 | | $rate02 |
$discpts02 | $orig02 |
$apr02 | ";
} else {
print "| $rate01 | $discpts01 | $orig01 |
$apr01 | | $rate02 |
$discpts02 | $orig02 |
$apr02 | ";
}
++$counter;
}
print " ";
}
###################
#
# DISPLAY_JUMBO
#
###################
sub display_jumbo {
#
# Open Jumbo data file
#
open (ORGDB,"<$jumborates");
@ODB=;
close (ORGDB);
print "Content-type: text/html\n\n";
#
# Print Table Header
#
print qq|
"A" Quality Jumbo Loan Rates For Loans
From \$333,701 to \$650,000 range
Please call 214-946-3454 or 888-945-4136 for loan amounts above \$650,000.
| 30-Year Fixed Loans - 30 day lock. |
|
15-Year Fixed Loans - 30 day lock. |
| Rate |
Disc. Pts. |
Origination |
APR |
|
Rate |
Disc. Pts. |
Origination |
APR |
|;
$counter = 1;
foreach $rec (@ODB){
chomp($rec);
($rate01,$discpts01,$orig01,$apr01,$rate02,$discpts02,$orig02,$apr02)=split(/\|/,$rec);
if (($counter % 2) ne 0) {
print "| $rate01 | $discpts01 | $orig01 |
$apr01 | | $rate02 |
$discpts02 | $orig02 |
$apr02 | ";
} else {
print "| $rate01 | $discpts01 | $orig01 |
$apr01 | | $rate02 |
$discpts02 | $orig02 |
$apr02 | ";
}
++$counter;
}
print " ";
}
###################
#
# DISPLAY_FHAVA
#
###################
sub display_fhava {
#
# Open Conv data file
#
open (ORGDB,"<$fhavarates");
@ODB=;
close (ORGDB);
print "Content-type: text/html\n\n";
#
# Print Table Header
#
print qq|
Texas Veterans Loans & Regular Veterans Loans
Loan amounts from \$100,000 to \$240,000.
Above \$240,000 possible via combo conventional loan.
| Texas Vet 30-Year Fixed Rate Loans |
|
Regular VA 30-Year Fixed Rate Loans |
| Rate |
Disc. Pts. |
Origination |
APR |
|
Rate |
Disc. Pts. |
Origination |
APR |
|;
$counter = 1;
foreach $rec (@ODB){
chomp($rec);
($rate01,$discpts01,$orig01,$apr01,$rate02,$discpts02,$orig02,$apr02)=split(/\|/,$rec);
if (($counter % 2) ne 0) {
print "| $rate01 | $discpts01 | $orig01 |
$apr01 | | $rate02 |
$discpts02 | $orig02 |
$apr02 | ";
} else {
print "| $rate01 | $discpts01 | $orig01 |
$apr01 | | $rate02 |
$discpts02 | $orig02 |
$apr02 | ";
}
++$counter;
}
print " ";
}
###################
#
# EDIT_DATE
#
###################
sub edit_date {
if ($input{'dateedit'} ne 'file') {
@months = ('January','February','March','April','May','June',
'July','August','September','October','November','December');
($sec,$min,$hour,$mday,$mon,$year,$wday) = (localtime(time))[0,1,2,3,4,5,6];
$date = "$months[$mon] $mday, ";
$newdate = "$date 2000";
&print_header;
print "";
print "Back to Main Menu ";
&print_footer;
} else {
open (DTE, ">$datefile");
print DTE ("$input{'currdate'}");
close (DTE);
print "Location: $scriptname\n\n";
}
}
###################
#
# EDIT_RATES
#
###################
sub edit_rates {
&print_header;
print " ";
print "Back to Main Menu ";
&print_footer;
}
####################
#
# EDIT_RATE_FILES
#
####################
sub edit_rate_files {
if ($input{'ratetype'} eq 'conv') {
## CONVENTIONAL
if ($input{'appendrows'} eq 'yesappend') {
open (DATAFILE, ">>$convrates");
print DATAFILE "$input{'rate01'}%|$input{'discpts01'}%|$input{'orig01'}%|$input{'apr01'}%|$input{'rate02'}%|$input{'discpts02'}%|$input{'orig02'}%|$input{'apr02'}%\n";
close (DATAFILE);
} else {
open (DATAFILE, ">$convrates");
print DATAFILE "$input{'rate01'}%|$input{'discpts01'}%|$input{'orig01'}%|$input{'apr01'}%|$input{'rate02'}%|$input{'discpts02'}%|$input{'orig02'}%|$input{'apr02'}%\n";
close (DATAFILE);
}
} elsif ($input{'ratetype'} eq 'jumbo') {
## JUMBO
if ($input{'appendrows'} eq 'yesappend') {
open (DATAFILE, ">>$jumborates");
print DATAFILE "$input{'rate01'}%|$input{'discpts01'}%|$input{'orig01'}%|$input{'apr01'}%|$input{'rate02'}%|$input{'discpts02'}%|$input{'orig02'}%|$input{'apr02'}%\n";
close (DATAFILE);
} else {
open (DATAFILE, ">$jumborates");
print DATAFILE "$input{'rate01'}%|$input{'discpts01'}%|$input{'orig01'}%|$input{'apr01'}%|$input{'rate02'}%|$input{'discpts02'}%|$input{'orig02'}%|$input{'apr02'}%\n";
close (DATAFILE);
}
} elsif ($input{'ratetype'} eq 'fhava') {
## FHA/VA
if ($input{'appendrows'} eq 'yesappend') {
open (DATAFILE, ">>$fhavarates");
print DATAFILE "$input{'rate01'}%|$input{'discpts01'}%|$input{'orig01'}%|$input{'apr01'}%|$input{'rate02'}%|$input{'discpts02'}%|$input{'orig02'}%|$input{'apr02'}%\n";
close (DATAFILE);
} else {
open (DATAFILE, ">$fhavarates");
print DATAFILE "$input{'rate01'}%|$input{'discpts01'}%|$input{'orig01'}%|$input{'apr01'}%|$input{'rate02'}%|$input{'discpts02'}%|$input{'orig02'}%|$input{'apr02'}%\n";
close (DATAFILE);
}
}
print "Location: $scriptname?action=edit\n\n";
}
####################
#
# PRINT_HEADER
#
###################
sub print_header {
print "Content-type: text/html\n\n";
print "
$sitename - Rate Editor
Rate Editor
";
}
####################
#
# PRINT_FOOTER
#
###################
sub print_footer {
print "
";
}
####################
#
# PARSE_FORM
#
###################
sub parse_form {
# print "Content-type: text/html\n\n";
# print "$ENV{QUERY_STRING}";
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
if (length($buffer) < 5) {
$buffer = $ENV{QUERY_STRING};
}
@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;
$input{$name} = $value;
}
}
The following Interest Rate Tables provide various interest rates according to the amount of Discount and Origination Points charged.
The rates listed below should only be used as a guide. Your actual rate could be slightly more or less due to fluctuating rates and your particular loan needs.
- Good Faith Estimate - You should require all prospective lenders to provide you with a written Good Faith Estimate prior to making your final decision.
- Discount Points - Often called "points" is a one-time charge used to adjust the yield on the loan to lower "buy-down" the interest rate on the loan.
- Origination Points - Also called "points." This fee usually covers the broker's or lender's administrative costs in processing the loan and is calculated as a percentage of the loan amount.
#!/usr/bin/perl
#
# DEFINE VARIABLES
#
#
#
#
#
#
$scriptname='currentrates.cgi';
$pathtofiles='/var/web/hardin/hardinmortgage.com/cgi-bin/rates/';
$datefilename='date.txt';
$convfilename='convrates.txt';
$jumbofilename='jumborates.txt';
$fhavafilename='fhavarates.txt';
#
# bgcolor: background color of all pages
# textcolor: color of default text
# linkcolor: color of url text
# thcolor: table header color
# thtext: table header text color
# sitename: site this script is used for
#
#
#
$bgcolor='#FFF3E1';
$textcolor='#000000';
$linkcolor='#0000FF';
$thcolor='#006600';
$thtext='#FFFFFF';
$sitename='Hardin Mortgage Company';
###################
#
$convrates=$pathtofiles . $convfilename;
$jumborates=$pathtofiles . $jumbofilename;
$fhavarates=$pathtofiles . $fhavafilename;
$datefile=$pathtofiles . $datefilename;
#
#######################################
#
# BEGIN MAIN
#
###################
#
#Get data from query string
#
&parse_form;
#
# What do we display?
#
if ($input{'action'} eq 'displayconv') {
&display_conv;
} elsif ($input{'action'} eq 'displayjumbo') {
&display_jumbo;
} elsif ($input{'action'} eq 'displayfhava') {
&display_fhava;
} elsif ($input{'action'} eq 'displaydate') {
&show_date;
} elsif ($input{'action'} eq 'edit') {
&edit_rates;
} elsif ($input{'action'} eq 'editfile') {
&edit_rate_files;
} elsif ($input{'action'} eq 'editdate') {
&edit_date;
} elsif ($input{'action'} eq 'showall') {
&show_all_rates;
} elsif ($input{'action'} eq 'help') {
&show_help;
} else {
&show_menu_page;
}
###################
#
# SHOW_MENU_PAGE
#
###################
sub show_menu_page {
&print_header;
&print_menu;
&print_footer;
}
###################
#
# SHOW_ALL RATES
#
###################
sub show_all_rates {
&print_header;
print "";
&show_date;
print "";
print "";
&display_conv;
print " ";
&display_jumbo;
print " ";
&display_fhava;
print "
";
print "Back to Main Menu";
&print_footer;
}
###################
#
# PRINT_MENU
#
###################
sub print_menu {
print "Edit Date ";
print "Edit Rates ";
print "Show All Rates ";
print "Show Current Rates Page ";
}
###################
#
# SHOW_DATE
#
###################
sub show_date {
# Get Date
open (DTE, "$datefile");
$currdate = ;
close (DTE);
print "Content-type: text/html\n\n";
print "$currdate"
}
###################
#
# DISPLAY_CONV
#
###################
sub display_conv {
#
# Open Conv data file
#
open (ORGDB,"<$convrates");
@ODB=;
close (ORGDB);
print "Content-type: text/html\n\n";
#
# Print Table Header
#
print qq|
Conforming "A" Quality Conventional Loan Rates
For loans from \$150,000 to \$333,700
Rates on loan amounts under \$150,000 may be slightly higher than reflected on the chart below.
| 30-Year Fixed Loans - 30 day lock. |
|
15-Year Fixed Loans - 30 day lock. |
| Rate |
Disc. Pts. |
Origination |
APR |
|
Rate |
Disc. Pts. |
Origination |
APR |
|;
$counter = 1;
foreach $rec (@ODB){
chomp($rec);
($rate01,$discpts01,$orig01,$apr01,$rate02,$discpts02,$orig02,$apr02)=split(/\|/,$rec);
if (($counter % 2) ne 0) {
print "| $rate01 | $discpts01 | $orig01 |
$apr01 | | $rate02 |
$discpts02 | $orig02 |
$apr02 | ";
} else {
print "| $rate01 | $discpts01 | $orig01 |
$apr01 | | $rate02 |
$discpts02 | $orig02 |
$apr02 | ";
}
++$counter;
}
print " ";
}
###################
#
# DISPLAY_JUMBO
#
###################
sub display_jumbo {
#
# Open Jumbo data file
#
open (ORGDB,"<$jumborates");
@ODB=;
close (ORGDB);
print "Content-type: text/html\n\n";
#
# Print Table Header
#
print qq|
"A" Quality Jumbo Loan Rates For Loans
From \$333,701 to \$650,000 range
Please call 214-946-3454 or 888-945-4136 for loan amounts above \$650,000.
| 30-Year Fixed Loans - 30 day lock. |
|
15-Year Fixed Loans - 30 day lock. |
| Rate |
Disc. Pts. |
Origination |
APR |
|
Rate |
Disc. Pts. |
Origination |
APR |
|;
$counter = 1;
foreach $rec (@ODB){
chomp($rec);
($rate01,$discpts01,$orig01,$apr01,$rate02,$discpts02,$orig02,$apr02)=split(/\|/,$rec);
if (($counter % 2) ne 0) {
print "| $rate01 | $discpts01 | $orig01 |
$apr01 | | $rate02 |
$discpts02 | $orig02 |
$apr02 | ";
} else {
print "| $rate01 | $discpts01 | $orig01 |
$apr01 | | $rate02 |
$discpts02 | $orig02 |
$apr02 | ";
}
++$counter;
}
print " ";
}
###################
#
# DISPLAY_FHAVA
#
###################
sub display_fhava {
#
# Open Conv data file
#
open (ORGDB,"<$fhavarates");
@ODB=;
close (ORGDB);
print "Content-type: text/html\n\n";
#
# Print Table Header
#
print qq|
Texas Veterans Loans & Regular Veterans Loans
Loan amounts from \$100,000 to \$240,000.
Above \$240,000 possible via combo conventional loan.
| Texas Vet 30-Year Fixed Rate Loans |
|
Regular VA 30-Year Fixed Rate Loans |
| Rate |
Disc. Pts. |
Origination |
APR |
|
Rate |
Disc. Pts. |
Origination |
APR |
|;
$counter = 1;
foreach $rec (@ODB){
chomp($rec);
($rate01,$discpts01,$orig01,$apr01,$rate02,$discpts02,$orig02,$apr02)=split(/\|/,$rec);
if (($counter % 2) ne 0) {
print "| $rate01 | $discpts01 | $orig01 |
$apr01 | | $rate02 |
$discpts02 | $orig02 |
$apr02 | ";
} else {
print "| $rate01 | $discpts01 | $orig01 |
$apr01 | | $rate02 |
$discpts02 | $orig02 |
$apr02 | ";
}
++$counter;
}
print " ";
}
###################
#
# EDIT_DATE
#
###################
sub edit_date {
if ($input{'dateedit'} ne 'file') {
@months = ('January','February','March','April','May','June',
'July','August','September','October','November','December');
($sec,$min,$hour,$mday,$mon,$year,$wday) = (localtime(time))[0,1,2,3,4,5,6];
$date = "$months[$mon] $mday, ";
$newdate = "$date 2000";
&print_header;
print "";
print "Back to Main Menu ";
&print_footer;
} else {
open (DTE, ">$datefile");
print DTE ("$input{'currdate'}");
close (DTE);
print "Location: $scriptname\n\n";
}
}
###################
#
# EDIT_RATES
#
###################
sub edit_rates {
&print_header;
print " ";
print "Back to Main Menu ";
&print_footer;
}
####################
#
# EDIT_RATE_FILES
#
####################
sub edit_rate_files {
if ($input{'ratetype'} eq 'conv') {
## CONVENTIONAL
if ($input{'appendrows'} eq 'yesappend') {
open (DATAFILE, ">>$convrates");
print DATAFILE "$input{'rate01'}%|$input{'discpts01'}%|$input{'orig01'}%|$input{'apr01'}%|$input{'rate02'}%|$input{'discpts02'}%|$input{'orig02'}%|$input{'apr02'}%\n";
close (DATAFILE);
} else {
open (DATAFILE, ">$convrates");
print DATAFILE "$input{'rate01'}%|$input{'discpts01'}%|$input{'orig01'}%|$input{'apr01'}%|$input{'rate02'}%|$input{'discpts02'}%|$input{'orig02'}%|$input{'apr02'}%\n";
close (DATAFILE);
}
} elsif ($input{'ratetype'} eq 'jumbo') {
## JUMBO
if ($input{'appendrows'} eq 'yesappend') {
open (DATAFILE, ">>$jumborates");
print DATAFILE "$input{'rate01'}%|$input{'discpts01'}%|$input{'orig01'}%|$input{'apr01'}%|$input{'rate02'}%|$input{'discpts02'}%|$input{'orig02'}%|$input{'apr02'}%\n";
close (DATAFILE);
} else {
open (DATAFILE, ">$jumborates");
print DATAFILE "$input{'rate01'}%|$input{'discpts01'}%|$input{'orig01'}%|$input{'apr01'}%|$input{'rate02'}%|$input{'discpts02'}%|$input{'orig02'}%|$input{'apr02'}%\n";
close (DATAFILE);
}
} elsif ($input{'ratetype'} eq 'fhava') {
## FHA/VA
if ($input{'appendrows'} eq 'yesappend') {
open (DATAFILE, ">>$fhavarates");
print DATAFILE "$input{'rate01'}%|$input{'discpts01'}%|$input{'orig01'}%|$input{'apr01'}%|$input{'rate02'}%|$input{'discpts02'}%|$input{'orig02'}%|$input{'apr02'}%\n";
close (DATAFILE);
} else {
open (DATAFILE, ">$fhavarates");
print DATAFILE "$input{'rate01'}%|$input{'discpts01'}%|$input{'orig01'}%|$input{'apr01'}%|$input{'rate02'}%|$input{'discpts02'}%|$input{'orig02'}%|$input{'apr02'}%\n";
close (DATAFILE);
}
}
print "Location: $scriptname?action=edit\n\n";
}
####################
#
# PRINT_HEADER
#
###################
sub print_header {
print "Content-type: text/html\n\n";
print "
$sitename - Rate Editor
Rate Editor
";
}
####################
#
# PRINT_FOOTER
#
###################
sub print_footer {
print "
";
}
####################
#
# PARSE_FORM
#
###################
sub parse_form {
# print "Content-type: text/html\n\n";
# print "$ENV{QUERY_STRING}";
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
if (length($buffer) < 5) {
$buffer = $ENV{QUERY_STRING};
}
@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;
$input{$name} = $value;
}
}
#!/usr/bin/perl
#
# DEFINE VARIABLES
#
#
#
#
#
#
$scriptname='currentrates.cgi';
$pathtofiles='/var/web/hardin/hardinmortgage.com/cgi-bin/rates/';
$datefilename='date.txt';
$convfilename='convrates.txt';
$jumbofilename='jumborates.txt';
$fhavafilename='fhavarates.txt';
#
# bgcolor: background color of all pages
# textcolor: color of default text
# linkcolor: color of url text
# thcolor: table header color
# thtext: table header text color
# sitename: site this script is used for
#
#
#
$bgcolor='#FFF3E1';
$textcolor='#000000';
$linkcolor='#0000FF';
$thcolor='#006600';
$thtext='#FFFFFF';
$sitename='Hardin Mortgage Company';
###################
#
$convrates=$pathtofiles . $convfilename;
$jumborates=$pathtofiles . $jumbofilename;
$fhavarates=$pathtofiles . $fhavafilename;
$datefile=$pathtofiles . $datefilename;
#
#######################################
#
# BEGIN MAIN
#
###################
#
#Get data from query string
#
&parse_form;
#
# What do we display?
#
if ($input{'action'} eq 'displayconv') {
&display_conv;
} elsif ($input{'action'} eq 'displayjumbo') {
&display_jumbo;
} elsif ($input{'action'} eq 'displayfhava') {
&display_fhava;
} elsif ($input{'action'} eq 'displaydate') {
&show_date;
} elsif ($input{'action'} eq 'edit') {
&edit_rates;
} elsif ($input{'action'} eq 'editfile') {
&edit_rate_files;
} elsif ($input{'action'} eq 'editdate') {
&edit_date;
} elsif ($input{'action'} eq 'showall') {
&show_all_rates;
} elsif ($input{'action'} eq 'help') {
&show_help;
} else {
&show_menu_page;
}
###################
#
# SHOW_MENU_PAGE
#
###################
sub show_menu_page {
&print_header;
&print_menu;
&print_footer;
}
###################
#
# SHOW_ALL RATES
#
###################
sub show_all_rates {
&print_header;
print "";
&show_date;
print "";
print "";
&display_conv;
print " ";
&display_jumbo;
print " ";
&display_fhava;
print "
";
print "Back to Main Menu";
&print_footer;
}
###################
#
# PRINT_MENU
#
###################
sub print_menu {
print "Edit Date ";
print "Edit Rates ";
print "Show All Rates ";
print "Show Current Rates Page ";
}
###################
#
# SHOW_DATE
#
###################
sub show_date {
# Get Date
open (DTE, "$datefile");
$currdate = ;
close (DTE);
print "Content-type: text/html\n\n";
print "$currdate"
}
###################
#
# DISPLAY_CONV
#
###################
sub display_conv {
#
# Open Conv data file
#
open (ORGDB,"<$convrates");
@ODB=;
close (ORGDB);
print "Content-type: text/html\n\n";
#
# Print Table Header
#
print qq|
Conforming "A" Quality Conventional Loan Rates
For loans from \$150,000 to \$333,700
Rates on loan amounts under \$150,000 may be slightly higher than reflected on the chart below.
| 30-Year Fixed Loans - 30 day lock. |
|
15-Year Fixed Loans - 30 day lock. |
| Rate |
Disc. Pts. |
Origination |
APR |
|
Rate |
Disc. Pts. |
Origination |
APR |
|;
$counter = 1;
foreach $rec (@ODB){
chomp($rec);
($rate01,$discpts01,$orig01,$apr01,$rate02,$discpts02,$orig02,$apr02)=split(/\|/,$rec);
if (($counter % 2) ne 0) {
print "| $rate01 | $discpts01 | $orig01 |
$apr01 | | $rate02 |
$discpts02 | $orig02 |
$apr02 | ";
} else {
print "| $rate01 | $discpts01 | $orig01 |
$apr01 | | $rate02 |
$discpts02 | $orig02 |
$apr02 | ";
}
++$counter;
}
print " ";
}
###################
#
# DISPLAY_JUMBO
#
###################
sub display_jumbo {
#
# Open Jumbo data file
#
open (ORGDB,"<$jumborates");
@ODB=;
close (ORGDB);
print "Content-type: text/html\n\n";
#
# Print Table Header
#
print qq|
"A" Quality Jumbo Loan Rates For Loans
From \$333,701 to \$650,000 range
Please call 214-946-3454 or 888-945-4136 for loan amounts above \$650,000.
| 30-Year Fixed Loans - 30 day lock. |
|
15-Year Fixed Loans - 30 day lock. |
| Rate |
Disc. Pts. |
Origination |
APR |
|
Rate |
Disc. Pts. |
Origination |
APR |
|;
$counter = 1;
foreach $rec (@ODB){
chomp($rec);
($rate01,$discpts01,$orig01,$apr01,$rate02,$discpts02,$orig02,$apr02)=split(/\|/,$rec);
if (($counter % 2) ne 0) {
print "| $rate01 | $discpts01 | $orig01 |
$apr01 | | $rate02 |
$discpts02 | $orig02 |
$apr02 | ";
} else {
print "| $rate01 | $discpts01 | $orig01 |
$apr01 | | $rate02 |
$discpts02 | $orig02 |
$apr02 | ";
}
++$counter;
}
print " ";
}
###################
#
# DISPLAY_FHAVA
#
###################
sub display_fhava {
#
# Open Conv data file
#
open (ORGDB,"<$fhavarates");
@ODB=;
close (ORGDB);
print "Content-type: text/html\n\n";
#
# Print Table Header
#
print qq|
Texas Veterans Loans & Regular Veterans Loans
Loan amounts from \$100,000 to \$240,000.
Above \$240,000 possible via combo conventional loan.
| Texas Vet 30-Year Fixed Rate Loans |
|
Regular VA 30-Year Fixed Rate Loans |
| Rate |
Disc. Pts. |
Origination |
APR |
|
Rate |
Disc. Pts. |
Origination |
APR |
|;
$counter = 1;
foreach $rec (@ODB){
chomp($rec);
($rate01,$discpts01,$orig01,$apr01,$rate02,$discpts02,$orig02,$apr02)=split(/\|/,$rec);
if (($counter % 2) ne 0) {
print "| $rate01 | $discpts01 | $orig01 |
$apr01 | | $rate02 |
$discpts02 | $orig02 |
$apr02 | ";
} else {
print "| $rate01 | $discpts01 | $orig01 |
$apr01 | | $rate02 |
$discpts02 | $orig02 |
$apr02 | ";
}
++$counter;
}
print " ";
}
###################
#
# EDIT_DATE
#
###################
sub edit_date {
if ($input{'dateedit'} ne 'file') {
@months = ('January','February','March','April','May','June',
'July','August','September','October','November','December');
($sec,$min,$hour,$mday,$mon,$year,$wday) = (localtime(time))[0,1,2,3,4,5,6];
$date = "$months[$mon] $mday, ";
$newdate = "$date 2000";
&print_header;
print "";
print "Back to Main Menu ";
&print_footer;
} else {
open (DTE, ">$datefile");
print DTE ("$input{'currdate'}");
close (DTE);
print "Location: $scriptname\n\n";
}
}
###################
#
# EDIT_RATES
#
###################
sub edit_rates {
&print_header;
print " ";
print "Back to Main Menu ";
&print_footer;
}
####################
#
# EDIT_RATE_FILES
#
####################
sub edit_rate_files {
if ($input{'ratetype'} eq 'conv') {
## CONVENTIONAL
if ($input{'appendrows'} eq 'yesappend') {
open (DATAFILE, ">>$convrates");
print DATAFILE "$input{'rate01'}%|$input{'discpts01'}%|$input{'orig01'}%|$input{'apr01'}%|$input{'rate02'}%|$input{'discpts02'}%|$input{'orig02'}%|$input{'apr02'}%\n";
close (DATAFILE);
} else {
open (DATAFILE, ">$convrates");
print DATAFILE "$input{'rate01'}%|$input{'discpts01'}%|$input{'orig01'}%|$input{'apr01'}%|$input{'rate02'}%|$input{'discpts02'}%|$input{'orig02'}%|$input{'apr02'}%\n";
close (DATAFILE);
}
} elsif ($input{'ratetype'} eq 'jumbo') {
## JUMBO
if ($input{'appendrows'} eq 'yesappend') {
open (DATAFILE, ">>$jumborates");
print DATAFILE "$input{'rate01'}%|$input{'discpts01'}%|$input{'orig01'}%|$input{'apr01'}%|$input{'rate02'}%|$input{'discpts02'}%|$input{'orig02'}%|$input{'apr02'}%\n";
close (DATAFILE);
} else {
open (DATAFILE, ">$jumborates");
print DATAFILE "$input{'rate01'}%|$input{'discpts01'}%|$input{'orig01'}%|$input{'apr01'}%|$input{'rate02'}%|$input{'discpts02'}%|$input{'orig02'}%|$input{'apr02'}%\n";
close (DATAFILE);
}
} elsif ($input{'ratetype'} eq 'fhava') {
## FHA/VA
if ($input{'appendrows'} eq 'yesappend') {
open (DATAFILE, ">>$fhavarates");
print DATAFILE "$input{'rate01'}%|$input{'discpts01'}%|$input{'orig01'}%|$input{'apr01'}%|$input{'rate02'}%|$input{'discpts02'}%|$input{'orig02'}%|$input{'apr02'}%\n";
close (DATAFILE);
} else {
open (DATAFILE, ">$fhavarates");
print DATAFILE "$input{'rate01'}%|$input{'discpts01'}%|$input{'orig01'}%|$input{'apr01'}%|$input{'rate02'}%|$input{'discpts02'}%|$input{'orig02'}%|$input{'apr02'}%\n";
close (DATAFILE);
}
}
print "Location: $scriptname?action=edit\n\n";
}
####################
#
# PRINT_HEADER
#
###################
sub print_header {
print "Content-type: text/html\n\n";
print "
$sitename - Rate Editor
Rate Editor
";
}
####################
#
# PRINT_FOOTER
#
###################
sub print_footer {
print "
";
}
####################
#
# PARSE_FORM
#
###################
sub parse_form {
# print "Content-type: text/html\n\n";
# print "$ENV{QUERY_STRING}";
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
if (length($buffer) < 5) {
$buffer = $ENV{QUERY_STRING};
}
@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;
$input{$name} = $value;
}
}
HMC has numerous "A" quality conventional Adjustable Rate Mortgage (ARM) loan programs. Contact your nearest HMC
Loan Officer for rates and information.
#!/usr/bin/perl
#
# DEFINE VARIABLES
#
#
#
#
#
#
$scriptname='currentrates.cgi';
$pathtofiles='/var/web/hardin/hardinmortgage.com/cgi-bin/rates/';
$datefilename='date.txt';
$convfilename='convrates.txt';
$jumbofilename='jumborates.txt';
$fhavafilename='fhavarates.txt';
#
# bgcolor: background color of all pages
# textcolor: color of default text
# linkcolor: color of url text
# thcolor: table header color
# thtext: table header text color
# sitename: site this script is used for
#
#
#
$bgcolor='#FFF3E1';
$textcolor='#000000';
$linkcolor='#0000FF';
$thcolor='#006600';
$thtext='#FFFFFF';
$sitename='Hardin Mortgage Company';
###################
#
$convrates=$pathtofiles . $convfilename;
$jumborates=$pathtofiles . $jumbofilename;
$fhavarates=$pathtofiles . $fhavafilename;
$datefile=$pathtofiles . $datefilename;
#
#######################################
#
# BEGIN MAIN
#
###################
#
#Get data from query string
#
&parse_form;
#
# What do we display?
#
if ($input{'action'} eq 'displayconv') {
&display_conv;
} elsif ($input{'action'} eq 'displayjumbo') {
&display_jumbo;
} elsif ($input{'action'} eq 'displayfhava') {
&display_fhava;
} elsif ($input{'action'} eq 'displaydate') {
&show_date;
} elsif ($input{'action'} eq 'edit') {
&edit_rates;
} elsif ($input{'action'} eq 'editfile') {
&edit_rate_files;
} elsif ($input{'action'} eq 'editdate') {
&edit_date;
} elsif ($input{'action'} eq 'showall') {
&show_all_rates;
} elsif ($input{'action'} eq 'help') {
&show_help;
} else {
&show_menu_page;
}
###################
#
# SHOW_MENU_PAGE
#
###################
sub show_menu_page {
&print_header;
&print_menu;
&print_footer;
}
###################
#
# SHOW_ALL RATES
#
###################
sub show_all_rates {
&print_header;
print "";
&show_date;
print "";
print "";
&display_conv;
print " ";
&display_jumbo;
print " ";
&display_fhava;
print "
";
print "Back to Main Menu";
&print_footer;
}
###################
#
# PRINT_MENU
#
###################
sub print_menu {
print "Edit Date ";
print "Edit Rates ";
print "Show All Rates ";
print "Show Current Rates Page ";
}
###################
#
# SHOW_DATE
#
###################
sub show_date {
# Get Date
open (DTE, "$datefile");
$currdate = ;
close (DTE);
print "Content-type: text/html\n\n";
print "$currdate"
}
###################
#
# DISPLAY_CONV
#
###################
sub display_conv {
#
# Open Conv data file
#
open (ORGDB,"<$convrates");
@ODB=;
close (ORGDB);
print "Content-type: text/html\n\n";
#
# Print Table Header
#
print qq|
Conforming "A" Quality Conventional Loan Rates
For loans from \$150,000 to \$333,700
Rates on loan amounts under \$150,000 may be slightly higher than reflected on the chart below.
| 30-Year Fixed Loans - 30 day lock. |
|
15-Year Fixed Loans - 30 day lock. |
| Rate |
Disc. Pts. |
Origination |
APR |
|
Rate |
Disc. Pts. |
Origination |
APR |
|;
$counter = 1;
foreach $rec (@ODB){
chomp($rec);
($rate01,$discpts01,$orig01,$apr01,$rate02,$discpts02,$orig02,$apr02)=split(/\|/,$rec);
if (($counter % 2) ne 0) {
print "| $rate01 | $discpts01 | $orig01 |
$apr01 | | $rate02 |
$discpts02 | $orig02 |
$apr02 | ";
} else {
print "| $rate01 | $discpts01 | $orig01 |
$apr01 | | $rate02 |
$discpts02 | $orig02 |
$apr02 | ";
}
++$counter;
}
print " ";
}
###################
#
# DISPLAY_JUMBO
#
###################
sub display_jumbo {
#
# Open Jumbo data file
#
open (ORGDB,"<$jumborates");
@ODB=;
close (ORGDB);
print "Content-type: text/html\n\n";
#
# Print Table Header
#
print qq|
"A" Quality Jumbo Loan Rates For Loans
From \$333,701 to \$650,000 range
Please call 214-946-3454 or 888-945-4136 for loan amounts above \$650,000.
| 30-Year Fixed Loans - 30 day lock. |
|
15-Year Fixed Loans - 30 day lock. |
| Rate |
Disc. Pts. |
Origination |
APR |
|
Rate |
Disc. Pts. |
Origination |
APR |
|;
$counter = 1;
foreach $rec (@ODB){
chomp($rec);
($rate01,$discpts01,$orig01,$apr01,$rate02,$discpts02,$orig02,$apr02)=split(/\|/,$rec);
if (($counter % 2) ne 0) {
print "| $rate01 | $discpts01 | $orig01 |
$apr01 | | $rate02 |
$discpts02 | $orig02 |
$apr02 | ";
} else {
print "| $rate01 | $discpts01 | $orig01 |
$apr01 | | $rate02 |
$discpts02 | $orig02 |
$apr02 | ";
}
++$counter;
}
print " ";
}
###################
#
# DISPLAY_FHAVA
#
###################
sub display_fhava {
#
# Open Conv data file
#
open (ORGDB,"<$fhavarates");
@ODB=;
close (ORGDB);
print "Content-type: text/html\n\n";
#
# Print Table Header
#
print qq|
Texas Veterans Loans & Regular Veterans Loans
Loan amounts from \$100,000 to \$240,000.
Above \$240,000 possible via combo conventional loan.
| Texas Vet 30-Year Fixed Rate Loans |
|
Regular VA 30-Year Fixed Rate Loans |
| Rate |
Disc. Pts. |
Origination |
APR |
|
Rate |
Disc. Pts. |
Origination |
APR |
|;
$counter = 1;
foreach $rec (@ODB){
chomp($rec);
($rate01,$discpts01,$orig01,$apr01,$rate02,$discpts02,$orig02,$apr02)=split(/\|/,$rec);
if (($counter % 2) ne 0) {
print "| $rate01 | $discpts01 | $orig01 |
$apr01 | | $rate02 |
$discpts02 | $orig02 |
$apr02 | ";
} else {
print "| $rate01 | $discpts01 | $orig01 |
$apr01 | | $rate02 |
$discpts02 | $orig02 |
$apr02 | ";
}
++$counter;
}
print " ";
}
###################
#
# EDIT_DATE
#
###################
sub edit_date {
if ($input{'dateedit'} ne 'file') {
@months = ('January','February','March','April','May','June',
'July','August','September','October','November','December');
($sec,$min,$hour,$mday,$mon,$year,$wday) = (localtime(time))[0,1,2,3,4,5,6];
$date = "$months[$mon] $mday, ";
$newdate = "$date 2000";
&print_header;
print "";
print "Back to Main Menu ";
&print_footer;
} else {
open (DTE, ">$datefile");
print DTE ("$input{'currdate'}");
close (DTE);
print "Location: $scriptname\n\n";
}
}
###################
#
# EDIT_RATES
#
###################
sub edit_rates {
&print_header;
print " ";
print "Back to Main Menu ";
&print_footer;
}
####################
#
# EDIT_RATE_FILES
#
####################
sub edit_rate_files {
if ($input{'ratetype'} eq 'conv') {
## CONVENTIONAL
if ($input{'appendrows'} eq 'yesappend') {
open (DATAFILE, ">>$convrates");
print DATAFILE "$input{'rate01'}%|$input{'discpts01'}%|$input{'orig01'}%|$input{'apr01'}%|$input{'rate02'}%|$input{'discpts02'}%|$input{'orig02'}%|$input{'apr02'}%\n";
close (DATAFILE);
} else {
open (DATAFILE, ">$convrates");
print DATAFILE "$input{'rate01'}%|$input{'discpts01'}%|$input{'orig01'}%|$input{'apr01'}%|$input{'rate02'}%|$input{'discpts02'}%|$input{'orig02'}%|$input{'apr02'}%\n";
close (DATAFILE);
}
} elsif ($input{'ratetype'} eq 'jumbo') {
## JUMBO
if ($input{'appendrows'} eq 'yesappend') {
open (DATAFILE, ">>$jumborates");
print DATAFILE "$input{'rate01'}%|$input{'discpts01'}%|$input{'orig01'}%|$input{'apr01'}%|$input{'rate02'}%|$input{'discpts02'}%|$input{'orig02'}%|$input{'apr02'}%\n";
close (DATAFILE);
} else {
open (DATAFILE, ">$jumborates");
print DATAFILE "$input{'rate01'}%|$input{'discpts01'}%|$input{'orig01'}%|$input{'apr01'}%|$input{'rate02'}%|$input{'discpts02'}%|$input{'orig02'}%|$input{'apr02'}%\n";
close (DATAFILE);
}
} elsif ($input{'ratetype'} eq 'fhava') {
## FHA/VA
if ($input{'appendrows'} eq 'yesappend') {
open (DATAFILE, ">>$fhavarates");
print DATAFILE "$input{'rate01'}%|$input{'discpts01'}%|$input{'orig01'}%|$input{'apr01'}%|$input{'rate02'}%|$input{'discpts02'}%|$input{'orig02'}%|$input{'apr02'}%\n";
close (DATAFILE);
} else {
open (DATAFILE, ">$fhavarates");
print DATAFILE "$input{'rate01'}%|$input{'discpts01'}%|$input{'orig01'}%|$input{'apr01'}%|$input{'rate02'}%|$input{'discpts02'}%|$input{'orig02'}%|$input{'apr02'}%\n";
close (DATAFILE);
}
}
print "Location: $scriptname?action=edit\n\n";
}
####################
#
# PRINT_HEADER
#
###################
sub print_header {
print "Content-type: text/html\n\n";
print "
$sitename - Rate Editor
Rate Editor
";
}
####################
#
# PRINT_FOOTER
#
###################
sub print_footer {
print "
";
}
####################
#
# PARSE_FORM
#
###################
sub parse_form {
# print "Content-type: text/html\n\n";
# print "$ENV{QUERY_STRING}";
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
if (length($buffer) < 5) {
$buffer = $ENV{QUERY_STRING};
}
@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;
$input{$name} = $value;
}
}
Please call 214-946-3454 or 888-945-4136 for details on both VA loan programs as well as free written detailed good faith estimate and free prequalification. |
"SubPrime" Loans
We have numerous loan programs for applicants with prior credit problems, hard to qualify borrowers and borrowers with high debts in relation to income.
It is important for you to know that no mortgage lender can give you an accurate rate quote and/or Good Faith Estimate on a SUBPRIME loan until the lender has taken a complete application from you and has secured an in-file credit bureau report from the three main credit reporting agencies. For this reason we do not quote rates on SUBPRIME loans until our underwriters have reviewed the application and credit report.
If you would like us to prequalify you for a SUBPRIME loan, please call one of our loan officers or go to our Prequalification form.
We look forward to working with you and providing you with honest and accurate information about SUBPRIME loans.
- A- paper loans to 90% LTV with Debt Ratios 45%
- B paper loans to 85% LTV with Debt Ratios to 50%
- C paper loans to 80% LTV with Debt Ratios to 55%
- D paper loans to 65% LTV with Debt Ratios to 65%
- Prior Bankruptcy or Foreclosure is OK.
- 100% Gift Down Payment is OK.
- Stated Income 90% LTV, No Reserves & No Ratio programs available.
All rates and terms are subject to change without notice.
Please remember, the rates listed above should only be used as a guide. Your actual rate could be slightly more or less due to fluctuating rates and your particular loan needs. Always require each prospective lender to provide you with a written Good Faith Estimate when comparing lenders.
|