diff options
Diffstat (limited to 'fml/lib')
| -rw-r--r-- | fml/lib/Mail/Bounce/Freeserve.pm | 20 | ||||
| -rw-r--r-- | fml/lib/Mail/Bounce/Language/Japanese.pm | 19 |
2 files changed, 30 insertions, 9 deletions
diff --git a/fml/lib/Mail/Bounce/Freeserve.pm b/fml/lib/Mail/Bounce/Freeserve.pm index 936fb7fb..95992afa 100644 --- a/fml/lib/Mail/Bounce/Freeserve.pm +++ b/fml/lib/Mail/Bounce/Freeserve.pm @@ -4,9 +4,12 @@ # All rights reserved. This program is free software; you can # redistribute it and/or modify it under the same terms as Perl itself. # -# $FML: Freeserve.pm,v 1.9 2002/12/20 03:49:16 fukachan Exp $ +# $FML: Freeserve.pm,v 1.1 2003/08/05 10:45:17 tmu Exp $ # +# +# *** CAUTION: THIS FILE CODE IS JAPANESE EUC. *** +# package Mail::Bounce::Freeserve; @@ -32,17 +35,18 @@ See C<Mail::Bounce> for more details. Message-Id: <200308051027.h75ARXb26220@fbe.freeserve.ne.jp> X-Loop: erroraddress@fbe.freeserve.ne.jp From: support@freeserve.ne.jp - Subject: 【freeserve管理メール】メールを受け取ることが出来ませんでした。 - - 【このメールはfreeserveシステムから自動的に送信されています】 + Subject: ... Japanese message ... - freeserveではメールボックスに容量制限があります。 - あなた様がメールを送ったfreeserveユーザーのメールボックスが制限値に達してお - り、お送りになったメールを受け取ることが出来ませんでした。 + ... Japanese message ... http://www.freeserve.ne.jp/ support@freeserve.ne.jp +X-Loop contains the address which causes this error. + +See L<Mail::Bounce::Language::Japanese> module for the Japanese +message. + =cut @@ -53,7 +57,7 @@ See C<Mail::Bounce> for more details. sub analyze { my ($self, $msg, $result) = @_; - my $hdr = $msg->whole_message_header(); + my $hdr = $msg->whole_message_header(); my $xloop = $hdr->get('x-loop'); if ($xloop =~ /^X-Loop:\s+([^\s\@]+@\S+\.freeserve\.ne\.jp)$/) { diff --git a/fml/lib/Mail/Bounce/Language/Japanese.pm b/fml/lib/Mail/Bounce/Language/Japanese.pm index 4e896bd3..ec5c8cce 100644 --- a/fml/lib/Mail/Bounce/Language/Japanese.pm +++ b/fml/lib/Mail/Bounce/Language/Japanese.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: Japanese.pm,v 1.6 2002/09/11 23:18:23 fukachan Exp $ +# $FML: Japanese.pm,v 1.7 2002/09/22 14:57:02 fukachan Exp $ # # @@ -59,6 +59,23 @@ See C<Mail::Bounce> for more details. あなたが送ろうとしたアドレス「*********」は、登録されていません。 もう一度確認して、送信しなおして下さい。 +=head2 freeserve.ne.jp + + To: nospam-ml-admin@ffs.fml.org + Message-Id: <200308051027.h75ARXb26220@fbe.freeserve.ne.jp> + X-Loop: erroraddress@fbe.freeserve.ne.jp + From: support@freeserve.ne.jp + Subject: 【freeserve管理メール】メールを受け取ることが出来ませんでした。 + + 【このメールはfreeserveシステムから自動的に送信されています】 + + freeserveではメールボックスに容量制限があります。 + あなた様がメールを送ったfreeserveユーザーのメールボックスが制限値に達してお + り、お送りになったメールを受け取ることが出来ませんでした。 + + http://www.freeserve.ne.jp/ + support@freeserve.ne.jp + =cut |