[w3m-dev 03783] pipe to "command1 | command2"
* Bonus/utf8.cgi: added From: Hironori SAKAMOTO <hsaka@mth.biglobe.ne.jp>
This commit is contained in:
21
Bonus/utf8.cgi
Normal file
21
Bonus/utf8.cgi
Normal file
@@ -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 $
|
||||
|
Reference in New Issue
Block a user