From 72f72d64a422d6628c4796f5c0bf2e508f134214 Mon Sep 17 00:00:00 2001
From: Tatsuya Kinoshita <tats@vega.ocn.ne.jp>
Date: Wed, 4 May 2011 16:05:14 +0900
Subject: Adding upstream version 0.5.1

---
 Bonus/utf8.cgi | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)
 create mode 100644 Bonus/utf8.cgi

(limited to 'Bonus/utf8.cgi')

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