aboutsummaryrefslogtreecommitdiffstats
path: root/Bonus/utf8.cgi
diff options
context:
space:
mode:
Diffstat (limited to 'Bonus/utf8.cgi')
-rw-r--r--Bonus/utf8.cgi21
1 files changed, 21 insertions, 0 deletions
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;