[______TOC_______] [NEXT CHAPTER]
1 いろいろ

1.1	fmlのコマンドが送れるページの例
http://www.infosite.ne.jp/fml/ 

in fml-support: Count: 01585
From: Yuao Tanigawa <yuao@infonia.or.jp>
>   fmlのコマンドが送れるページを作ってみました。URLは

…


1.2	意見受付用アドレス?

意見受付用アドレスをMLでうけて、送ってきた人に「ご意見ありがとうござい
ました。返事はしばらく待ってね。」と自動で応答させる。

改造:
そのために投稿は誰でもOK。ただし、メンバー以外からの投稿はMLに流し、か
つ投稿者にguideファイルを返す(自動登録はしない)。

config.phの設定例 1:

### sample configuration ###
$PERMIT_POST_FROM              = "anyone";

# YOU CAN EDIT MANUALLY AFTER HERE.
$START_HOOK = q# 
   if (! &MailListMemberP($From_address)) { &GuideRequest(*Envelope);} 
#;


From: $MAIL_LIST
Subject: Thanks you for your mail


### sample configuration ###
$PERMIT_POST_FROM              = "anyone";


# YOU CAN EDIT MANUALLY AFTER HERE.
$RECRUIT_ACK_STATEMENT = "Thanks you for your mail";
$RECRUIT_ACK_FILE      = "$DIR/recruit_reply";

$START_HOOK = q#
    if (! &MailListMemberP($From_address)) {
	&DEFINE_FIELD_OF_REPORT_MAIL('From', $MAIL_LIST);
        &SendFile($From_address, $RECRUIT_ACK_STATEMENT, $RECRUIT_ACK_FILE);
    }
#;


1.3	配送するメールのMIME部分はDecodeしてしまいたい
../Japanese 2.0

では、配送するメールのMIME部分はDecodeしてしまいたい時はどうするか?
例えば、fml.pl の sub GetFieldsFromHeaderで

    if ($USE_LIBMIME && ($MailHeaders =~ /ISO\-2022\-JP/o)) {
        require 'libMIME.pl';
	$Summary_Subject = &DecodeMimeStrings($Summary_Subject);
    }

を

    if ($USE_LIBMIME && ($MailHeaders =~ /ISO\-2022\-JP/o)) {
        require 'libMIME.pl';
	$Summary_Subject = &DecodeMimeStrings($Summary_Subject);
	$MailBody = &DecodeMimeStrings($MailBody);
    }

で本文の任意の ISO-2022-JP で始まる部分だけをMIME decodeします


1.4	confirm の確認メッセージを MAINTAINER へ転送する

fml-support: 08960

Q: fml の自動登録のモードで confirmation をしているとします。この時、
confirm の確認メッセージは投稿者に対して返信されます。これを、管理者宛
に送信し、管理者が返信することにより登録が完了するような形にするにはど
うすれば良いでしょうか?


Q: 管理者宛に転送されるメール

  例(メール本文):

	confirm 200010302002481472410938048 Tomoyo Daidouji

を横取りして、管理者がこのメールへの返答を elena-ctl へ送ってあげると
いうことでいいんでしょうか?確かにそういうことはできないんですけど、
HOOK をつかえば横取りができます :-) そのメールに返事をすればOK 

$FML_EXIT_HOOK = q#
   if (! &MailListMemberP($From_address)) {
        $Envelope{'message:h:to'} = $MAINTAINER;
   }
#;

[______TOC_______] [NEXT CHAPTER]