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

[w3m-dev 03753] Fixed multipart.cgi

Browse Source 
* scripts/multipart/multipart.cgi.in: remove w3m-control
		use input hidden
		add form_encode
From: Hironori SAKAMOTO <hsaka@mth.biglobe.ne.jp>
This commit is contained in:
Fumitoshi UKAI
2003-02-18 15:26:38 +00:00
parent 9c7639a170
commit dc59ad1784
2 changed files with 28 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
ChangeLog
View File

@@ -1,3 +1,10 @@
2003-02-19 Hironori SAKAMOTO <hsaka@mth.biglobe.ne.jp>
* [w3m-dev 03753] Fixed multipart.cgi
* scripts/multipart/multipart.cgi.in: remove w3m-control
use input hidden
add form_encode
2003-02-18 WATANABE Katsuyuki <knabe@sannet.ne.jp>
* [w3m-dev 03749] README.cygwin
@@ -7167,4 +7174,4 @@ a * [w3m-dev 03276] compile error on EWS4800
* release-0-2-1
* import w3m-0.2.1
$Id: ChangeLog,v 1.752 2003/02/17 16:02:04 ukai Exp $
$Id: ChangeLog,v 1.753 2003/02/18 15:26:38 ukai Exp $

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

@@ -77,7 +77,11 @@ if (defined($v{'count'})) {
$_ = &decode($_, $MIME_DECODE);
}
if (s/^(\S+)\s*:\s*//) {
$hbody .= "$&$_\n";
$h = $&;
if ($h =~ /^w3m-control/i) {
$h = "WARNING: $h";
}
$hbody .= "$h$_\n";
$p = $1;
$p =~ tr/A-Z/a-z/;
$header{$p} = $_;
@@ -192,9 +196,16 @@ while(! $end) {
} else {
$name = "Content";
}
print "<form action=\"$qcgi?file=$qfile&amp;boundary=$qboundary&amp;count=$count\">\n";
print "<form 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";
if ($image) {
print "<input type=image name=submit src=\"$qcgi?file=$qfile&amp;boundary=$qboundary&amp;count=$count\" alt=\"",
print "<input type=image name=submit src=\"$qcgi?file=",
&html_quote(&form_encode($file)),
"&amp;boundary=",
&html_quote(&form_encode($boundary)),
"&amp;count=$count\" alt=\"",
&html_quote($name), "\">\n";
} else {
print "<input type=submit name=submit value=\"",
@@ -268,6 +279,12 @@ sub form_decode {
return $_;
}
sub form_encode {
local($_) = @_;
s/[\000-\040\+:#?&%<>"\177-\377]/sprintf('%%%02X', unpack('C', $&))/eg;
return $_;
}
sub guess_type {
local($_) = @_;