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

more bug fixes

Browse source
This commit is contained in:
JT Smith 2006-01-13 19:51:51 +00:00
parent a6e5450b64
commit 3feda4d3f3
4 changed files with 18 additions and 18 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -232,7 +232,7 @@ sub view {
foreach my $input_name (keys %{$session{form}}) {
next if ($input_name !~ /^HttpProxy_/); # Skip non proxied form var's
$input_name =~ s/^HttpProxy_//;
$proxiedUrl=$self->session->url->append($proxiedUrl,"$input_name=$self->session->form->process("'HttpProxy_'.$input_name")");
$proxiedUrl=$self->session->url->append($proxiedUrl,"$input_name=".$self->session->form->process('HttpProxy_'.$input_name));
}
}
$request = HTTP::Request->new(GET => $proxiedUrl, $header) || return "wrong url"; # Create GET request
@ -245,13 +245,13 @@ sub view {
next if ($input_name !~ /^HttpProxy_/); # Skip non proxied form var's
$input_name =~ s/^HttpProxy_//;
my $uploadFile = $self->session->request->tmpFileName($self->session->form->process("'HttpProxy_'.$input_name"));
my $uploadFile = $self->session->request->tmpFileName($self->session->form->process('HttpProxy_'.$input_name));
if(-r $uploadFile) { # Found uploaded file
@formUpload=($uploadFile, qq/$self->session->form->process("'HttpProxy_'.$input_name")/);
@formUpload=($uploadFile, qq/$self->session->form->process('HttpProxy_'.$input_name)/);
$formdata{$input_name}=\@formUpload;
$contentType = 'form-data'; # Different Content Type header for file upload
} else {
$formdata{$input_name}=qq/$self->session->form->process("'HttpProxy_'.$input_name")/;
$formdata{$input_name}=qq/$self->session->form->process('HttpProxy_'.$input_name)/;
}
}
# Create POST request