WebMailPlusにCSV機能を追加する。

質問

WebLibertyさんのWebMailPlusは、
・UTF8
・添付ファイル可
・送信前確認　等々、
非常に気に行っているのですが、送信履歴をCSVでダウンロードできる機能が唯一追加で欲しいところです。

http://dbweb.0258.net/wiki.cgi?page=%A5%E1%A1%BC%A5%EB%A5%D5%A5%A9%A1%BC%A5%E0CGI%A4%CB%A5%C7%A1%BC%A5%BF%CA%DD%C2%B8%B5%A1%C7%BD%C4%C9%B2%C3

上のようなサイトも見つけましたので、その通りにやってみたはずなのですが、うまくいきません。
どなたかこの課題をクリアされた方や、わかる方がいらっしゃいましたら、教えていただけませんでようか。

回答No.1

axel_eye

>どなたかこの課題をクリアされた方や、わかる方がいらっしゃいましたら
ちょっと、意地悪い事いいますが、私の課題でもないですし、私はわかる人でもないです。

とりあえず、デバッグしました。
当方、Windows7 64bitです。
Apache 2.2.17(32bit)
PerlはActiveState Perl 5.12.3(32bit:x86)です。質問なされるときは、
一通り使ってるツールとかOS名とかバージョンを書いた方が答えが得られる可能性上がりますよ。

Web Mail Plusってのは、
http://www.web-liberty.net/download/mailplus/index.html
これですよね？

sendmailの変わりに、こちらの方のsendまね～る　というのを使わせて
頂きました。
http://xoops.hypweb.net/modules/mydownloads/viewcat.php?cid=1

ちなみに、CSV保存のサイトでは、『Web Mail Plus Ver 1.05』
と書かれていますが、Ver 1.05に合わせてますか？
こういう時は必ずVersion合わせないとどんな問題が出てもおかしくないですよ。
Version合わせられなかった時は、自分でエラーを解決するか、諦めるくらいの覚悟でないと。
当方も、Ver 1.07しか入手できませんでしたが、
上記のCSV保存のサイトのソースで、以下の部分を書き直して
とりあえずは、動くようになりました。
しかし、あくまでとりあえずです。

具体的には以下のようにします。
open CSV, ">>$init->{save_csv_file}";
#my $now = &get_now_s();
#print CSV $now."\t".$csv_data."\n";
print CSV $csv_data."\n";
close CSV;

このソースは、$nowという変数に、get_now_s()という関数の結果を入力し、
$now改行
$csv_data改行
というフォーマットで出力するものです。
が、現在(Ver 1.07)はget_now_s()と言う関数が無いんですね。
推測するに、nowという文字を使ってるので、日付とか時間とかが入るのでしょう。
perl標準の関数ではなく、Web Mail Plusを作られた方が定義した関数なのでしょう。

この関数を作ってあげるか、日付とか時間情報をPerlの標準関数を使って作ればいいと
思います。

標準関数で日付を取得する方法は、以下のサイトとかにありますので、
http://perl.misty.ne.jp/09.html
ご自身でPerlを勉強されて追加してみてはいかがでしょう。