w3m

Unnamed repository; edit this file to name it for gitweb.
git clone https://logand.com/git/w3m.git/
Log | Files | Refs | README

commit 018fbd477d2c150e65d08aef49053bd625e7feb6
parent b17b218ec301c3fbef0eca584d0342fe3c8c2913
Author: ukai <ukai>
Date:   Wed, 30 Jan 2002 04:42:38 +0000

[w3m-dev 02931] use POST in multipart.cgi
* scripts/multipart/multipart.cgi.in: support POST method
From: Hironori Sakamoto <hsaka@mth.biglobe.ne.jp>

Diffstat:
MChangeLog | 5+++++
Mscripts/multipart/multipart.cgi.in | 30+++++++++++++++++++++++-------
2 files changed, 28 insertions(+), 7 deletions(-)

diff --git a/ChangeLog b/ChangeLog @@ -1,5 +1,10 @@ 2002-01-30 Hironori Sakamoto <hsaka@mth.biglobe.ne.jp> + * [w3m-dev 02931] use POST in multipart.cgi + * scripts/multipart/multipart.cgi.in: support POST method + +2002-01-30 Hironori Sakamoto <hsaka@mth.biglobe.ne.jp> + * [w3m-dev 02930] Re: fixed w3mmail.cgi * scripts/w3mmail.cgi.in (lang_header_default): [=_?] should be encoded * scripts/w3mmail.cgi.in (lang_body_default): '=' should be encoded diff --git a/scripts/multipart/multipart.cgi.in b/scripts/multipart/multipart.cgi.in @@ -13,8 +13,16 @@ if (! $@) { } $MIME_TYPE = "$ENV{'HOME'}/.mime.types"; +$SCRIPT_NAME = $ENV{'SCRIPT_NAME'} || $0; +$CGI = "file://$SCRIPT_NAME"; + if (defined($ENV{'QUERY_STRING'})) { - for (split('&', $ENV{'QUERY_STRING'})) { + $query = $ENV{'QUERY_STRING'}; +} elsif ($ENV{'REQUEST_METHOD'} eq 'POST') { + sysread(STDIN, $query, $ENV{'CONTENT_LENGTH'}); +} +if (defined($query)) { + for (split('&', $query)) { s/^([^=]*)=//; $v{$1} = $_; } @@ -25,7 +33,6 @@ if (defined($ENV{'QUERY_STRING'})) { if (@ARGV >= 2) { $boundary = $ARGV[1]; } - $CGI = "file:///\$LIB/multipart.cgi?file=" . &html_quote($file); } open(F, "< $file"); @@ -48,7 +55,6 @@ if (defined($boundary)) { $mbody .= "$_\n"; } } -$CGI .= "&boundary=" . &html_quote($boundary); if (defined($v{'count'})) { $count = 0; @@ -112,6 +118,10 @@ if (defined($v{'count'})) { exit; } +$qcgi = &html_quote($CGI); +$qfile = &html_quote($file); +$qboundary = &html_quote($boundary); + if ($mbody =~ /\S/) { $_ = $mbody; s/\&/\&amp;/g; @@ -172,14 +182,20 @@ while(! $end) { s/\>/\&gt;/g; print "<pre>\n"; print $_; + print "\n</pre>\n"; if ($type =~ /name=\"?([^\"]+)\"?/ || $dispos =~ /filename=\"?([^\"]+)\"?/) { $name = $1; } else { - $name = "[Content]"; + $name = "Content"; } - print "\n<a href=\"$CGI&count=$count\">", &html_quote($name), "</a>"; - print "\n\n</pre>\n"; + print "<form method=POST action=\"$qcgi\">\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"; + print "<input type=submit name=submit value=\"", + &html_quote($name), "\">\n"; + print "</form>\n" } if ($plain) { $body = &decode($body, $CONV); @@ -187,7 +203,7 @@ while(! $end) { s/\&/\&amp;/g; s/\</\&lt;/g; s/\>/\&gt;/g; - print "<pre>\n"; + print "<pre>\n\n"; print $_; print "</pre>\n"; }