Index: openacs-4/etc/keepalive/keepalive.sh
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/etc/keepalive/keepalive.sh,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/etc/keepalive/keepalive.sh	26 Oct 2006 17:20:11 -0000	1.7
@@ -0,0 +1,57 @@
+#!/bin/sh
+#
+# This script will attempt to request the db test page of a number of OpenACS
+# servers. If a server doesn't respond then a configurable restart shell command will
+# be executed. The restart command may for example send an email alert and/or log to some
+# log file and then restart the server. The URLs of the servers to monitor and their
+# restart commands are expected to be in a config file named keepalive-config.tcl 
+# in the same directory as this script
+#
+# @author Peter Marklund
+
+# the next line restarts using tclsh, the trailing slash is intentional \
+exec /usr/bin/tclsh "$0" "$@"
+
+set script_dir [file dirname [info script]]
+
+source $script_dir/keepalive-config.tcl
+
+proc server_responds_p { server_url } {
+
+    set script_dir [file dirname [info script]]
+    set wget_file $script_dir/dbtest
+    if { [file exists $wget_file] } {
+        file delete -force $wget_file
+    }
+
+    catch {exec /usr/bin/wget -O $wget_file --tries=5 --timeout=7 ${server_url}/SYSTEM/dbtest}
+
+    if { [file exists $wget_file] } {
+          set wget_file_id [open $wget_file r]
+          set wget_file_contents [read $wget_file_id]
+          close $wget_file_id
+          if { [regexp {success} $wget_file_contents] } {
+              set responds_p 1
+          } else {
+              set responds_p 0
+          }
+      } else {
+          set responds_p 0
+      }
+
+      return $responds_p
+}
+
+foreach {server_url restart_command} $servers_to_monitor {
+
+    puts -nonewline "Checking server at $server_url - "
+    if { [server_responds_p $server_url] } {
+        puts "server responds."
+    } else {
+        puts -nonewline "no response. "
+        puts "Executing command \"$restart_command\" to restart server."
+        if { [catch {eval exec $restart_command} errmsg] } {
+            puts "Error executing restart_command: $errmsg"
+        }
+    }
+}