diff options
| -rw-r--r-- | ChangeLog | 8 | ||||
| -rwxr-xr-x | scripts/w3mmail.cgi.in | 16 |
2 files changed, 15 insertions, 9 deletions
@@ -1,3 +1,9 @@ +2002-01-28 Hironori Sakamoto <hsaka@mth.biglobe.ne.jp> + + * [w3m-dev 02918] fixed scripts/w3mmail.cgi.in + * scripts/w3mmail.cgi.in: add width=80 for header field name + * scripts/w3mmail.cgi.in (url_unquote): use pack instead of chr + 2002-01-27 Hironori Sakamoto <hsaka@mth.biglobe.ne.jp> * [w3m-dev 02914] @@ -2316,4 +2322,4 @@ * release-0-2-1 * import w3m-0.2.1 -$Id: ChangeLog,v 1.265 2002/01/26 17:24:01 ukai Exp $ +$Id: ChangeLog,v 1.266 2002/01/27 18:59:57 ukai Exp $ diff --git a/scripts/w3mmail.cgi.in b/scripts/w3mmail.cgi.in index 5602ee5..e888922 100755 --- a/scripts/w3mmail.cgi.in +++ b/scripts/w3mmail.cgi.in @@ -1,6 +1,6 @@ #!@PERL@ -$rcsid = q$Id: w3mmail.cgi.in,v 1.5 2002/01/21 15:56:13 ukai Exp $; +$rcsid = q$Id: w3mmail.cgi.in,v 1.6 2002/01/27 18:59:58 ukai Exp $; ($id = $rcsid) =~ s/^.*,v ([\d\.]*).*/$1/; ($prog=$0) =~ s/.*\///; @@ -40,19 +40,19 @@ if ($query =~ s/^\w+://) { print "<table>\n"; if ($opt{'from'}) { $v = &lang_html_quote($opt{'from'}); - print "<tr><td>From:<td>$v\n"; + print "<tr><td width=80>From:<td>$v\n"; print "<input type='hidden' name='from' value=\"$v\">\n"; delete $opt{'from'}; } foreach $h ('to', 'cc', 'bcc', 'subject') { $v = &lang_html_quote($opt{$h}); - print "<tr><td>\u$h:<td><input type='text' name=\"$h\" value=\"$v\">\n"; + print "<tr><td width=80>\u$h:<td><input type='text' name=\"$h\" value=\"$v\">\n"; delete $opt{$h}; } foreach $h (keys %opt) { $qh = &html_quote($h); $v = &lang_html_quote($opt{$h}); - print "<tr><td>\u$h:<td>$v\n"; + print "<tr><td width=80>\u$h:<td>$v\n"; print "<input type='hidden' name=\"$qh\" value=\"$v\">\n"; } print "<tr><td colspan=2>\n"; @@ -114,17 +114,17 @@ if ($query =~ s/^\w+://) { print "<hr>\n"; print "<table>\n"; if ($opt{'from'}) { - print "<tr><td>From:<td>$v{'from'}\n"; + print "<tr><td width=80>From:<td>$v{'from'}\n"; print "<input type='hidden' name='from' value=\"$v\">\n"; delete $opt{'from'}; } foreach $h ('to', 'cc', 'bcc', 'subject') { - print "<tr><td>\u$h:<td><input type='text' name=\"$h\" value=\"$v{$h}\">\n"; + print "<tr><td width=80>\u$h:<td><input type='text' name=\"$h\" value=\"$v{$h}\">\n"; delete $opt{$h}; } foreach $h (keys %opt) { $qh = &html_quote($h); - print "<tr><td>\u$qh:<td>$v{$h}\n"; + print "<tr><td width=80>\u$qh:<td>$v{$h}\n"; print "<input type='hidden' name=\"$qh\" value=\"$v\">\n"; } print "<tr><td colspan=2>\n"; @@ -310,6 +310,6 @@ sub html_quote { sub url_unquote { local($_) = @_; - s/\+|%([0-9A-Fa-f][0-9A-Fa-f])/$& eq '+' ? ' ' : chr(hex($1))/ge; + s/\+|%([0-9A-Fa-f][0-9A-Fa-f])/$& eq '+' ? ' ' : pack('c', hex($1))/ge; return $_; } |