#!/usr/bin/perl print "Content-type: text/html\n\n"; require "config.idx"; $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; } } } 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 $pasth = $dbh->prepare("select * from listings_res3 where mlsnum = '$INPUT{mlsnumber}'"); #my $pasth = $dbh->prepare("select * from listings_res3 where mlsnum = '19155'"); my $iasth = $dbh->prepare("select * from listings_inv3 where mlsnum = '$INPUT{mlsnumber}'"); #my $iasth = $dbh->prepare("select * from listings_inv3 where mlsnum = '19155'"); $pasth->execute; $iasth->execute; while ($data_ref = $pasth->fetchrow_hashref()) { %db = %$data_ref; &pageformat; } while ($data_ref = $iasth->fetchrow_hashref()) { %db = %$data_ref; &pageformat; } $dbh->disconnect; sub pageformat { if ($db{MainLevelSqFt}) { $db{MailLevelSqFt} = &commas($db{MainLevelSqFt}); } else { $db{MainLevelSqFt} = "N/A"; } if ($db{UpperLevel1SqFt}) { $db{UpperLevel1SqFt} = &commas($db{UpperLevel1SqFt}); } else { $db{UpperLevel1SqFt} = "N/A"; } if ($db{UpperLevel2SqFt}) { $db{UpperLevel2SqFt} = &commas($db{UpperLevel2SqFt}); } else { $db{UpperLevel2SqFt} = "N/A"; } if ($db{LowerLevelSqFt}) { $db{LowerLevelSqFt} = &commas($db{LowerLevelSqFt}); } else { $db{LowerLevelSqFt} = "N/A"; } if ($db{TotalSqFt}) { $db{TotalSqFt} = &commas($db{TotalSqFt}); } else { $db{TotalSqFt} = "N/A"; } if ($db{BsmntFinSqFt}) { $db{BsmntFinSqFt} = &commas($db{BsmntFinSqFt}); } else { $db{BsmntFinSqFt} = "N/A"; } if ($db{BsmntUnfinSqFt}) { $db{BsmntUnfinSqFt} = &commas($db{BsmntUnfinSqFt}); } else { $db{BsmntUnfinSqFt} = "N/A"; } if ($db{BsmntSqFt}) { $db{BsmntSqFt} = &commas($db{BsmntSqFt}); } else { $db{BsmntSqFt} = "N/A"; } print <<"STARTPAGECONTENT"; Square Footage Details MuncieMLS.com
 
 Square Footage Details For MLS #$db{MLSNUM}
  
Main Level Square Footage$db{MainLevelSqFt}
Upper Level 1 Square Footage$db{UpperLevel1SqFt}
Upper Level 2 Square Footage$db{UpperLevel2SqFt}
Lower Level Square Footage$db{LowerLevelSqFt}
Total Square Footage$db{TotalSqFt}
Finished Basement Square Footage$db{BsmntFinSqFt}
Unfinished Basement Square Footage$db{BsmntUnfinSqFt}
Total Basement Square Footage$db{BsmntSqFt}
Source Of Records$db{Source}
[ Close This Window ]
STARTPAGECONTENT } sub commas { local($_)=@_; 1 while s/(.*\d)(\d\d\d)/$1,$2/; $_; }