From 9d315264c672eeec1760ebd8bc5e6e0ee31e6321 Mon Sep 17 00:00:00 2001
From: JT Smith <jt@plainblack.com>
Date: Thu, 1 Feb 2007 21:51:04 +0000
Subject: [PATCH]  - Added a basic status interface to spectre, for
 troubleshooting.

---
 sbin/spectre.pl | 24 +++++++++++++++++++++++-
 1 file changed, 23 insertions(+), 1 deletion(-)

diff --git a/sbin/spectre.pl b/sbin/spectre.pl
index 884750501..c3b82d1a0 100644
--- a/sbin/spectre.pl
+++ b/sbin/spectre.pl
@@ -24,6 +24,7 @@ my $daemon;
 my $run;
 my $debug;
 my $test;
+my $status;
 
 GetOptions(
 	'help'=>\$help,
@@ -31,11 +32,12 @@ GetOptions(
 	'shutdown'=>\$shutdown,
 	'daemon'=>\$daemon,
 	'debug' =>\$debug,
+	'status' => \$status,
 	'run' => \$run,
 	'test' => \$test
 	);
 
-if ($help || !($ping||$shutdown||$daemon||$run||$test)) {
+if ($help || !($ping||$shutdown||$daemon||$run||$test||$status)) {
 	print <<STOP;
 
 	S.P.E.C.T.R.E. is the Supervisor of Perplexing Event-handling Contraptions for 
@@ -59,6 +61,8 @@ if ($help || !($ping||$shutdown||$daemon||$run||$test)) {
 
 	--shutdown	Stops the running Spectre server.
 
+	--status	Returns a report about the internals of Spectre.
+
 	--test		Tests the connection between Spectre and WebGUI. Both Spectre
 			and WebGUI must be running to use this function.
 
@@ -95,6 +99,8 @@ if ($shutdown) {
 	my $res = ping();
 	print "Spectre is Alive!\n" unless $res;
 	print "Spectre is not responding.\n".$res if $res;
+} elsif ($status) {
+	print getStatusReport();
 } elsif ($test) {
 	Spectre::Admin->runTests($config);
 } elsif ($run) {
@@ -123,3 +129,19 @@ sub ping {
 	return 0 if ($result eq "pong");
 	return 1;
 }
+
+sub getStatusReport {
+	my $remote = create_ikc_client(
+	        port=>$config->get("port"),
+	        ip=>$config->get("ip"),
+	        name=>rand(100000),
+        	timeout=>10
+        	);
+	return $POE::Component::IKC::ClientLite::error unless $remote;
+	my $result = $remote->post_respond('workflow/getStatus');
+	return $POE::Component::IKC::ClientLite::error unless defined $result;
+	$remote->disconnect;
+	undef $remote;
+	return $result;
+}
+