top
$d_name = "muncieml_db1";
$d_username = "muncieml_db1";
$d_pass = "\@rockdb1";
use DBI;
my $dsn = "DBI:mysql:database=$d_name;host=localhost";
my $dbh = DBI->connect($dsn, $d_username, $d_pass, {RaiseError => 1}) || die $DBI::errstr;
my $uasth = $dbh->prepare("select Price,AddressNumber,AddressDirection,AddressStreet,City,Zip,Status,MLSNUM,Bedrooms,FullBaths,HalfBaths,TotalSqFt,Acres,AgentID,AgentName,CoAgentID,CoAgentName,ListingOffiice1Name,ListingOffice1Phone,ListingOffice1ID,Remarks from listings_res where ListingOffice1ID = '130' order by RAND() limit 1");
$uasth->execute;
$dbh->disconnect;
while (($Price,$AddressNumber,$AddressDirection,$AddressStreet,$City,$Zip,$Status,$MLSNUM,$Bedrooms,$FullBaths,$HalfBaths,$TotalSqFt,$Acres,$AgentID,$AgentName,$CoAgentID,$CoAgentName,$ListingOffiice1Name,$ListingOffice1Phone,$ListingOffice1ID,$Remarks) = $uasth->fetchrow_array()) {
open(DBFILE,"/home/muncieml/public_html/remarksdb.txt");
@dbfile = ;
close(DBFILE);
foreach $dbline (@dbfile) {
$dbline =~ s/\n//gi;
if ($dbline) {
$Remarks =~ s/(.*?)$dbline//gi;
}
#$makestuff .= "$dbline\n";
}
$Remarks =~ s/CHR1/\'/gi;
$Remarks =~ s/CHR2/\"/gi;
if (-e "/home/muncieml/public_html/images/photos/full/meiar$MLSNUM\.jpg") {
$photourl = "http://www.munciemls.com/images/photos/full/meiar$MLSNUM\.jpg";
}
else {
$photourl = "http://www.eagle-online.com/images/featured_nophoto.gif";
}
$Price = &commas($Price);
if($HalfBaths eq "None") {
$HalfBaths = "0"
}
else {
}
print qq~
|
$AddressNumber $AddressDirection $AddressStreet
$City, Indiana $Zip
|
Listing Price \$$Price
MLS #$MLSNUM
|
Beds $Bedrooms Baths $FullBaths Full - $HalfBaths Half
|
SQFT. $TotalSqFt
Acres $Acres
|
Presented By:
$AgentName
$ListingOffiice1Name
|
|
Remarks: $Remarks
|
|
|
|
~;
}
print <<"TheEND";
|
