A little program to check if web sites are up :-)
[1/1] 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 ]