From 05c9bf85c43ae7ec70057d8bbcb5b8257c8c6e6c Mon Sep 17 00:00:00 2001
From: JT Smith <jt@plainblack.com>
Date: Tue, 30 Jan 2007 21:50:13 +0000
Subject: [PATCH] fix Admin.pm

---
 docs/changelog/7.x.x.txt | 1 +
 lib/Spectre/Admin.pm     | 3 ++-
 2 files changed, 3 insertions(+), 1 deletion(-)

diff --git a/docs/changelog/7.x.x.txt b/docs/changelog/7.x.x.txt
index 71636e371..c003d9936 100644
--- a/docs/changelog/7.x.x.txt
+++ b/docs/changelog/7.x.x.txt
@@ -10,6 +10,7 @@
    translation out into a seperate method so it can be more easily maintained
    and tested.
  - fix: Spectre needs new watch batteries
+ - fix: Admin.pm (thanks to elnino)
  - fix: lack of testing for valid object creation
  - fix: No mention of intermediate upgrade step in gotcha's
  - fix: A newly released version of Html::Template fixes a bug with global
diff --git a/lib/Spectre/Admin.pm b/lib/Spectre/Admin.pm
index 5a53732a7..424da3911 100644
--- a/lib/Spectre/Admin.pm
+++ b/lib/Spectre/Admin.pm
@@ -195,6 +195,7 @@ sub runTests {
 		next if $config =~ m/^demo/;
 		print "Testing $key\n";
 		 my $userAgent = new LWP::UserAgent;
+		$userAgent->env_proxy;
         	$userAgent->agent("Spectre");
         	$userAgent->timeout(30);
 		my $url = "http://".$configs->{$key}->get("sitename")->[0].":".$config->get("webguiPort").$configs->{$key}->get("gateway")."?op=spectreTest";
@@ -209,7 +210,7 @@ sub runTests {
 			} elsif ($response eq "spectre") {
 				print "ERROR: WebGUI cannot communicate with Spectre. Perhaps you need to adjust the spectreIp or spectrePort setting the this config file: $key.";
 			} elsif ($response ne "success") {
-				print "ERROR: Spectre received an invalid response from WebGUI while testing $key\n";
+				print "ERROR: Spectre received an invalid response ($response) from WebGUI while testing $key\n";
 			}
         	}
 	}