diff options
| author | Fumitoshi UKAI <ukai@debian.or.jp> | 2003-02-27 15:14:40 +0000 |
|---|---|---|
| committer | Fumitoshi UKAI <ukai@debian.or.jp> | 2003-02-27 15:14:40 +0000 |
| commit | e83b18633719abbcfd87cad6749b4cd6e089cb1f (patch) | |
| tree | 1ae1cc121b7dba3ceaa3cac2a783f25894372720 /Bonus/utf8.cgi | |
| parent | [w3m-dev 03784] ftp directory support (diff) | |
| download | w3m-e83b18633719abbcfd87cad6749b4cd6e089cb1f.tar.gz w3m-e83b18633719abbcfd87cad6749b4cd6e089cb1f.zip | |
[w3m-dev 03783] pipe to "command1 | command2"
* Bonus/utf8.cgi: added
From: Hironori SAKAMOTO <hsaka@mth.biglobe.ne.jp>
Diffstat (limited to '')
| -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; |