From d1876de5b6fe2c735a881887eb3827cf72c74fd1 Mon Sep 17 00:00:00 2001
From: Fumitoshi UKAI <ukai@debian.or.jp>
Date: Thu, 18 Jul 2002 13:12:07 +0000
Subject: [w3m-dev 03275] fix of multipart.cgi *
 scripts/multipart/multipart.cgi.in: check REQUEST_METHOD first 	
 		need $count for POST From: Hironori SAKAMOTO
 <hsaka@mth.biglobe.ne.jp>

---
 ChangeLog                          | 8 +++++++-
 scripts/multipart/multipart.cgi.in | 8 ++++----
 2 files changed, 11 insertions(+), 5 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index a434c9d..e477401 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2002-07-18  Hironori SAKAMOTO <hsaka@mth.biglobe.ne.jp>
+
+	* [w3m-dev 03275] fix of multipart.cgi
+	* scripts/multipart/multipart.cgi.in: check REQUEST_METHOD first
+					need $count for POST
+
 2002-07-18  Fumitoshi UKAI  <ukai@debian.or.jp>
 
 	* w3mimgdisplay.c (main): '5' for w3mimgsize
@@ -3610,4 +3616,4 @@
 	* release-0-2-1
 	* import w3m-0.2.1
 
-$Id: ChangeLog,v 1.408 2002/07/18 06:27:23 ukai Exp $
+$Id: ChangeLog,v 1.409 2002/07/18 13:12:07 ukai Exp $
diff --git a/scripts/multipart/multipart.cgi.in b/scripts/multipart/multipart.cgi.in
index 8792c7d..1c92d70 100644
--- a/scripts/multipart/multipart.cgi.in
+++ b/scripts/multipart/multipart.cgi.in
@@ -16,10 +16,10 @@ $MIME_TYPE = "$ENV{'HOME'}/.mime.types";
 $SCRIPT_NAME = $ENV{'SCRIPT_NAME'} || $0;
 $CGI = "file://$SCRIPT_NAME";
 
-if (defined($ENV{'QUERY_STRING'})) {
-	$query = $ENV{'QUERY_STRING'};
-} elsif ($ENV{'REQUEST_METHOD'} eq 'POST') {
+if ($ENV{'REQUEST_METHOD'} eq 'POST') {
 	sysread(STDIN, $query, $ENV{'CONTENT_LENGTH'});
+} elsif (defined($ENV{'QUERY_STRING'})) {
+	$query = $ENV{'QUERY_STRING'};
 }
 if (defined($query)) {
 	for (split('&', $query)) {
@@ -192,7 +192,7 @@ while(! $end) {
 		} else {
 			$name = "Content";
 		}
-		print "<form method=POST action=\"$qcgi\">\n";
+		print "<form method=POST action=\"$qcgi?$count\">\n";
 		print "<input type=hidden name=file value=\"$qfile\">\n";
 		print "<input type=hidden name=boundary value=\"$qboundary\">\n";
 		print "<input type=hidden name=count value=\"$count\">\n";
-- 
cgit v1.2.3