diff options
| author | Fumitoshi UKAI <ukai@debian.or.jp> | 2002-11-11 15:50:28 +0000 |
|---|---|---|
| committer | Fumitoshi UKAI <ukai@debian.or.jp> | 2002-11-11 15:50:28 +0000 |
| commit | 7e6c94ea233816a72cb4af783cc918b639eb19b0 (patch) | |
| tree | 9773335458cc7b9e783466e1a2de41c5868051db /scripts | |
| parent | [w3m-dev 03408] fix Bug#87472: MOUSE_SCROLL_LINE should be a run-time option (diff) | |
| download | w3m-7e6c94ea233816a72cb4af783cc918b639eb19b0.tar.gz w3m-7e6c94ea233816a72cb4af783cc918b639eb19b0.zip | |
[w3m-dev 03408] edit From in w3mail.cgi
* scripts/w3mmail.cgi.in: edit from as well
From: AIDA Shinra <aida-s@jcom.home.ne.jp>
Diffstat (limited to 'scripts')
| -rwxr-xr-x | scripts/w3mmail.cgi.in | 21 |
1 files changed, 7 insertions, 14 deletions
diff --git a/scripts/w3mmail.cgi.in b/scripts/w3mmail.cgi.in index 8110130..a3fcaab 100755 --- a/scripts/w3mmail.cgi.in +++ b/scripts/w3mmail.cgi.in @@ -1,6 +1,6 @@ #!@PERL@ -$rcsid = q$Id: w3mmail.cgi.in,v 1.10 2002/01/30 04:27:32 ukai Exp $; +$rcsid = q$Id: w3mmail.cgi.in,v 1.11 2002/11/11 15:50:28 ukai Exp $; ($id = $rcsid) =~ s/^.*,v ([\d\.]*).*/$1/; ($prog=$0) =~ s/.*\///; @@ -46,13 +46,7 @@ if ($query =~ s/^\w+://) { print "<form action='file://$0' method='POST'>\n"; print "<input type='hidden' name='cookie' value='$local_cookie'>\n"; print "<table>\n"; - if ($opt{'from'}) { - $v = &lang_html_quote($opt{'from'}); - print "<tr><td>From:<td>$v\n"; - print "<input type='hidden' name='from' value=\"$v\">\n"; - delete $opt{'from'}; - } - foreach $h ('to', 'cc', 'bcc', 'subject') { + foreach $h ('from', 'to', 'cc', 'bcc', 'subject') { $v = &lang_html_quote($opt{$h}); print "<tr><td>\u$h:<td><input type='text' name=\"$h\" value=\"$v\">\n"; delete $opt{$h}; @@ -132,12 +126,7 @@ if ($query =~ s/^\w+://) { print "<input type='submit' name='action' value='Send'>\n"; print "<hr>\n"; print "<table>\n"; - if ($opt{'from'}) { - print "<tr><td>From:<td>$v{'from'}\n"; - print "<input type='hidden' name='from' value=\"$v{'from'}\">\n"; - delete $opt{'from'}; - } - foreach $h ('to', 'cc', 'bcc', 'subject') { + foreach $h ('from', 'to', 'cc', 'bcc', 'subject') { print "<tr><td>\u$h:<td><input type='text' name=\"$h\" value=\"$v{$h}\">\n"; delete $opt{$h}; } @@ -160,6 +149,10 @@ if ($query =~ s/^\w+://) { print "<input type='submit' name='action' value='Preview'><br>\n"; print "</body></html>\n"; } else { +# XXX: quote? +# if ($opt{'from'}) { +# $sendmail_fromopt = '-f' . $opt{'from'}; +# } unless (open(MAIL, "|$SENDMAIL $SENDMAIL_OPT")) { print "Content-Type: text/html\r\n"; print "\r\n"; |