#!/usr/bin/perl # # Redirect query string to jsp file # use CGI qw(:cgi-lib); &ReadParse(*in); print "Content-type: text/html\n\n"; $ret=$ENV{'QUERY_STRING'}; $ret =~ s/limit\=/ps\=/; $ret =~ s/new\=Used/is\=false/; $ret =~ s/new\=New/is\=true/; $ret =~ s/units\=Feet/luom\=126/; $ret =~ s/units\=Meters/luom\=127/; if ($ret =~ /hosturl\=/) { $ret =~ s/company\=/ywo\=/; } else { $ret =~ s/company\=([^&]*)/ywo\=$1&hosturl\=$1/; } $ret .= "&slim=broker&lineonly"; print " "; print ""; print "";