[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>
|
2003-02-27 Hironori SAKAMOTO <hsaka@mth.biglobe.ne.jp>
|
||||||
|
|
||||||
* [w3m-dev 03784] ftp directory support
|
* [w3m-dev 03784] ftp directory support
|
||||||
@@ -7287,4 +7292,4 @@ a * [w3m-dev 03276] compile error on EWS4800
|
|||||||
* release-0-2-1
|
* release-0-2-1
|
||||||
* import w3m-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