Getting a web page from filePro

[Kenneth Brody]

GCC Consulting wrote:
> 
> With much help from Fairlight and a suggestion from Jim Asman here's the
> solution to my problem.
> 
> Platform: native 5.0.xx
> 
> Problem: Pass a UPS tracking number to their tracking web page from a filePro
> record from an @key command.
[...]

I took a different approach for form-based searches.  For one, not all
sites allow GET access and require POST.  Others are too complex to pass
as a simple URL.

I chose to create an auto-submit form with all of the data already filled
in by filePro.

For example, we have been doing some real estate searches via the local
MLS, and occasionally I like to look at the online information page,
along with the photos available there.  I went to an online search site
that allowed search by MLS number, determine the form's fields and
values, and created an equivalent for via filePro within a CALLable
processing table.

Note that the field "MLS" contains the MLS number.  Also note the "onLoad"
property to the BODY tag to generate an auto-submit.

Also, as long as you're on 5.0, why not use a SHOW POPUP rather than a
SHOWCTR?

==========
show popup "Generating HTML...  Please wait."
video sync
declare DocName
DocName = "fp_mls.html"
html :cr DocName
html :bo :zz "onLoad='document.getmls.submit()'"
html :fo :ac "http://tacoma.redata.com/vp/SearchServlet" :me "POST"
              :na "getmls"
html :in :ty "hidden" :na "LOGSEARCH" :va "TRUE"
html :in :ty "hidden" :na "cd_Page" :va "SEARCH_LISTING_P2"
html :in :ty "hidden" :na "ScreenID_Cur" :va "SEARCH_LISTING_P2"
html :in :ty "hidden" :na "servlet_alt" :va "showListingDetail"
html :in :ty "hidden" :na "ScreenID" :va "ListingSummary_Public"
html :in :ty "hidden" :na "ScreenID_Alt" :va "LISTING_DETAIL_P"
html :in :ty "hidden" :na "scoped" :va "Y"
html :in :ty "hidden" :na "Search" :va "True"
html :in :ty "hidden" :na "SITE" :va "HLAWNY"
html :in :ty "hidden" :na "sortCriteria" :va "Listing_Price DESC"
html :in :ty "hidden" :na "jboss_alt" :va "TRUE"
html :in :ty "hidden" :na "MLS_Number" :va ""{MLS
html :in :ty "submit" :na "Search" :va "Loading MLS for" < MLS
html :fo-
html :cr-
system "start" < DocName
clears
end
==========

I have similar processing tables to get a map from an address, to do a
reverse phone number search, and so on.

-- 
+-------------------------+--------------------+-----------------------------+
| Kenneth J. Brody        | www.hvcomputer.com |                             |
| kenbrody/at\spamcop.net | www.fptech.com     | #include <std_disclaimer.h> |
+-------------------------+--------------------+-----------------------------+
Don't e-mail me at: <mailto:ThisIsASpamTrap at gmail.com>