From e8d1fa0056a3c8f0498513f0a578740e7328f919 Mon Sep 17 00:00:00 2001
From: Doug Bell <doug@plainblack.com>
Date: Thu, 23 Jun 2011 17:35:58 -0500
Subject: [PATCH] allow SSLPROXY header again

---
 lib/WebGUI/Session/Request.pm | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

diff --git a/lib/WebGUI/Session/Request.pm b/lib/WebGUI/Session/Request.pm
index 2f8defb70..a8c3c498b 100644
--- a/lib/WebGUI/Session/Request.pm
+++ b/lib/WebGUI/Session/Request.pm
@@ -144,6 +144,22 @@ sub requestNotViewed {
 
 }
 
+#-------------------------------------------------------------------
+
+=head2 secure ( )
+
+Returns true if this is a secure connection. The connection is secure if it's 
+https or if SSLPROXY is true
+
+=cut
+
+sub secure {
+    my ( $self ) = @_;
+    if ( $self->header('SSLPROXY') ) {
+        return 1;
+    }
+    return $self->SUPER::secure;
+}
 
 # This is only temporary
 sub TRACE {