storm/w3m
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

[w3m-dev 03275] fix of multipart.cgi

Browse Source 
* scripts/multipart/multipart.cgi.in: check REQUEST_METHOD first
				need $count for POST
From: Hironori SAKAMOTO <hsaka@mth.biglobe.ne.jp>
This commit is contained in:
Fumitoshi UKAI
2002-07-18 13:12:07 +00:00
parent bb05de2a9d
commit d1876de5b6
2 changed files with 11 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
ChangeLog
View File

@@ -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> 2002-07-18 Fumitoshi UKAI <ukai@debian.or.jp>
* w3mimgdisplay.c (main): '5' for w3mimgsize * w3mimgdisplay.c (main): '5' for w3mimgsize
@@ -3610,4 +3616,4 @@
* release-0-2-1 * release-0-2-1
* import w3m-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 $

8
scripts/multipart/multipart.cgi.in
View File

@@ -16,10 +16,10 @@ $MIME_TYPE = "$ENV{'HOME'}/.mime.types";
$SCRIPT_NAME = $ENV{'SCRIPT_NAME'} || $0; $SCRIPT_NAME = $ENV{'SCRIPT_NAME'} || $0;
$CGI = "file://$SCRIPT_NAME"; $CGI = "file://$SCRIPT_NAME";
if (defined($ENV{'QUERY_STRING'})) { if ($ENV{'REQUEST_METHOD'} eq 'POST') {
$query = $ENV{'QUERY_STRING'};
} elsif ($ENV{'REQUEST_METHOD'} eq 'POST') {
sysread(STDIN, $query, $ENV{'CONTENT_LENGTH'}); sysread(STDIN, $query, $ENV{'CONTENT_LENGTH'});
} elsif (defined($ENV{'QUERY_STRING'})) {
$query = $ENV{'QUERY_STRING'};
} }
if (defined($query)) { if (defined($query)) {
for (split('&', $query)) { for (split('&', $query)) {
@@ -192,7 +192,7 @@ while(! $end) {
} else { } else {
$name = "Content"; $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=file value=\"$qfile\">\n";
print "<input type=hidden name=boundary value=\"$qboundary\">\n"; print "<input type=hidden name=boundary value=\"$qboundary\">\n";
print "<input type=hidden name=count value=\"$count\">\n"; print "<input type=hidden name=count value=\"$count\">\n";