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

[w3m-dev 02919] no need of width

Browse Source 
* scripts/w3mmail.cgi.in: no need width=80 for header field name
From: Hironori Sakamoto <hsaka@mth.biglobe.ne.jp>
This commit is contained in:
Fumitoshi UKAI
2002-01-28 14:44:56 +00:00
parent 4c805fe509
commit 796913920d
2 changed files with 13 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
ChangeLog
View File

@@ -1,3 +1,8 @@
2002-01-28 Hironori Sakamoto <hsaka@mth.biglobe.ne.jp>
* [w3m-dev 02919] no need of width
* scripts/w3mmail.cgi.in: no need width=80 for header field name
2002-01-28 Hironori Sakamoto <hsaka@mth.biglobe.ne.jp> 2002-01-28 Hironori Sakamoto <hsaka@mth.biglobe.ne.jp>
* [w3m-dev 02919] wrong table width calculation * [w3m-dev 02919] wrong table width calculation
@@ -2327,4 +2332,4 @@
* release-0-2-1 * release-0-2-1
* import w3m-0.2.1 * import w3m-0.2.1
$Id: ChangeLog,v 1.267 2002/01/28 14:42:30 ukai Exp $ $Id: ChangeLog,v 1.268 2002/01/28 14:44:56 ukai Exp $

14
scripts/w3mmail.cgi.in
View File

@@ -1,6 +1,6 @@
#!@PERL@ #!@PERL@
$rcsid = q$Id: w3mmail.cgi.in,v 1.6 2002/01/27 18:59:58 ukai Exp $; $rcsid = q$Id: w3mmail.cgi.in,v 1.7 2002/01/28 14:44:56 ukai Exp $;
($id = $rcsid) =~ s/^.*,v ([\d\.]*).*/$1/; ($id = $rcsid) =~ s/^.*,v ([\d\.]*).*/$1/;
($prog=$0) =~ s/.*\///; ($prog=$0) =~ s/.*\///;
@@ -40,19 +40,19 @@ if ($query =~ s/^\w+://) {
print "<table>\n"; print "<table>\n";
if ($opt{'from'}) { if ($opt{'from'}) {
$v = &lang_html_quote($opt{'from'}); $v = &lang_html_quote($opt{'from'});
print "<tr><td width=80>From:<td>$v\n"; print "<tr><td>From:<td>$v\n";
print "<input type='hidden' name='from' value=\"$v\">\n"; print "<input type='hidden' name='from' value=\"$v\">\n";
delete $opt{'from'}; delete $opt{'from'};
} }
foreach $h ('to', 'cc', 'bcc', 'subject') { foreach $h ('to', 'cc', 'bcc', 'subject') {
$v = &lang_html_quote($opt{$h}); $v = &lang_html_quote($opt{$h});
print "<tr><td width=80>\u$h:<td><input type='text' name=\"$h\" value=\"$v\">\n"; print "<tr><td>\u$h:<td><input type='text' name=\"$h\" value=\"$v\">\n";
delete $opt{$h}; delete $opt{$h};
} }
foreach $h (keys %opt) { foreach $h (keys %opt) {
$qh = &html_quote($h); $qh = &html_quote($h);
$v = &lang_html_quote($opt{$h}); $v = &lang_html_quote($opt{$h});
print "<tr><td width=80>\u$h:<td>$v\n"; print "<tr><td>\u$h:<td>$v\n";
print "<input type='hidden' name=\"$qh\" value=\"$v\">\n"; print "<input type='hidden' name=\"$qh\" value=\"$v\">\n";
} }
print "<tr><td colspan=2>\n"; print "<tr><td colspan=2>\n";
@@ -114,17 +114,17 @@ if ($query =~ s/^\w+://) {
print "<hr>\n"; print "<hr>\n";
print "<table>\n"; print "<table>\n";
if ($opt{'from'}) { if ($opt{'from'}) {
print "<tr><td width=80>From:<td>$v{'from'}\n"; print "<tr><td>From:<td>$v{'from'}\n";
print "<input type='hidden' name='from' value=\"$v\">\n"; print "<input type='hidden' name='from' value=\"$v\">\n";
delete $opt{'from'}; delete $opt{'from'};
} }
foreach $h ('to', 'cc', 'bcc', 'subject') { foreach $h ('to', 'cc', 'bcc', 'subject') {
print "<tr><td width=80>\u$h:<td><input type='text' name=\"$h\" value=\"$v{$h}\">\n"; print "<tr><td>\u$h:<td><input type='text' name=\"$h\" value=\"$v{$h}\">\n";
delete $opt{$h}; delete $opt{$h};
} }
foreach $h (keys %opt) { foreach $h (keys %opt) {
$qh = &html_quote($h); $qh = &html_quote($h);
print "<tr><td width=80>\u$qh:<td>$v{$h}\n"; print "<tr><td>\u$qh:<td>$v{$h}\n";
print "<input type='hidden' name=\"$qh\" value=\"$v\">\n"; print "<input type='hidden' name=\"$qh\" value=\"$v\">\n";
} }
print "<tr><td colspan=2>\n"; print "<tr><td colspan=2>\n";