From 91939e691d785f7014e21056a627ae54685c5947 Mon Sep 17 00:00:00 2001
From: Fumitoshi UKAI <ukai@debian.or.jp>
Date: Sun, 27 Jan 2002 18:59:57 +0000
Subject: [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>

---
 scripts/w3mmail.cgi.in | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

(limited to 'scripts')

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 $_;
 }
-- 
cgit v1.2.3