From 6c72ee9a41a7227ed07451679988682385f3c0a3 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Mon, 11 Feb 2008 23:11:27 +0000
Subject: [PATCH] adding the SpectreCheck Macro, per the RFE

---
 lib/WebGUI/Macro/SpectreCheck.pm              | 47 +++++++++++++++++++
 lib/WebGUI/i18n/English/Macro_SpectreCheck.pm | 25 ++++++++++
 2 files changed, 72 insertions(+)
 create mode 100644 lib/WebGUI/Macro/SpectreCheck.pm
 create mode 100644 lib/WebGUI/i18n/English/Macro_SpectreCheck.pm

diff --git a/lib/WebGUI/Macro/SpectreCheck.pm b/lib/WebGUI/Macro/SpectreCheck.pm
new file mode 100644
index 000000000..379593eaf
--- /dev/null
+++ b/lib/WebGUI/Macro/SpectreCheck.pm
@@ -0,0 +1,47 @@
+package WebGUI::Macro::SpectreCheck;
+
+#-------------------------------------------------------------------
+# WebGUI is Copyright 2001-2008 Plain Black Corporation.
+#-------------------------------------------------------------------
+# Please read the legal notices (docs/legal.txt) and the license
+# (docs/license.txt) that came with this distribution before using
+# this software.
+#-------------------------------------------------------------------
+# http://www.plainblack.com                     info@plainblack.com
+#-------------------------------------------------------------------
+
+use strict;
+use WebGUI::Operation::Spectre;
+use WebGUI::International;
+
+=head1 NAME
+
+Package WebGUI::Macro::SessionId
+
+=head1 DESCRIPTION
+
+A macro to return the ID of the user's current session.
+
+=head2 process( )
+
+Really just a wrapper around $session->getId;
+
+=cut
+
+
+#-------------------------------------------------------------------
+sub process {
+	my $session = shift;
+    my $remote = WebGUI::Operation::Spectre::getASpectre($session);
+    my $i18n = WebGUI::International->new($session, "Macro_SpectreCheck");
+    if (defined $remote) {
+        return $i18n->get('spectre ok');
+    }
+    else {
+        return $i18n->get('spectre is down');
+    }
+}
+
+1;
+
+
diff --git a/lib/WebGUI/i18n/English/Macro_SpectreCheck.pm b/lib/WebGUI/i18n/English/Macro_SpectreCheck.pm
new file mode 100644
index 000000000..f9706c5d4
--- /dev/null
+++ b/lib/WebGUI/i18n/English/Macro_SpectreCheck.pm
@@ -0,0 +1,25 @@
+package WebGUI::i18n::English::Macro_SpectreCheck;
+
+use strict;
+
+our $I18N = {
+	'spectre ok' => {
+		message => q|Spectre is OK|,
+		lastUpdated => 1202771219,
+		context => q|Message saying that Spectre is doing okay.|
+	},
+
+	'spectre is down' => {
+		message => q|Spectre is down|,
+		lastUpdated => 1202771224,
+		context => q|Message saying that Spectre is unable to be contacted.|
+	},
+
+	'macroName' => {
+		message => q|My Asset|,
+		lastUpdated => 1202771228,
+	},
+
+};
+
+1;