Chapter 18. ヘッダの書き換え

ヘッダ情報は FML::Header クラスのオブジェクトに収納されています。 なお FML::Header は Mail::Header を継承しているので、 Mail::Header のメソッドは何でも利用可能です。

レシピ’s

1. Subject: に [elena:00100] のようなタグをつける
2. Subject: [elena:00100] の数字部分(00100)の桁数を変える
3. Subject: のタグの数字(00100)の0パディングをなくしたい (strftime(3) を参照)。
4. Subject: のタグを大文字にしたい。
5. Subject: のタグを小文字にしたい
6. Subject に [日付] というタグをつけたい。
7. Reply-To: を常に投稿用アドレスに強制変更する。
8. Reply-To: を送信者に設定する。
9. Reply-To: を「送信者 + ML」に設定する。
10. MLメンバーからの投稿であれば、 Reply-To: を「送信者+ML」に設定する。
11. To: と Cc: の中にある fml8 が管理しているMLのアドレスだけを Reply-To: に設定する。
12. 不要なヘッダフィールド X-Face: を消す
13. Sender: を X-Sender: にコピーする。
14. Received: を X-Received: へ移動する。
15. 元のメールに Reply-To: がなければ、そのままにしたい。
16. To: Cc: Reply-To: を全部そのまま素通しにする。
17. 記事の Message-ID: は元の値のまま通したい。
18. 記事に ML 独自の Message-ID: をつけたい
19. X-ML-Info: の内容を指定する。
20. レポートメールの Reply-To: を指定する。
21. 特定のヘッダだけを通したい
22. In-Reply-To: か References: を強制したい。
23. そもそも、あらゆるヘッダ書き換え処理を止めたい

1. Subject: に [elena:00100] のようなタグをつける

デフォルトではタグはつきません。 また fml8 ではタグを sprintf などで使われる形式で指定することになっています (strftime(3) を参照)。

[/var/spool/ml/elena/config.cf]

# タグをつけるルールを追加
article_header_rewrite_rules    +=      rewrite_article_subject_tag

# タグの数字を7桁へ設定
article_subject_tag = [$ml_name:%05d]

2. Subject: [elena:00100] の数字部分(00100)の桁数を変える

fml8 ではタグを sprintf 形式で指定することになっています (strftime(3) を参照)。 たとえば7桁なら %07 などとすればよいだけです。

[/var/spool/ml/elena/config.cf]

# タグをつけるルールを追加
article_header_rewrite_rules    +=      rewrite_article_subject_tag

# タグの数字を7桁へ設定
article_subject_tag = [$ml_name:%07d]

3. Subject: のタグの数字(00100)の0パディングをなくしたい (strftime(3) を参照)。

[/var/spool/ml/elena/config.cf]

# タグをつけるルールを追加
article_header_rewrite_rules    +=      rewrite_article_subject_tag


article_subject_tag = [$ml_name:%d]

4. Subject: のタグを大文字にしたい。

# タグをつけるルールを追加
article_header_rewrite_rules    +=      rewrite_article_subject_tag

article_subject_tag = [\U$ml_name\E:%05d]
(注意: この機能を使う場合には 2002/10/29 以降の snapshot を使ってください)。

5. Subject: のタグを小文字にしたい

Unix 上では、たいてい小文字を使うので、ML名前も小文字でしょう。 だから、普通は何もしなくても小文字のはずですが、 念のため、小文字を強制したいなら、次のようにしてください。

# タグをつけるルールを追加
article_header_rewrite_rules    +=      rewrite_article_subject_tag

article_subject_tag = [\L$ml_name\E:%05d]
(注意: この機能を使う場合には 2002/10/29 以降の snapshot を使ってください)。

6. Subject に [日付] というタグをつけたい。

YYYYMMDD (20060101) のような日付をつけたいなら、以下のようにして下さい。

$distribute_verify_request_start_hook = q{

        use POSIX; 
        my $yyyymmdd = strftime("[%Y%m%d]", localtime);
        $config->set('article_subject_tag', $yyyymmdd);

};
なお strftime(3) では様々なフォーマットが利用できます。 詳しくは Unix マニュアル strftime(3) を参照。

