To anyone that cares...
This is nothing special but it's the first thing I have actually sat
down to code in Rebol.
It may be ugly but it works.
For those that have not used "Speak Freely" for Voip I have to recommend
it highly.
Works like a charm even on a 386 machine half way around the world.
In any event code is self explanatory.
REBOL [
Title: "Speak Freely (voip) internet telephone web directory scooper."
Date: 10/02/2000
File: %LWLonline.r
Author: "jim"
Email: [EMAIL PROTECTED]
Purpose: {
Grabs "look who's listening" webpage at the Fourmi Lab in Switzerland,
strips html and attempts to better align records along left column for
potential integration into database file and or other application then
saves file.
}
]
trace/net on
;in case you're a network voyeur!
set-net [ [EMAIL PROTECTED] mail.foobar.com none none none none ]
;uncomment to bypass proxy configuration.
page: read make url! http://www.fourmilab.ch/speakfree/lwl/online.htm
;webpage address for phone directory of active peers for "voip"
connections
parse page [thru <pre> copy text to </pre>]
;this is where the records are on the page
text: replace/all text ":2074" newline
;2074 is default port for "Speak Freely" Just strip it to end up with
"peers" IP address
text: trim text
text: replace/all text " " newline
text: trim text
;feeble attempt to kill white space,left justify and maintain extra line
between records
;may fail due variable length of fields in webpagepage that lacks
delimiters or titles
print text
;in case you want to see it on the screen
save %whosonline.txt text
;save to disk
