色々事情があって､OpenPNE の｢ﾒｯｾｰｼﾞを送る｣画面でﾒｯｾｰｼﾞ送信をすると､OpenPNE のﾕｰｻﾞのﾒｰﾙｱﾄﾞﾚｽに直接ﾒｰﾙを送信する機能を Perl で実装した｡
OpenPNE ではﾒｰﾙｱﾄﾞﾚｽは暗号化されているので､OpenPNE のｿｰｽを元に､以下のような復号化ｽｸﾘﾌﾟﾄを書いて復号を行った｡
#!/usr/local/bin/php
<?php
$address = $argv[1];
define('ENCRYPT_KEY', 'hogehoge_key');
$path ="/www/lib/include";
set_include_path(get_include_path() . PATH_SEPARATOR . $path);
include_once 'Crypt/Blowfish.php';
$blowfish = new Crypt_Blowfish(ENCRYPT_KEY);
$address = base64_decode($address);
$address = $blowfish->decrypt($address);
echo $address;
?>
で､不思議なことに､hogehoge3@exsample.co.jp宛のﾒｰﾙｱﾄﾞﾚｽにはﾒｰﾙが届くのに､hoge@exsample.co.jp宛には届かない｡
どちらも､ちゃんと存在しているﾒｰﾙｱﾄﾞﾚｽなのにだ｡
原因は､復号されたﾒｰﾙｱﾄﾞﾚｽにあった｡
どうも､上記のｽｸﾘﾌﾟﾄで復号すると､24ﾊﾞｲﾄ以下のﾒｰﾙｱﾄﾞﾚｽの後ろに 0x00 のｺｰﾄﾞ(NULL)がｾｯﾄされてた･･･
一応､後ろにｽﾍﾟｰｽがｾｯﾄされてたらやだなと思って､Perl 側で､
$address =~ s/\s//g;
な置換はかけてたんだけど､NULL値は \s じゃ引っかからんのね･･･
ということで､
$address =~ s/[\x00]//g;
として不要な NULL値を削ってやったら､問題なくﾒｰﾙが届くようになった｡
ああ､ほんまに､ﾗﾋﾟｯﾄﾞｻｲﾄｻｰﾊﾞは maillog が見れないんで駄目駄目ｻｰﾊﾞだ｡
独自のｼｽﾃﾑを動かしたい企業は､月数千円の金をｹﾁるのはやめて､WebARENA とかを使うべきである｡(･･･て話は､この間もしたな(^^;)