Janko in a Jar

A guy asked at some forum that I frequent where he can find some apps that test a list of webpages if some text exists on them. Well I don’t know for such programs but this shouted for few quick lines of REBOL so I posted them to him, and here too if I am already writing..

check: func [ url text ] [ if/else find read url text [ "ok" ] [ "OOPS!" ] ]
check-sites: func [ sites ] [ foreach site sites [ print join site/1 [ ": " check site/1 site/2 ] ] ]

so you go to rebol console and use it like this:

check-sites [ [ http://www.najdi.si "najdi.si" ] [ http://www.google.com "microsoft" ] ]

and console says:

connecting to: www.najdi.si
http://www.najdi.si : ok
connecting to: www.google.com
http://www.google.com : OOPS!

Of course this is very simple example script, but it can be a basis for adding logging, sending emails on errors, checking multiple strings per page .. whatever.

This entry was posted on Monday, October 13th, 2008 at 2:39 pm and is filed under Just programming, rebol.