From 3635f30267de51379ebfecdf7a85cd518ce99f84 Mon Sep 17 00:00:00 2001
From: dbs <dbs@6d9bc8c9-1ec2-4278-b937-99fde70a366f>
Date: Wed, 17 Mar 2010 21:53:26 +0000
Subject: [PATCH] First cut at an extremely stupid script to ensure that
 services actually respond to requests

We were burned by a service that looked fine in the ps listing - had a
controller, master, listener, and drone - but which was not responding to
requests. NEVER AGAIN!


git-svn-id: svn://svn.open-ils.org/ILS-Contrib/conifer/branches/rel_1_6_0@837 6d9bc8c9-1ec2-4278-b937-99fde70a366f
---
 tools/daily-scripts/test_eg_services.pl | 48 +++++++++++++++++++++++++++++++++
 1 file changed, 48 insertions(+)
 create mode 100644 tools/daily-scripts/test_eg_services.pl

diff --git a/tools/daily-scripts/test_eg_services.pl b/tools/daily-scripts/test_eg_services.pl
new file mode 100644
index 0000000000..b2cc538e9e
--- /dev/null
+++ b/tools/daily-scripts/test_eg_services.pl
@@ -0,0 +1,48 @@
+#/usr/bin/perl
+use strict;
+use OpenSRF::AppSession;
+use OpenSRF::System;
+
+OpenSRF::System->bootstrap_client(config_file => '/openils/conf/opensrf_core.xml');
+
+my @services = qw{
+    opensrf.settings 
+    opensrf.math 
+    opensrf.dbmath 
+    open-ils.acq 
+    open-ils.cat 
+    open-ils.supercat 
+    open-ils.search 
+    open-ils.circ 
+    open-ils.actor 
+    open-ils.auth 
+    open-ils.storage  
+    open-ils.penalty  
+    open-ils.cstore  
+    open-ils.collections  
+    open-ils.ingest  
+    open-ils.reporter  
+    open-ils.reporter-store  
+    open-ils.permacrud  
+    open-ils.pcrud  
+    open-ils.trigger  
+    open-ils.fielder  
+    open-ils.vandelay  
+    open-ils.resolver  
+};
+
+foreach my $service (@services) {
+    check_service($service);
+}
+
+sub check_service {
+    my $service = shift;
+    my $session = OpenSRF::AppSession->create($service);
+    my $request = $session->request("opensrf.system.echo", "All is well");
+    if ($request && $request->gather() eq "All is well") {
+        print "$service: All is well\n";
+    } else {
+        print "$service: FAIL\n";
+    }
+}
+
-- 
2.11.0