ガイドを送り返す仕組みを応用すると良いでしょう。デフォルトではテンプレー トのガイド案内が使われますが、各ＭＬのホームディレクトリに guide ファ イルをおけばそれを送り返してくれます。

「メールの内容にかかわらず常にガイドを送り返す」には、もうひとひねり必 要です。

このためには次のように HOOK で常に guide コマンドを実行するようにする とよいでしょう。なお通常の処理は行なわないようにしています。

$distribute_run_start_hook = q{

	# guide コマンドを呼び出します。
	# guide コマンドの内容は汎用のメールキューシステムに渡されます。
	use FML::Command;
	my $dispatch = new FML::Command;
	my $context  = $curproc->command_context_init("guide");
	$dispatch->guide($curproc, $context);

	# 通常の処理を行ないません。
	$curproc->stop_this_process();

};

# コマンドメールでも同じくガイドを送り返すように
$command_mail_run_start_hook = $distribute_run_start_hook;

$command_mail_run_start_hook = $distribute_run_start_hook;

前レシピに似ていますが、少し違います。

たとえば意見受付用のＭＬを考えてみましょう。 このＭＬに意見を送ってくれた人には、 とりあえずお礼の返事 「ご意見ありがとうございました。返事はしばらく待ってね。」を出し、 メールは関係者に配送します。 よって、 (1) だれでも投稿できて、 (2) お礼を常に出し、 (3) さらに普通のＭＬとして動作する、 ように設定します。

[config.cf]

article_post_restrictions = permit_anyone

=cut

$distribute_run_start_hook = q{
    my $cred   = $curproc->credential();
    my $sender = $cred->sender();

    # ＭＬのメンバーでないならガイドを送り返します。
    # ＭＬのメンバーに対しては普通のＭＬとなります。
    unless ($cred->is_member($sender)) { 

	# guide コマンドを呼び出します。
	use FML::Command;
	my $dispatch = new FML::Command;
	my $context  = $curproc->command_context_init("guide");
	$dispatch->guide($curproc, $context);
    }

};