w3m

commit 5311b73dfcae7842ade4edede0483feda2c23bfe
parent a86050e9b7e17c1143a7de26de71ddcd94fc68bc
Author: ukai <ukai>
Date:   Thu, 27 Feb 2003 15:14:40 +0000

[w3m-dev 03783] pipe to "command1 | command2"
* Bonus/utf8.cgi: added
From: Hironori SAKAMOTO <hsaka@mth.biglobe.ne.jp>

Diffstat:
A
Bonus/utf8.cgi
 | 
21
+++++++++++++++++++++
M
ChangeLog
 | 
5
+++++

2 files changed, 26 insertions(+), 0 deletions(-)
diff --git a/Bonus/utf8.cgi b/Bonus/utf8.cgi
@@ -0,0 +1,21 @@
+#!/usr/bin/perl
+#
+# [w3m-dev 03783]
+# Install it in $LIB/utf8.cgi and configure keymap as
+#   keymap  "x u"   GOTO file:/$LIB/utf8.cgi
+#
+$conv = "lv -Iu -Oe";
+# $conv = "iconv -f UTF-8 -t EUC-JP";
+$type = $ENV{W3M_TYPE} || "text/plain";
+$url = $ENV{W3M_URL};
+$file = $ENV{W3M_SOURCEFILE};
+-f $file || exit;
+$| = 1;
+print <<EOF;
+Content-Type: $type; charset=EUC-JP
+
+EOF
+if ($type =~ /^text\/html/i && $url) {
+	print "<BASE HREF=\"$url\">\n";
+}
+exec split(" ", $conv), $file;
diff --git a/ChangeLog b/ChangeLog
@@ -1,3 +1,8 @@
+2003-02-28  Hironori SAKAMOTO <hsaka@mth.biglobe.ne.jp>
+
+	* [w3m-dev 03783] pipe to "command1 | command2"
+	* Bonus/utf8.cgi: added
+
 2003-02-27  Hironori SAKAMOTO <hsaka@mth.biglobe.ne.jp>
 
 	* [w3m-dev 03784] ftp directory support