7. Reply-To: を常に投稿用アドレスに強制変更する。

次の HOOK を config.cf の最後(=cut 行より下側)に書いて下さい。

$article_header_rewrite_end_hook = q{
    my $ml = $config->{ article_post_address };
    $header->replace('Reply-To', $ml);
};
なおヘッダ書き換えルールに以下の命令を追加しても同じことが出来ます。
article_header_rewrite_rules += rewrite_reply_to_enforce_article_post_address

8. Reply-To: を送信者に設定する。

次の HOOK を config.cf の最後(=cut 行より下側)に書いて下さい。

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

    $header->replace('Reply-To', $sender);
};

9. Reply-To: を「送信者 + ML」に設定する。

次の HOOK を config.cf の最後(=cut 行より下側)に書いて下さい。

$article_header_rewrite_end_hook = q{
    my $ml     = $config->{ article_post_address };
    my $cred   = $curproc->credential();
    my $sender = $cred->sender();

    $header->replace('Reply-To', "$ml, $sender");
};

10. MLメンバーからの投稿であれば、 Reply-To: を「送信者+ML」に設定する。

次の HOOK を config.cf の最後(=cut 行より下側)に書いて下さい。

$article_header_rewrite_end_hook = q{
    my $ml     = $config->{ article_post_address };
    my $cred   = $curproc->credential();
    my $sender = $cred->sender();

    if ($cred->is_member($sender)) {
	$curproc->log("member");
	$header->replace('Reply-To', "$ml, $sender");
    }
};

11. To: と Cc: の中にある fml8 が管理しているMLのアドレスだけを Reply-To: に設定する。

説明しにくい動作ですが、 ようするに記事から自分の知らないアドレスを削除するということです。

ヘッダに書いてある全てのアドレスへ返信する人が多いので、 こういった動作が有用であることがあります。

設定は、だいぶ複雑ですが HOOK だけで実現できます。 次の HOOK を config.cf の最後(=cut 行より下側)に書いて下さい。

$article_header_rewrite_end_hook = q{
    my $to   = $header->get('to');
    my $cc   = $header->get('cc');
    my $addr = "$to, $cc";

    use Mail::Address;
    my (@addrlist) = Mail::Address->parse($addr);

    my $reply_to = '';
    for my $a (@addrlist) {
        my $_addr = $a->address;
        if ($curproc->is_fml8_managed_address($_addr)) {
            $reply_to .= $reply_to ? ", $_addr" : $_addr;
        }
    }

    $header->replace('Reply-To', $reply_to) if $reply_to;
};

12. 不要なヘッダフィールド X-Face: を消す

unsafe_header_fields  += x-face

13. Sender: を X-Sender: にコピーする。

投稿されたメールの Sender: を X-Sender: にコピーしておきます。 配送後、どこかで Sender: が変更されたとしても、オリジナルの送信者が 分かるということです。

もっとも Sender: をつけない人もいるので、 そういったメールに対しては対応できません。 Sender: がないなら From: を X-Sender: にコピーしておくといった 条件文も必要かもしれません。

$article_header_rewrite_end_hook = q{
   my $header   = $curproc->article_message_header();
   $header->add('X-Sender', $header->get('Sender'));
};

14. Received: を X-Received: へ移動する。

X-Received: へコピーした後で Received: を消します。

$article_header_rewrite_end_hook = q{
   my $header   = $curproc->article_message_header();
   $header->add('X-Received', $header->get('Received'));
   $header->delete('Received');
};

15. 元のメールに Reply-To: がなければ、そのままにしたい。

config.cf で

article_header_rewrite_rules    -=      rewrite_reply_to
としてください。

デフォルトでは Reply-To: のないメールヘッダに対し「Reply-To: 投稿用ア ドレス」が追加されます。これは $article_header_rewrite_rules にある rewrite_reply_to 命令によります。よって、これをルールから削除してしま えば「Reply-To: に対する書き換えルールが無効となる」というわけです。

16. To: Cc: Reply-To: を全部そのまま素通しにする。

前レシピと同じです。

To: と Cc: は元々素通しです。そのため config.cf で

article_header_rewrite_rules    -=      rewrite_reply_to
とするだけで十分です。

