commit aa52e29c471581005612ad6f95fd242d93d15071
parent d2eabbdefaf205667738eac23c45665567510034
Author: ukai <ukai>
Date: Sun, 27 Jan 2002 18:59:57 +0000
[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
From: Hironori Sakamoto <hsaka@mth.biglobe.ne.jp>
Diffstat:
2 files changed, 13 insertions(+), 7 deletions(-)
diff --git a/ChangeLog b/ChangeLog
@@ -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]
diff --git a/scripts/w3mmail.cgi.in b/scripts/w3mmail.cgi.in
@@ -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 $_;
}