Mailing List Archive: 49091 messages
  • Home
  • Script library
  • AltME Archive
  • Mailing list
  • Articles Index
  • Site search
 

[REBOL] Simple Script- mines "Look Who's Listening" webpage

From: webdev::accglobal::net at: 2-Oct-2000 2:56

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: [webdev--accglobal--net] 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 [ [somone--foobar--com] 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