diff options
Diffstat (limited to '')
| -rw-r--r-- | Bonus/utf8.cgi | 21 | ||||
| -rw-r--r-- | ChangeLog | 7 |
2 files changed, 27 insertions, 1 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; @@ -1,3 +1,8 @@ +2003-02-28 Hironori SAKAMOTO <hsaka@mth.biglobe.ne.jp> + + * [w3m-dev 03783] pipe to "command1 | command2" + * Bonus/utf8.cgi: added + 2003-02-27 Hironori SAKAMOTO <hsaka@mth.biglobe.ne.jp> * [w3m-dev 03784] ftp directory support @@ -7287,4 +7292,4 @@ a * [w3m-dev 03276] compile error on EWS4800 * release-0-2-1 * import w3m-0.2.1 -$Id: ChangeLog,v 1.768 2003/02/26 17:37:58 ukai Exp $ +$Id: ChangeLog,v 1.769 2003/02/27 15:14:40 ukai Exp $ |