From 0b52d7d7d1dac41171d460aaa50c8c3e98761811 Mon Sep 17 00:00:00 2001 From: Fumitoshi UKAI Date: Mon, 30 Aug 2004 16:32:23 +0000 Subject: [w3m-dev 04104] w3mmail.cgi * scripts/w3mmail.cgi.in: strip ^M From: SAKAI Kiyotaka --- ChangeLog | 7 ++++++- scripts/w3mmail.cgi.in | 3 ++- 2 files changed, 8 insertions(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index 5ae38aa..b00c220 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2004-08-31 SAKAI Kiyotaka + + * [w3m-dev 04104] w3mmail.cgi + * scripts/w3mmail.cgi.in: strip ^M + 2004-08-17 Hiroyuki Ito * [w3m-dev 04099] Re: w3m-img gtk2 @@ -8569,4 +8574,4 @@ a * [w3m-dev 03276] compile error on EWS4800 * release-0-2-1 * import w3m-0.2.1 -$Id: ChangeLog,v 1.936 2004/08/16 16:56:39 ukai Exp $ +$Id: ChangeLog,v 1.937 2004/08/30 16:32:23 ukai Exp $ diff --git a/scripts/w3mmail.cgi.in b/scripts/w3mmail.cgi.in index 670f26c..02fabd8 100755 --- a/scripts/w3mmail.cgi.in +++ b/scripts/w3mmail.cgi.in @@ -1,6 +1,6 @@ #!@PERL@ -$rcsid = q$Id: w3mmail.cgi.in,v 1.13 2003/09/22 21:02:29 ukai Exp $; +$rcsid = q$Id: w3mmail.cgi.in,v 1.14 2004/08/30 16:32:24 ukai Exp $; ($id = $rcsid) =~ s/^.*,v ([\d\.]*).*/$1/; ($prog=$0) =~ s/.*\///; @@ -180,6 +180,7 @@ if ($query =~ s/^\w+://) { } } ($cs,$cte,$body) = &lang_body($body, 1); + $body =~ s/\r//g; print MAIL "Mime-Version: 1.0\n"; if ($boundary) { print MAIL "Content-Type: multipart/form-data;\n"; -- cgit v1.2.3