From e83b18633719abbcfd87cad6749b4cd6e089cb1f Mon Sep 17 00:00:00 2001
From: Fumitoshi UKAI <ukai@debian.or.jp>
Date: Thu, 27 Feb 2003 15:14:40 +0000
Subject: [w3m-dev 03783] pipe to "command1 | command2" * Bonus/utf8.cgi: added
From: Hironori SAKAMOTO <hsaka@mth.biglobe.ne.jp>
---
Bonus/utf8.cgi | 21 +++++++++++++++++++++
1 file changed, 21 insertions(+)
create mode 100644 Bonus/utf8.cgi
(limited to 'Bonus')
diff --git a/Bonus/utf8.cgi b/Bonus/utf8.cgi
new file mode 100644
index 0000000..a21731e
--- /dev/null
+++ 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;
--
cgit v1.2.3