diff options
| author | Fumitoshi UKAI <ukai@debian.or.jp> | 2004-08-30 16:32:23 +0000 |
|---|---|---|
| committer | Fumitoshi UKAI <ukai@debian.or.jp> | 2004-08-30 16:32:23 +0000 |
| commit | 0b52d7d7d1dac41171d460aaa50c8c3e98761811 (patch) | |
| tree | 82bf19d9cc8de967004cdae1cdf95a97ce9ba89f /scripts/w3mmail.cgi.in | |
| parent | [w3m-dev 04099] Re: w3m-img gtk2 (diff) | |
| download | w3m-0b52d7d7d1dac41171d460aaa50c8c3e98761811.tar.gz w3m-0b52d7d7d1dac41171d460aaa50c8c3e98761811.zip | |
[w3m-dev 04104] w3mmail.cgi
* scripts/w3mmail.cgi.in: strip ^M
From: SAKAI Kiyotaka <ksakai@kso.netwk.ntt-at.co.jp>
Diffstat (limited to 'scripts/w3mmail.cgi.in')
| -rwxr-xr-x | scripts/w3mmail.cgi.in | 3 |
1 files changed, 2 insertions, 1 deletions
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"; |