こんにちは、Wajettです。
現在のコードではメールが送信されているかどうかが、はっきりわからない部分があります。
ですので、メールが送信されないという場合は、次のような試験を行うことで原因を調べる手助けになる場合があると思われます。
app/lib/mailer.pl の 228行目あたりにある以下の部分を
#── 接続
&connect([map(${$_}{'address'}, @{$r_to})], $$from{'address'}, $mode, $sendmail, $smtp)
or return(0);
以下のように、
#── 接続
&connect([map(${$_}{'address'}, @{$r_to})], $$from{'address'}, $mode, $sendmail, $smtp)
or die("cannot connect to mail server!");
3行目を変更します。
これによりエラーが表示される場合は、メール送信に関する設定が間違っていて、サーバーのメール送信機能を使用できていないとうことになります。
エラーが出ない場合は、メール送信には成功しているがメールがなんらかの送信先へ理由で届いていないか、最初から送信機能が使用されていないということになります。