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 {