[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;
 | 
			
		||||
		Reference in New Issue
	
	Block a user