w3m

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

commit 52e4af4e11a11e836ca2bb628cc9cb03f9b4b2dd
parent fbd367733b183fedebe8d2e176b0ffe749da7568
Author: ukai <ukai>
Date:   Sun, 20 Jan 2002 17:06:42 +0000

[w3m-dev 02876] w3mmail.cgi.in backport from w3mmee
* action='file://$0'
* don't add \n to $body's tail
* $body =~ s/\r+\n/\n/g;
* s/@cmd/@opt/
* url_unquote: + should be unquote too
From:  Fumitoshi UKAI  <ukai@debian.or.jp>

Diffstat:
MChangeLog | 9+++++++++
Mscripts/w3mmail.cgi.in | 9+++++----
2 files changed, 14 insertions(+), 4 deletions(-)

diff --git a/ChangeLog b/ChangeLog @@ -1,3 +1,12 @@ +2002-01-21 Fumitoshi UKAI <ukai@debian.or.jp> + + * [w3m-dev 02876] w3mmail.cgi.in backport from w3mmee + * action='file://$0' + * don't add \n to $body's tail + * $body =~ s/\r+\n/\n/g; + * s/@cmd/@opt/ + * url_unquote: + should be unquote too + 2002-01-18 Hironori Sakamoto <hsaka@mth.biglobe.ne.jp> * [w3m-dev 02873] delete "decode MIME-body" in doc{,-jp}/README diff --git a/scripts/w3mmail.cgi.in b/scripts/w3mmail.cgi.in @@ -35,7 +35,7 @@ if ($query =~ s/^\w+://) { print "\r\n"; print "<html><head><title>W3M Mailer: $qurl</title></head>\n"; print "<body><h1>W3M Mailer: $qurl</h1>\n"; - print "<form action='$0' method='POST'>\n"; + print "<form action='file://$0' method='POST'>\n"; print "<input type='hidden' name='cookie' value='$local_cookie'>\n"; print "<table>\n"; if ($opt{'from'}) { @@ -108,7 +108,7 @@ if ($query =~ s/^\w+://) { print "User-Agent: $ENV{'SERVER_SOFTWARE'} $prog/$id\n"; print "\n"; print $body; - print "\n"; + print "\n" if ($body !~ /\n$/); print "</pre>\n"; print "<input type='submit' name='action' value='Send'>\n"; print "<hr>\n"; @@ -256,6 +256,7 @@ sub conv_nkf { return nkf(@opt); } local($body) = pop(@opt); + $body =~ s/\r+\n/\n/g; $| = 1; pipe(R, W2); pipe(R2, W); @@ -265,7 +266,7 @@ sub conv_nkf { close(W); open(STDIN, "<&R2"); open(STDOUT, ">&W2"); - exec "nkf", @cmd; + exec "nkf", @opt; die; } close(R2); @@ -309,6 +310,6 @@ sub html_quote { sub url_unquote { local($_) = @_; - s/%([0-9A-Fa-f][0-9A-Fa-f])/chr(hex($1))/ge; + s/\+|%([0-9A-Fa-f][0-9A-Fa-f])/$& eq '+' ? ' ' : chr(hex($1))/ge; return $_; }