#!/usr/bin/perl
print "Content-type: text/html\n\n";
print <<"STARTOFTHEPAGE";
MuncieMLS.com - Your best source for homes located throughout East Central Indiana!
STARTOFTHEPAGE
&header;
print <<"ALLTHISSTUFF";
ALLTHISSTUFF
&searchcriteria;
print <<"ALLTHISSTUFF2";
ALLTHISSTUFF2
&advertising;
print <<"ALLTHISSTUFF3";
ALLTHISSTUFF3
&footer;
sub header {
open(HEADER,"includes/mainpage.txt");
@header = ;
close(HEADER);
foreach $line (@header) {
print "$line";
}
}
sub searchcriteria {
open(SEARCHCRITERIA,"includes/landsearchcriteria.txt");
@searchcriteria = ;
close(SEARCHCRITERIA);
foreach $line (@searchcriteria) {
print "$line";
}
}
sub advertising {
open(ADVERTISING,"includes/advertising.txt");
@advertising = ;
close(ADVERTISING);
foreach $line (@advertising) {
print "$line";
}
}
sub footer {
open(FOOTER,"includes/footer.txt");
@footer = ;
close(FOOTER);
foreach $line (@footer) {
print "$line";
}
}
