Bug 235265: Remove dumping of form parameters when an error occurs on edit*.cgi

patch by jouni
r=kiko,justdave
a=justdave

diff --git a/editcomponents.cgi b/editcomponents.cgi
index 1dc89925f0c6f6d11791e36ee1d9021c97d40683..e3dd19d697bef44bff95d306d7466d60e6ae3003 100755 (executable)
--- a/editcomponents.cgi
+++ b/editcomponents.cgi
@@ -823,6 +823,3 @@ if ($action eq 'update') {
 PutHeader("Error");
 print "I don't have a clue what you want.<BR>\n";
 
-foreach ( sort keys %::FORM) {
-    print "$_: $::FORM{$_}<BR>\n";
-}

diff --git a/editgroups.cgi b/editgroups.cgi
index b00b508534ab89160ceed25f45c5fc29dea1832c..a67aa54c1c799232d03f5d73ce294e129ca223f0 100755 (executable)
--- a/editgroups.cgi
+++ b/editgroups.cgi
@@ -640,8 +640,4 @@ if ($action eq 'update') {
 PutHeader("Error");
 print "I don't have a clue what you want.<BR>\n";
 
-foreach ( sort keys %::FORM) {
-    print "$_: $::FORM{$_}<BR>\n";
-}
-
 PutTrailer("<a href=editgroups.cgi>Try the group list</a>");

diff --git a/editmilestones.cgi b/editmilestones.cgi
index fccf7253362c937c41614b879553b0ba8a867292..1884975fddb93c4961b5b6f56c3367da1c4a3f3f 100755 (executable)
--- a/editmilestones.cgi
+++ b/editmilestones.cgi
@@ -562,6 +562,3 @@ if ($action eq 'update') {
 PutHeader("Error");
 print "I don't have a clue what you want.<BR>\n";
 
-foreach ( sort keys %::FORM) {
-    print "$_: $::FORM{$_}<BR>\n";
-}

diff --git a/editproducts.cgi b/editproducts.cgi
index 4c1bb5a8c78187593f92b4c77cd11493af825169..c6c2a94014b96d6eb9a9ed3903dade8939b938ca 100755 (executable)
--- a/editproducts.cgi
+++ b/editproducts.cgi
@@ -1137,7 +1137,3 @@ if ($action eq 'update') {
 
 PutHeader("Error");
 print "I don't have a clue what you want.<BR>\n";
-
-foreach ( sort keys %::FORM) {
-    print "$_: $::FORM{$_}<BR>\n";
-}

diff --git a/editusers.cgi b/editusers.cgi
index be5eca2decfd7c42f959aefd795932baafca525c..696b57ed96f7d16c47de46cc5150b34fed7dcdde 100755 (executable)
--- a/editusers.cgi
+++ b/editusers.cgi
@@ -883,7 +883,3 @@ if ($action eq 'update') {
 
 PutHeader("Error");
 print "I don't have a clue what you want.<BR>\n";
-
-foreach ( sort keys %::FORM) {
-    print "$_: $::FORM{$_}<BR>\n";
-}

diff --git a/editversions.cgi b/editversions.cgi
index 950d597a798fe752dac6b166b5e973d6dadb0f49..fb9d0527cfd6f405b6aa5e9a2ea43f3b53125e91 100755 (executable)
--- a/editversions.cgi
+++ b/editversions.cgi
@@ -556,7 +556,3 @@ if ($action eq 'update') {
 
 PutHeader("Error");
 print "I don't have a clue what you want.<BR>\n";
-
-foreach ( sort keys %::FORM) {
-    print "$_: $::FORM{$_}<BR>\n";
-}