From cf68263eb333e59f24a3f7c076020d61f9c8591f Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Fri, 23 Jan 2009 05:35:27 +0000
Subject: [PATCH] Make the failed subnet log message clearer.

---
 lib/WebGUI/Operation/Spectre.pm | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/lib/WebGUI/Operation/Spectre.pm b/lib/WebGUI/Operation/Spectre.pm
index 790f850df..b0d2f1fe6 100644
--- a/lib/WebGUI/Operation/Spectre.pm
+++ b/lib/WebGUI/Operation/Spectre.pm
@@ -190,8 +190,12 @@ sub spectreTest{
     if (!defined $subnets) {
         $subnets = [];
     }
-	unless (isInSubnet($session->env->getIp, $subnets)) {
-		$session->errorHandler->security("Tried to make a Spectre workflow runner request, but we're only allowed to accept requests from ".join(",",@{$subnets}).".");
+    my $sessionIp = $session->env->getIp;
+	unless (isInSubnet($sessionIp, $subnets)) {
+		$session->errorHandler->security(
+            sprintf "Tried to make a Spectre workflow runner request from %s, but we're only allowed to accept requests from %s",
+                $sessionIp, join(",",@{$subnets})
+        );
         return "subnet";
 	}
 	my $remote = create_ikc_client(