#!/perl64/bin
# Get the environment variables passe to the script
use CGI qw/:standard :html3 :netscape/;
########### Process ANy Form Data
$FC = "";
@FormValues = split(/&/, $ENV{QUERY_STRING});
$FV1 = @FormValues;
for ($x=0;$x<=$FV1-1;$x++) {
@Attributes = split(/=/,$FormValues[$x]);
if ($Attributes[0] eq "HLFunction") {
$HL=$Attributes[1]; $HL =~ tr/+/ /; $HL =~ s/%([1-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
}
if ($Attributes[0] eq "MID") {
$MLSID=$Attributes[1];
}
if ($Attributes[0] eq "City") {
$city=$Attributes[1];
}
if ($Attributes[0] eq "FC") {
$FC=$Attributes[1];
}
if ($Attributes[0] eq "Property") {
print "Location: http://www.agentrobin.com/property.pl?\n\n";
}
}
if ($HL eq "PropertySearch" && $FC eq "Y") {
print "Location: http://www.agentrobin.com/property.pl?City=$city&Subset=0&minbed=1&maxbed=9&refine=F\n\n";
}
if ($HL eq "PropertySearch" && $FC eq "") {
print "Location: http://www.agentrobin.com/property.pl?City=$city\n\n";
}
print "Location: http://www.agentrobin.com/prop_display.pl?Ref=1&MLSID=$MLSID\n\n";
exit(0);
##############################################################################
################### GENERIC PAGE SETUP HEADING AND METADATA ###################
##############################################################################
sub printheader() {
$description = "AgentRobin Tri-valley Real Estate";
print "Content-type: text/html\n\n";
print "<!DOCTYPE html '-//W3C//DTD XHTML 1.0 Strict//EN' 'http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd'>";
print "<HTML xmlns='http://www.w3.org/1999/xhtml'>\n";
print "<HEAD>\n";
print "<TITLE>$title11</title>\n";
print "<link type='text/css' href='$baseurl/Default_files/AgentRobin_CSS.CSS' rel='stylesheet'>\n";
print "<meta http-equiv=\"refresh\" content=\"0;URL='http://www.agentrobin.com/prop_display.pl?Ref=1&MLSID=$MLSID'\">\n";
print "</head>\n";
print "<body>\n";
}
################### GENERIC PAGE SETUP ENDING ###################
sub printending {
print "</body>\n";
print "</html>\n";
}