k3cの日記： OOo2sylpheed.pl

同じことを考えるヒトはいるもので、<a href=http://www.thewildbeast.co.uk/sylpheed/>Sylpheed Patches</a>のページに、OpenOffice.orgのメール送付をSylpheedに渡すスクリプトOOo2sylpheed.plが紹介されている。

…なんだ、コマンドを叩いているのか(わら

というわけで実験。

#!/usr/bin/perl -w
die join( "\n", @ARGV ) . "\n";

というだけの簡単なスクリプトをツール→オプション→OpenOffice.org→ヘルパープログラム の標準E-mailプログラムのパスに指定し、プログラムをいろいろと変更してみる。

Evolutionの場合：
mailto:?attach=file:///tmp/sv37p.tmp/noname1.sxw

KMail：
--composer
--attach
file:///tmp/sv37p.tmp/noname0.sxw

Mozilla (Option 1)：
-compose
"attachment='file:///tmp/sv37p.tmp/noname2.sxw'"

Mozilla (Option 2)：
-compose
attachment='file:///tmp/sv37p.tmp/noname3.sxw'

Netscape (Option 1)：
-compose
"attachment='file:///tmp/sv37p.tmp/noname4.sxw'"

Netscape (Option 2)：
-compose
attachment='file:///tmp/sv37p.tmp/noname3.sxw'

…なんだ。MozillaとNetscapeはまるっきり同じじゃないですか。

ちなみに上で紹介したOOo2sylpheed.plはMozilla/NetscapeのOption 1にしか対応していないので、どれでも使えるようなスクリプトをフルスクラッチで自作。

#!/usr/bin/perl -w
#die join( "\n", @ARGV ) . "\n";
$file = pop @ARGV;
if ( $file =~ m#file://(/.*)['"]*$# ) {
    ( $file = $1 ) =~ s/%20/ /g;
} else {
    die "Couldn't find file name\n";
}
exec '/usr/bin/sylpheed', '--attach ', $file;
die "Sylpheed aborted: $!\n";

このスクリプトをどっか適当なところへ保存し、先のパスに指定してやれば、sylpheedが立ち上がる。
execの引数を配列にしたのは、変なエスケープを嫌っている。引数をごにょごにょしてやれば、他のメーラーだって使える。はず。