Index: openacs-4/etc/keepalive/keepalive.sh
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/etc/keepalive/keepalive.sh,v
diff -u -N
--- openacs-4/etc/keepalive/keepalive.sh	24 Feb 2005 13:32:57 -0000	1.5
+++ /dev/null	1 Jan 1970 00:00:00 -0000
@@ -1,57 +0,0 @@
-#!/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 ${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"
-        }
-    }
-}