diff options
| author | Tatsuya Kinoshita <tats@vega.ocn.ne.jp> | 2011-05-04 07:05:14 +0000 |
|---|---|---|
| committer | Tatsuya Kinoshita <tats@vega.ocn.ne.jp> | 2011-05-04 07:05:14 +0000 |
| commit | 72f72d64a422d6628c4796f5c0bf2e508f134214 (patch) | |
| tree | 0c9ea90cc53310832c977265521fb44db24a515e /Bonus/utf8.cgi | |
| parent | Adding upstream version 0.3 (diff) | |
| download | w3m-72f72d64a422d6628c4796f5c0bf2e508f134214.tar.gz w3m-72f72d64a422d6628c4796f5c0bf2e508f134214.zip | |
Adding upstream version 0.5.1upstream/0.5.1
Diffstat (limited to 'Bonus/utf8.cgi')
| -rw-r--r-- | Bonus/utf8.cgi | 21 |
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; |