oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fix HTTPproxy

Browse source
This commit is contained in:
Roy Johnson 2006-06-05 21:50:12 +00:00
parent a51fe82177
commit e783ce7660
2 changed files with 5 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

2
docs/changelog/6.x.x.txt
View file

@ -6,7 +6,7 @@
- fix: Make Package not in Admin Bar - fix: Make Package not in Admin Bar
- fix: Survey Asset Copy Problems - fix: Survey Asset Copy Problems
- fix: EMS Add Subevent - fix: EMS Add Subevent
- fix: HTTPproxy
6.99.3 6.99.3
- Someone removed the status from the submission templates. That has been - Someone removed the status from the submission templates. That has been

7
lib/WebGUI/Asset/Wobject/HttpProxy.pm
View file

@ -236,7 +236,8 @@ sub view {
$proxiedUrl = $self->session->form->process("FormAction") || $self->session->form->process("proxiedUrl") || $self->get("proxiedUrl") ; $proxiedUrl = $self->session->form->process("FormAction") || $self->session->form->process("proxiedUrl") || $self->get("proxiedUrl") ;
} else { } else {
$proxiedUrl = $self->get("proxiedUrl"); $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; $redirect=0;
@ -247,7 +248,7 @@ sub view {
my $cachedHeader = WebGUI::Cache->new($self->session,$proxiedUrl,"HEADER"); my $cachedHeader = WebGUI::Cache->new($self->session,$proxiedUrl,"HEADER");
$var{header} = $cachedHeader->get; $var{header} = $cachedHeader->get;
$var{content} = $cachedContent->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; $redirect=0;
until($redirect == 5) { # We follow max 5 redirects to prevent bouncing/flapping until($redirect == 5) { # We follow max 5 redirects to prevent bouncing/flapping
$userAgent = new LWP::UserAgent; $userAgent = new LWP::UserAgent;
@ -269,7 +270,7 @@ sub view {
$header = new HTTP::Headers; $header = new HTTP::Headers;
$header->referer($self->get("proxiedUrl")); # To get around referrer blocking $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. # not posting the same data over and over again.
if($redirect == 0) { if($redirect == 0) {
foreach my $input_name ($self->session->form->param) { foreach my $input_name ($self->session->form->param) {