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

[w3m-dev 04104] w3mmail.cgi

Browse Source 
* scripts/w3mmail.cgi.in: strip ^M
From: SAKAI Kiyotaka <ksakai@kso.netwk.ntt-at.co.jp>
This commit is contained in:
Fumitoshi UKAI
2004-08-30 16:32:23 +00:00
parent 7d5328d6d8
commit 0b52d7d7d1
2 changed files with 8 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
ChangeLog
View File

@@ -1,3 +1,8 @@
2004-08-31 SAKAI Kiyotaka <ksakai@kso.netwk.ntt-at.co.jp>
* [w3m-dev 04104] w3mmail.cgi
* scripts/w3mmail.cgi.in: strip ^M
2004-08-17 Hiroyuki Ito <ZXB01226@nifty.com> 2004-08-17 Hiroyuki Ito <ZXB01226@nifty.com>
* [w3m-dev 04099] Re: w3m-img gtk2 * [w3m-dev 04099] Re: w3m-img gtk2
@@ -8569,4 +8574,4 @@ a * [w3m-dev 03276] compile error on EWS4800
* release-0-2-1 * release-0-2-1
* import w3m-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 $

3
scripts/w3mmail.cgi.in
View File

@@ -1,6 +1,6 @@
#!@PERL@ #!@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/; ($id = $rcsid) =~ s/^.*,v ([\d\.]*).*/$1/;
($prog=$0) =~ s/.*\///; ($prog=$0) =~ s/.*\///;
@@ -180,6 +180,7 @@ if ($query =~ s/^\w+://) {
} }
} }
($cs,$cte,$body) = &lang_body($body, 1); ($cs,$cte,$body) = &lang_body($body, 1);
$body =~ s/\r//g;
print MAIL "Mime-Version: 1.0\n"; print MAIL "Mime-Version: 1.0\n";
if ($boundary) { if ($boundary) {
print MAIL "Content-Type: multipart/form-data;\n"; print MAIL "Content-Type: multipart/form-data;\n";