匿メール機能にログ機能を追加したい

質問

現在、c-boardというCGIを改造しています。
匿メール機能を悪用されないように
匿メール送信ログをとりたいと思い、書き換えを行っているのですが
どうもうまく記録されません。
もしお分かりになる方がおりましたらご教授ください。

cmd/hml.plの
#── ジャンプ
&BASE::location("$CNF::place{'this'}{'url'}?id=$::FORM{'id'}");
}
の下に
@mailnaiyou=($name, $email, $subject, $body, $host, $agent, $eznumber, $sbnumber, $imobilenumber, $imodeid);
open (OUT,">> /data/maillog.txt");
print OUT @mailnaiyou;
close (OUT);
を追加してdataフォルダ内に
maillog.txtを設置してみました。

回答No.1

aigaion · ベストアンサー

>どうもうまく記録されません。
具体的にどうなるのか欲しいところですね。

推測になりますが、それだとセパレータ無しで表示されるのでは？
$name = "hoge";
$email = "hoge@hoge.com";
hogehoge@hoge.com
みたいな感じになってしまうというのがうまく記録されないってことですかね？

foreach $tmp (@mailnaiyou){ print OUT $tmp . "<>";}
print OUT "\n";

とでもかくか

print OUT "$name<>$email<>$subject<>$body<>$host<>$agent<>$eznumber<>$sbnumber<>$imobilenumber<>$imodeid\n";

とかで行けませんか？