From e783ce76607f229dda46227aa733ccd98d16ba51 Mon Sep 17 00:00:00 2001
From: Roy Johnson <roy.l.johnson@gmail.com>
Date: Mon, 5 Jun 2006 21:50:12 +0000
Subject: [PATCH] fix HTTPproxy

---
 docs/changelog/6.x.x.txt              | 2 +-
 lib/WebGUI/Asset/Wobject/HttpProxy.pm | 7 ++++---
 2 files changed, 5 insertions(+), 4 deletions(-)

diff --git a/docs/changelog/6.x.x.txt b/docs/changelog/6.x.x.txt
index 33b911560..5a0d6d7d5 100644
--- a/docs/changelog/6.x.x.txt
+++ b/docs/changelog/6.x.x.txt
@@ -6,7 +6,7 @@
  - fix: Make Package not in Admin Bar
  - fix: Survey Asset Copy Problems
  - fix: EMS Add Subevent
-
+ - fix: HTTPproxy
 
 6.99.3
  - Someone removed the status from the submission templates. That has been
diff --git a/lib/WebGUI/Asset/Wobject/HttpProxy.pm b/lib/WebGUI/Asset/Wobject/HttpProxy.pm
index c2cea5584..9b4b6d05e 100644
--- a/lib/WebGUI/Asset/Wobject/HttpProxy.pm
+++ b/lib/WebGUI/Asset/Wobject/HttpProxy.pm
@@ -236,7 +236,8 @@ sub view {
       $proxiedUrl = $self->session->form->process("FormAction") || $self->session->form->process("proxiedUrl") || $self->get("proxiedUrl") ;
    } else {
       $proxiedUrl = $self->get("proxiedUrl");
-      $self->session->env->get("REQUEST_METHOD")='GET';
+      $self->session->stow->set("REQUEST_METHOD", 'GET');
+	$self->session->errorHandler(Dumper($self->session->{_env}));
    }
 
    $redirect=0; 
@@ -247,7 +248,7 @@ sub view {
    my $cachedHeader = WebGUI::Cache->new($self->session,$proxiedUrl,"HEADER");
    $var{header} = $cachedHeader->get;
    $var{content} = $cachedContent->get;
-   unless ($var{content} && $self->session->env->get("REQUEST_METHOD")=~/GET/i) {
+   unless ($var{content} && $self->session->stow->get("REQUEST_METHOD")=~/GET/i) {
       $redirect=0; 
       until($redirect == 5) { # We follow max 5 redirects to prevent bouncing/flapping
       $userAgent = new LWP::UserAgent;
@@ -269,7 +270,7 @@ sub view {
       $header = new HTTP::Headers;
 	$header->referer($self->get("proxiedUrl")); # To get around referrer blocking
 
-      if($self->session->env->get("REQUEST_METHOD")=~/GET/i || $redirect != 0) {  # request_method is also GET after a redirection. Just to make sure we're
+      if($self->session->stow->get("REQUEST_METHOD")=~/GET/i || $redirect != 0) {  # request_method is also GET after a redirection. Just to make sure we're
                                						# not posting the same data over and over again.
          if($redirect == 0) {
             foreach my $input_name ($self->session->form->param) {