Ack, This is a great idea,
Thanks
Martyn
----- Original Message -----
From: "Matt Wagner" <matt.wagner(a)redhat.com>
To: aeolus-devel(a)lists.fedorahosted.org
Sent: Monday, 27 June, 2011 11:45:58 PM
Subject: [PATCH] check_services debugging script
This is a quick little script to verify that all core services are running.
---
util/check_services | 32 ++++++++++++++++++++++++++++++++
1 files changed, 32 insertions(+), 0 deletions(-)
create mode 100755 util/check_services
diff --git a/util/check_services b/util/check_services
new file mode 100755
index 0000000..c74a08f
--- /dev/null
+++ b/util/check_services
@@ -0,0 +1,32 @@
+#!/usr/bin/ruby
+init_scripts=%w(aeolus-conductor aeolus-connector condor conductor-delayed_job
deltacloud-core deltacloud-ec2-us-east-1 deltacloud-ec2-us-west-1 deltacloud-mock httpd
imagefactory iwhd libvirtd mongod ntpd postgresql qpidd)
+
+init_scripts.each do |script|
+ puts "\nChecking #{script} ..."
+ cmd = "/etc/init.d/#{script} status"
+ out = `#{cmd}`
+ if $?.to_i == 0
+ puts " \e[1;32mSuccess:\e[0m #{out.strip}"
+ else
+ puts " \e[1;31mFAILURE:\e[0m #{out.strip}"
+ end
+end
+
+# Other checks
+commands = [
+ {:name => 'development solr', :command => 'lsof -i :8981'},
+ {:name => 'production solr', :command => 'lsof -i :8983'},
+ {:name => 'connector', :command => 'lsof -i :2003'},
+ {:name => 'condor_q', :command => 'condor_q'},
+ {:name => 'condor_status', :command => 'condor_status'}
+]
+commands.each do |cmd|
+ puts "\nChecking #{cmd[:name]} ..."
+ cmd = "#{cmd[:command]}"
+ out = `#{cmd}`
+ if $?.to_i == 0
+ puts " \e[1;32mSuccess:\e[0m #{out.strip}"
+ else
+ puts " \e[1;31mFAILURE:\e[0m #{out.strip}"
+ end
+end
--
1.7.4.4
_______________________________________________
aeolus-devel mailing list
aeolus-devel(a)lists.fedorahosted.org
https://fedorahosted.org/mailman/listinfo/aeolus-devel