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

[REBOL] A little program to check if web sites are up :-)

From: gschwarz::netconnect::com::au at: 15-Jun-2001 15:23

I thought of doing a view program with a big "Stop" button, maybe later. Just a way of checking if the web server is up, as a help desk worker it is one way of knowing servers are down before customers calls (hopefully). Regards, Greg Schwarz REBOL [ Title: "Web page checker" Author: "Gregory Schwarz" Date: 14-Jun-2001 File: %webchecker.r Purpose: { Check if the web server is up..... If not an email is sent with the domain to net-ops. The file domains.txt has a list of web site to check. One line, one domain. eg. www.netconnect.net.au } ] forever [ files: read/lines %domains.txt foreach file files [ web-address: to-url join "http://" [ file] if error? try [read web-address] [ send [name--domain--com--au] join to-string web-address [ " is down, please check."] ] ] wait 0:30 ]