Francois Gouget : testbot/web: Let web pages decide whether to POST or GET the parameters.
Alexandre Julliard
julliard at winehq.org
Wed Mar 21 14:38:52 CDT 2018
Module: tools
Branch: master
Commit: 77b46bdca8caaaeade17e5e846f31e443843905c
URL: https://source.winehq.org/git/tools.git/?a=commit;h=77b46bdca8caaaeade17e5e846f31e443843905c
Author: Francois Gouget <fgouget at codeweavers.com>
Date: Wed Mar 21 05:26:09 2018 +0100
testbot/web: Let web pages decide whether to POST or GET the parameters.
Signed-off-by: Francois Gouget <fgouget at codeweavers.com>
Signed-off-by: Alexandre Julliard <julliard at winehq.org>
---
testbot/lib/ObjectModel/CGI/FormPage.pm | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/testbot/lib/ObjectModel/CGI/FormPage.pm b/testbot/lib/ObjectModel/CGI/FormPage.pm
index 7669067..1745ec8 100644
--- a/testbot/lib/ObjectModel/CGI/FormPage.pm
+++ b/testbot/lib/ObjectModel/CGI/FormPage.pm
@@ -44,6 +44,7 @@ sub _initialize($$$$)
$self->{PropertyDescriptors} = $PropertyDescriptors;
$self->{HasRequired} = !1;
$self->{ActionPerformed} = !1;
+ $self->{Method} = "post";
}
sub GetPropertyDescriptors($)
@@ -136,9 +137,9 @@ sub GenerateBody($)
sub GenerateFormStart($)
{
- #my ($self) = @_;
+ my ($self) = @_;
print "<form action='" . $ENV{"SCRIPT_NAME"} .
- "' method='post' enctype='multipart/form-data'>\n";
+ "' method='$self->{Method}' enctype='multipart/form-data'>\n";
}
sub GenerateFields($)
More information about the wine-cvs
mailing list