間違った MIME Type の text/x-server-parsed-html を Firefox で読みたい

知人のかなり旧いホームページは、HTTP ヘッダの Content-Type に text/x-server-parsed-html が帰ってくるが、これは .htaccess 等の間違いとされるものらしく、Firefox も IE6 も HTML として処理してくれない。最初、Firefox のユーザー設定ファイルである mimeTypes.rdf をいじって個人的な解決を図ったが、調べるうちにどうも不可能であることがわかった。そこで、次善の策として、外部プログラムに URL を渡し、そこで適当な処理をほどこしてから、Firefox に戻して表示させることにした。

知人とは、今は申し訳なくも親交がなく、直してもらうよう交渉ができない。また、かなり旧いページで本人がこれからいきなり気付く、または、思い直すということも考えにくい。かといって、Firefox がそれだけのためにこれまで放っておいた機能を更新するとも思えないし、適当な add-on もなさそうだ。

よって、個人的に text/x-server-parsed-html を処理するしかないと考えた。

■	mimeTypes.rdf がなぜ使えないか

素直に考えれば、text/x-server-parsed-html を text/html の別名のように指定すればよさそうである。しかし、Firefox 内部で text/html として処理するように mimeTypes.rdf の handler を設定する方法が、どうもないらしい。NC:useSystemDefault とか、NC:handleInternal とか、それらしいものはあるのだが、試してみたところことごとく意図したようにはならなかった。

次に、「外部プログラム」として Firefox 自体を指定してしまう方向を考えた。確かにこれは可能だが、mimeTypes.rdf から呼び出されたプログラムの引数として渡されるのは(テンポラルに)ダウンロードされたファイルのみで、それを firefox に読ませた場合、相対リンクがサイトではなくファイルのディレクトリからの相対リンクになってしまい、すこぶる使い勝手が悪い。

「相対リンク」だけが問題なのだから、読んだあと HTML をいじって head 要素に base タグを足せば良いだけだということはわかる。しかし、 mimeTypes.rdf から呼ばれたプログラムは、元のリンクを知る方法がないようで、base に指定すべき URL を構成できないのである。環境変数も調べて見たが、情報がなかった。

Firefox の要望を出すべきところがわからなかったので、ここに書くが、今さらだが以下は是非実現して欲しい。

● mimeTypes.rdf からプログラムを呼び出すとき、環境変数(例えば、 MOZ_QUERY_URI)で、元の URL を渡して欲しい。第二引数などで指定されるようにするのは、他の Helper Application の妨げになるだろうから、環境変数として渡して欲しい。

ただ、mimeTypes.rdf 自体、手作業で触れるべきではないものと今はされているようだ。MIME Type に x- という接頭語が認められているのは、気軽に実験的フォーマットが足せるようにという配慮からだと思っていたのだが、もう随分前にそういう考え方は廃れていたのだろう。

■	Wget し base タグを足し Firefox に戻す

次善の策を考えた。HTML をいじって base を足して Firefox に表示させれば、まぁ、我慢できる範囲になるということは、mimeTypes.rdf をいじってる途中で悟ってきた。よって、外部アプリケーションを呼べる Firefox 拡張である launchy や JSActions にリンクを渡して、それで先のような処理をすれば十分であると想い致った。

そこで、そのような外部プログラムを Perl スクリプトで書いた。 wget_addbase_firefox.pl がそれである。以下その骨格である。