17. 記事の Message-ID: は元の値のまま通したい。

素通しがデフォルトの挙動ですので、なにもする必要はありません。

18. 記事に ML 独自の Message-ID: をつけたい

特殊な需要ですが、可能です。

[/var/spool/ml/elena/config.cf]

$article_header_rewrite_end_hook = q{
	my $header = $curproc->article_message_header();

	# Message-Id を生成 (この例は適当です)
	my $ml_name   = $config->{ ml_name };
	my $ml_domain = $config->{ ml_domain };
	my $new_id    = sprintf("%s-%d\@%s", $ml_name, $$, $ml_domain);

	# X-Message-Id にオリジナルの Message-Id をバックアップしておく
	$header->add('X-Message-Id', $header->get('Message-Id'));

	# Message-Id を入れ換える
	$header->replace('Message-Id', $new_id);
};

もともとは某MLで遊び心で始めた話が元ネタ。

19. X-ML-Info: の内容を指定する。

ようするにメールヘッダの値を強制指定します。

$article_header_rewrite_end_hook = q{
        my $header = $curproc->article_message_header();
        $header->replace('X-ML-Info', "oresama id");
};

20. レポートメールの Reply-To: を指定する。

未実装です。 現在の fml8 でも

outgoing_mail_header_reply_to = アドレス
でレポートメールの Reply-To: を指定できるのですが、 これは今の実装が間違っていますね _o_

21. 特定のヘッダだけを通したい

現状の fml8 では、次のような HOOK で実現するしかありません。


    $article_header_rewrite_end_hook = q{
	my $header       = $curproc->article_message_header();
	my (@tags)       = $header->tags();

	# 通したいヘッダフィールドを定義する 	
	my (@valid_tags) = qw(to from reply-to subject date message-id);

        for my $tag (@tags) {
            my $valid = 0;
          SCAN:
            for my $v (@valid_tags) {
                if ($tag =~ /^$v$/i) {
                    $valid = 1;
                    last SCAN;
                }
            }
            unless ($valid) {
                $header->delete($tag);
            }
        }
    };
設定変数で制御したいほど、需要があるでしょうか? あれば考えますが…

22. In-Reply-To: か References: を強制したい。

記事への返信であるにも関わらず In-Reply-To: も References: もないメー ルを送ってくる人が現実にいます。 これをされると、いくつかの問題が生じます。

第一に、メール間のスレッド関係が分からなくなるので見づらいです。 第二に、通常そういったメールは無い(少ない)ので、 そういったメールは「普通のメール」ではなく 「SPAM メール」などの可能性が高いとみなされます。

Subject に返事の印( Re: など)がなく、In-Reply-To: または References: ヘッダがないなら拒否する HOOK です。

    $article_post_verify_request_end_hook = q{
	my $header      = $curproc->incoming_message_header();
	my $subject     = $header->get('subject')     || '';
	my $in_reply_to = $header->get("In-Reply-To") || '';
	my $references  = $header->get("References")  || '';

	my $_subject = new Mail::Message::Subject $subject;
	if ($_subject->has_reply_tag()) {
	    unless ($in_reply_to || $references) {
		$curproc->log("reject invalid reply message");
		$curproc->stop_this_process();
		$curproc->policy_reject_this_message();
	    }
	}
    };
拒否した旨のメールを送信者へ送っています。 もしエラーメッセージを送信者に返さず単に無視するだけでいいなら policy_reject_this_message を policy_ignore_this_message にしてください。

23. そもそも、あらゆるヘッダ書き換え処理を止めたい

use_article_header_rewrite を no にして書き換え機能全体を止めて下さい。

[/var/spool/ml/elena/config.cf]

use_article_header_rewrite = no

fml 8.0 (fml-devel) project homepage is www.fml.org/software/fml8/.
fml 4.0 project homepage is www.fml.org/software/fml4/.
about one floppy bsd routers, see www.bsdrouter.org/.
other free softwares are found at www.fml.org/software/.

author's homepage is www.fml.org/home/fukachan/.
Also, visit nuinui's world :) at www.nuinui.net.

For questions about FML, e-mail <fml-bugs@fml.org>.