REBOL [
    Title: "Check Web Servers"
    Date: 16-Sep-1999
    File: %check-server.r
    Author: "James Rathbun"
    Purpose: {This script can be used to query a web server, and email webmaster if it fails.}
    library: [
        level: 'intermediate 
        platform: none 
        type: none 
        domain: [web other-net] 
        tested-under: none 
        support: none 
        license: none 
        see-also: none
    ]
]

secure none

database: [
         http://www.prolific.com "Prolific Publishing" jr@prolific.com
         http://www.silentsoftware.com "Silent Software" jr@prolific.com
]

forever [foreach [site name email] database [either exists? site[print rejoin ["The " name " Web Server is running on " now]][send email rejoin["The " name " is not running!!!!! " now]]] wait 0:1:0]