use File::Spec; use URI::file; use URI::Split qw(uri_split uri_join); our $FIREFOX = "c:/Program Files/Mozilla Firefox/firefox.exe"; our $WGET = "c:/cygwin/bin/wget.exe"; our $TMP = File::Spec->catfile($ENV{TEMP}, "wget_addbase_firefox_tmp.html"); die "Usage: $0 URL\n" if @ARGV < 1; my $URL = shift @ARGV; system($WGET, "-O", $TMP, $URL); open(FILE, "<", $TMP) or die $!; my $CONT = join("", <FILE>); close(FILE); if ($CONT =~ /(\<\s*head\s*\>)(.*)(\<\s*\/\s*head\s*\>)/is) { my $pre = $` . $1; my $post = $3 . $'; my $head = $2; if ($head !~ /\<\s*base\s*href/is) { my $base = $URL; my ($scheme, $auth, $path, $query, $frag) = uri_split($URL); if ($path !~ /\/$/) { $path =~ s/\/[^\/]*$/\//; } $base = uri_join($scheme, $auth, $path, $query, $frag); my $prenewline = ""; $prenewline = $1 if $head =~ /^(\n*)/s; $head = $prenewline .= "<base href=\"" . $base . "\" />\n" . $head; } $CONT = $pre . $head . $post; } open(FILE, ">", $TMP) or die $!; print FILE $CONT; close(FILE); my $TMPURI = URI::file->new_abs($TMP); system($FIREFOX, "-remote", "openURL($TMPURI, new-tab)");

元のファイルは、これに Cygwin 関係のバッドノウハウ(cygpath などの挙動が未だにおかしい！)が加わる。上の例でも Cygwin じゃない Firefox から Cygwin を使うため、wget をフルパスで指定したりといった痕跡がある。

やってることは wget したファイルの HTML ヘッダを調べて base タグがなければ足して、firefox に読み込ませるだけ。トイプログラムである。

今では libwww-perl のない Perl はないだろうから、wget を使わずとも LWP::UserAgent を使えば良いのだろうが、私は以前それすらない環境下にあったことがあり、すべてを Perl にするよりは shell スクリプトの替わりに Perl を使うという感覚も大事にしたいと思っているので、今回は wget を使うプログラムにした。Firefox も system で呼び出してるしね。

ちなみに、プログラムを呼ぶのに exec じゃなく system なのは、(昔の)マルチタスクじゃない Perl などで exec は失敗するが system なら成功するということがあった(ように覚えている)からである。

■	Launchy の設定

launchy を使う場合、launchy.xml に次のような application 要素を足す。

<?xml version="1.0" encoding="UTF-8"?> <configurations xmlns="http://launchy.mozdev.org/configurations"> ... <application> <label>Wget Addbase and Firefox</label> <type>1</type> <command>c:\Perl\bin\perl.exe</command> <!-- インストールした Perl スクリプトに応じて設定してください。--> <arguments>c:/Temp/wget_addbase_firefox.pl #1</arguments> </application> ... </configurations>

テストしたとき、どうも引数の関係からか、そのときは cygpath を使っていたからか、c:\cygwin\bin\perl.exe ではうまく動かなかった。よって、 ActivePerl のパスを指定している。(wget_addbase_firefox.pl は ActivePerl でも変更なく動く。)

使うときは、リンクのところでいちいち右クリックから launchy のところを呼び出さねばならない。まぁ、いつものことじゃないのでこのあたりがトレードオフなのかもしれない。

■	JSActions の設定

JSActions を使う場合は、これ用にインストールしたスクリプトが入っているフォルダの中の link というところの下に wget_addbase_firefox.js を置けばよい。特に変わったところはないが、以下のトイプログラムである。

// リンク先を wget で読み、base 情報を足して、firefox に戻す。 jsa_WgetAddbaseFirefox(); function jsa_WgetAddbaseFirefox() { var perlPath = "c:\\cygwin\\bin\\perl.exe"; // scriptPath はインストールした Perl スクリプトに応じて設定してください。 var scriptPath = "c:/Temp/wget_addbase_firefox.pl"; if(!_jsaCScript.context.onLink) return; var uri = _jsaCScript.context.link.href; _jsaCScript.exec(perlPath, scriptPath + " " + uri); }

これも、使うときは、リンクのところでいちいち右クリックから辿って呼び出さねばならない。

■

おまけ

ちなみに Cygwin ユーザであれば、Firefox も IE もダメとなっても、w3m なら可能であることもある。launcy から emacs-w3m を呼び出すには次のように launchy.xml に application 要素を足す。

<?xml version="1.0" encoding="UTF-8"?> <configurations xmlns="http://launchy.mozdev.org/configurations"> ... <application> <label>emacs-w3m</label> <type>1</type> <command>C:\Meadow\bin\gnudoitw.exe</command> <arguments>(w3m"#1"t)</arguments> </application> ... </configurations>

が、どうも w3m(w3mmee) もウチの環境ではそろそろガタが来ているらしく、最初に指定されたページしか読み込めなくなっていたりするのだが……。

■

参考

launchy や JSActions は、リンクしている本家サイトではなく、 Firefox のアドオン用サイトなどで手に入れたほうがいいのかな？

● 《MimeTypes.rdf - MozillaZine Knowledge Base》

更新：	2010-04-08
初公開：	2010年04月08日 23:19:50
最新版：	2010年04月09日 03:04:32