View this PageEdit this PageAttachments to this PageHistory of this PageHomeRecent ChangesSearch the SwikiHelp Guide
Hotspots: Admin Pages | Turn-in Site |
Current Links: Cases Final Project Summer 2007

Milestone Five

Fall2002 M5 - Automatically gather genealogical information


Initial notes


Considering the Requirements and Developing a Design

doc := HTTPSocket httpGetDocument: theUrl args: theArgs.


Tackling the parsing

contents := doc contents.
parsed := HtmlParser parse: contents.





Finishing up


"Make sure we're connected to the internet"
Socket initializeNetwork.
netStatus := NetNameResolver addressForName: 'www.rootsweb.com' timeout: 15.
(netStatus isNil) ifTrue: [ PopUpMenu notify: 'Unable to connect to online genealogy databases.', nl, 'Please check your internet connection and try again.'. results add: 'failure'. ^results.]




"Test code with goal: Try to break the parser"
theUrl := 'http://www.google.com/search'.
theArgs add: (Association key: 'hl' value: (Array with: 'en' )); add: (Association key: 'q' value: (Array with: 'lauren')).


The finished product:






So, that's the basics of how we completed Milestone 5. The project is linked to below for your viewing pleasure.





Link to this Page