[PATCH 1/2] testbot/web: Let web pages decide whether to POST or GET the parameters.

[Francois Gouget]

Signed-off-by: Francois Gouget 
---
 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 7669067f1..1745ec87b 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($)