diff options
| -rw-r--r-- | fml/lib/FML/Filter.pm | 13 | ||||
| -rw-r--r-- | fml/lib/FML/Process/Distribute.pm | 15 | ||||
| -rw-r--r-- | fml/share/message/euc-jp/error/reject_notice_preamble | 22 |
3 files changed, 45 insertions, 5 deletions
diff --git a/fml/lib/FML/Filter.pm b/fml/lib/FML/Filter.pm index 94ba9a4d..57ef3dd7 100644 --- a/fml/lib/FML/Filter.pm +++ b/fml/lib/FML/Filter.pm @@ -4,7 +4,7 @@ # All rights reserved. This program is free software; you can # redistribute it and/or modify it under the same terms as Perl itself. # -# $FML: Filter.pm,v 1.26 2003/05/09 13:09:15 tmu Exp $ +# $FML: Filter.pm,v 1.27 2003/05/13 03:49:55 fukachan Exp $ # package FML::Filter; @@ -249,6 +249,7 @@ sub article_filter_reject_notice my $msg = $curproc->incoming_message(); my $r = $msg_args->{ _arg_reason } || 'unknown'; my $type = $config->{article_filter_reject_notice_data_type} || 'string'; + my $size = 2048; # recipients my $list = @@ -256,6 +257,7 @@ sub article_filter_reject_notice my $rcpts = $curproc->convert_to_mail_address($list); $msg_args->{ recipient } = $rcpts; $msg_args->{ _arg_address } = $cred->sender(); + $msg_args->{ _arg_size } = $size; Log("filter notice: [ @$rcpts ]"); @@ -271,7 +273,14 @@ sub article_filter_reject_notice $curproc->reply_message($msg, $msg_args); } elsif ($type eq 'string') { - my $s = $msg->whole_message_as_str( { indent => ' ' } ); + my $s = $msg->whole_message_as_str( { + indent => ' ', + size => $size, + }); + my $r = "The first $size bytes of this message follows:"; + $curproc->reply_message_nl("error.reject_notice_preamble", + $r, + $msg_args); $curproc->reply_message(sprintf("\n\n%s", $s), $msg_args); } else { diff --git a/fml/lib/FML/Process/Distribute.pm b/fml/lib/FML/Process/Distribute.pm index 060579d2..e41ff67f 100644 --- a/fml/lib/FML/Process/Distribute.pm +++ b/fml/lib/FML/Process/Distribute.pm @@ -3,7 +3,7 @@ # Copyright (C) 2000,2001,2002,2003 Ken'ichi Fukamachi # All rights reserved. # -# $FML: Distribute.pm,v 1.113 2003/05/02 07:57:54 fukachan Exp $ +# $FML: Distribute.pm,v 1.114 2003/05/13 03:49:55 fukachan Exp $ # package FML::Process::Distribute; @@ -199,9 +199,11 @@ sub run my $sender = $curproc->{'credential'}->{'sender'}; my $data_type = $config->{post_restrictions_reject_notice_data_type} || 'string'; - my $msg_args = { + my $size = 2048; + my $msg_args = { _arg_address => $sender, recipient => $sender, + size => $size, }; my $eval = $config->get_hook( 'distribute_run_start_hook' ); @@ -239,7 +241,14 @@ sub run # send back deny request with the original message. my $msg = $curproc->incoming_message(); if ($data_type eq 'string') { - my $s = $msg->whole_message_as_str( { indent => ' ' } ); + my $s = $msg->whole_message_as_str( { + indent => ' ', + size => $size, + } ); + my $r = "The first $size bytes of this message follows:"; + $curproc->reply_message_nl("error.reject_notice_preamble", + $r, + $msg_args); $curproc->reply_message(sprintf("\n\n%s", $s), $msg_args); } else { diff --git a/fml/share/message/euc-jp/error/reject_notice_preamble b/fml/share/message/euc-jp/error/reject_notice_preamble new file mode 100644 index 00000000..ff7103de --- /dev/null +++ b/fml/share/message/euc-jp/error/reject_notice_preamble @@ -0,0 +1,22 @@ + +以下が、拒否されたメールの先頭 $_arg_size バイト分です。 + +[注意] + mime/multipart は"意図的に"使用しておりません。 + + たとえば、あなたのメールリーダ(MUA)が自動的に multipart を分解 + して読みこむような親切なソフトウエアである場合、知らないうちに + ウィルスに感染する可能性があります。 + + そういった可能性を少しでも減らすため、mime/multipart はわざと + 使用しておりません。 + +[注意] + もしかしたら、この知らせは「あなたが出した覚えのないメール」に + ついてのものかもしれません。 + + その場合、SPAM屋による偽造や、ウィルス等に感染したコンピュータ + から、あなたのメールアドレスを潟って出されたウィルスメールなど + の可能性があります。 + + 詳しくは以下のメールのヘッダを参照して下さい。 |