r73293 - in /trunk/libmail-deliverystatus-bounceparser-perl: ./ debian/ lib/Mail/DeliveryStatus/ t/ t/corpus/

gregoa at users.alioth.debian.org gregoa at users.alioth.debian.org
Sat Apr 23 18:20:01 UTC 2011 

Author: gregoa
Date: Sat Apr 23 18:19:48 2011
New Revision: 73293

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=73293
Log:
New upstream release.

Added:
    trunk/libmail-deliverystatus-bounceparser-perl/t/boxbe.t
      - copied unchanged from r73291, branches/upstream/libmail-deliverystatus-bounceparser-perl/current/t/boxbe.t
    trunk/libmail-deliverystatus-bounceparser-perl/t/boxbe2.t
      - copied unchanged from r73291, branches/upstream/libmail-deliverystatus-bounceparser-perl/current/t/boxbe2.t
    trunk/libmail-deliverystatus-bounceparser-perl/t/corpus/badrcptto.msg
      - copied unchanged from r73291, branches/upstream/libmail-deliverystatus-bounceparser-perl/current/t/corpus/badrcptto.msg
    trunk/libmail-deliverystatus-bounceparser-perl/t/corpus/boxbe-cr.msg
      - copied unchanged from r73291, branches/upstream/libmail-deliverystatus-bounceparser-perl/current/t/corpus/boxbe-cr.msg
    trunk/libmail-deliverystatus-bounceparser-perl/t/corpus/boxbe-cr2.msg
      - copied unchanged from r73291, branches/upstream/libmail-deliverystatus-bounceparser-perl/current/t/corpus/boxbe-cr2.msg
    trunk/libmail-deliverystatus-bounceparser-perl/t/corpus/doesnotexist.msg
      - copied unchanged from r73291, branches/upstream/libmail-deliverystatus-bounceparser-perl/current/t/corpus/doesnotexist.msg
    trunk/libmail-deliverystatus-bounceparser-perl/t/corpus/doesnotexist2.msg
      - copied unchanged from r73291, branches/upstream/libmail-deliverystatus-bounceparser-perl/current/t/corpus/doesnotexist2.msg
    trunk/libmail-deliverystatus-bounceparser-perl/t/corpus/junkemailfilter.msg
      - copied unchanged from r73291, branches/upstream/libmail-deliverystatus-bounceparser-perl/current/t/corpus/junkemailfilter.msg
    trunk/libmail-deliverystatus-bounceparser-perl/t/corpus/no-message-collected.msg
      - copied unchanged from r73291, branches/upstream/libmail-deliverystatus-bounceparser-perl/current/t/corpus/no-message-collected.msg
    trunk/libmail-deliverystatus-bounceparser-perl/t/corpus/nomailbox.msg
      - copied unchanged from r73291, branches/upstream/libmail-deliverystatus-bounceparser-perl/current/t/corpus/nomailbox.msg
    trunk/libmail-deliverystatus-bounceparser-perl/t/corpus/quota-6.msg
      - copied unchanged from r73291, branches/upstream/libmail-deliverystatus-bounceparser-perl/current/t/corpus/quota-6.msg
    trunk/libmail-deliverystatus-bounceparser-perl/t/corpus/spam-rejection-uribl.msg
      - copied unchanged from r73291, branches/upstream/libmail-deliverystatus-bounceparser-perl/current/t/corpus/spam-rejection-uribl.msg
    trunk/libmail-deliverystatus-bounceparser-perl/t/corpus/spam-rejection10.msg
      - copied unchanged from r73291, branches/upstream/libmail-deliverystatus-bounceparser-perl/current/t/corpus/spam-rejection10.msg
    trunk/libmail-deliverystatus-bounceparser-perl/t/corpus/spam-rejection11.msg
      - copied unchanged from r73291, branches/upstream/libmail-deliverystatus-bounceparser-perl/current/t/corpus/spam-rejection11.msg
    trunk/libmail-deliverystatus-bounceparser-perl/t/corpus/spam-rejection12.msg
      - copied unchanged from r73291, branches/upstream/libmail-deliverystatus-bounceparser-perl/current/t/corpus/spam-rejection12.msg
    trunk/libmail-deliverystatus-bounceparser-perl/t/corpus/spam-rejection8.msg
      - copied unchanged from r73291, branches/upstream/libmail-deliverystatus-bounceparser-perl/current/t/corpus/spam-rejection8.msg
    trunk/libmail-deliverystatus-bounceparser-perl/t/corpus/spam-rejection9.msg
      - copied unchanged from r73291, branches/upstream/libmail-deliverystatus-bounceparser-perl/current/t/corpus/spam-rejection9.msg
    trunk/libmail-deliverystatus-bounceparser-perl/t/corpus/user-unknown-disabled.msg
      - copied unchanged from r73291, branches/upstream/libmail-deliverystatus-bounceparser-perl/current/t/corpus/user-unknown-disabled.msg
    trunk/libmail-deliverystatus-bounceparser-perl/t/corpus/user-unknown-not-active.msg
      - copied unchanged from r73291, branches/upstream/libmail-deliverystatus-bounceparser-perl/current/t/corpus/user-unknown-not-active.msg
    trunk/libmail-deliverystatus-bounceparser-perl/t/junkemailfilter.t
      - copied unchanged from r73291, branches/upstream/libmail-deliverystatus-bounceparser-perl/current/t/junkemailfilter.t
    trunk/libmail-deliverystatus-bounceparser-perl/t/no-message-collected.t
      - copied unchanged from r73291, branches/upstream/libmail-deliverystatus-bounceparser-perl/current/t/no-message-collected.t
    trunk/libmail-deliverystatus-bounceparser-perl/t/quota-6.t
      - copied unchanged from r73291, branches/upstream/libmail-deliverystatus-bounceparser-perl/current/t/quota-6.t
    trunk/libmail-deliverystatus-bounceparser-perl/t/spam-rejection-uribl.t
      - copied unchanged from r73291, branches/upstream/libmail-deliverystatus-bounceparser-perl/current/t/spam-rejection-uribl.t
    trunk/libmail-deliverystatus-bounceparser-perl/t/spam-rejection10.t
      - copied unchanged from r73291, branches/upstream/libmail-deliverystatus-bounceparser-perl/current/t/spam-rejection10.t
    trunk/libmail-deliverystatus-bounceparser-perl/t/spam-rejection11.t
      - copied unchanged from r73291, branches/upstream/libmail-deliverystatus-bounceparser-perl/current/t/spam-rejection11.t
    trunk/libmail-deliverystatus-bounceparser-perl/t/spam-rejection12.t
      - copied unchanged from r73291, branches/upstream/libmail-deliverystatus-bounceparser-perl/current/t/spam-rejection12.t
    trunk/libmail-deliverystatus-bounceparser-perl/t/spam-rejection8.t
      - copied unchanged from r73291, branches/upstream/libmail-deliverystatus-bounceparser-perl/current/t/spam-rejection8.t
    trunk/libmail-deliverystatus-bounceparser-perl/t/spam-rejection9.t
      - copied unchanged from r73291, branches/upstream/libmail-deliverystatus-bounceparser-perl/current/t/spam-rejection9.t
Modified:
    trunk/libmail-deliverystatus-bounceparser-perl/Changes
    trunk/libmail-deliverystatus-bounceparser-perl/MANIFEST
    trunk/libmail-deliverystatus-bounceparser-perl/debian/changelog
    trunk/libmail-deliverystatus-bounceparser-perl/lib/Mail/DeliveryStatus/BounceParser.pm
    trunk/libmail-deliverystatus-bounceparser-perl/lib/Mail/DeliveryStatus/Report.pm
    trunk/libmail-deliverystatus-bounceparser-perl/t/various-unknown.t

Modified: trunk/libmail-deliverystatus-bounceparser-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmail-deliverystatus-bounceparser-perl/Changes?rev=73293&op=diff
==============================================================================
--- trunk/libmail-deliverystatus-bounceparser-perl/Changes (original)
+++ trunk/libmail-deliverystatus-bounceparser-perl/Changes Sat Apr 23 18:19:48 2011
@@ -1,4 +1,16 @@
 Revision history for Perl extension Mail::DeliveryStatus::BounceParser.
+
+1.527   2011-04-07
+
+        add another spam detection case (mstevens)
+
+1.526   2011-04-01
+
+        more cases of over quota (mstevens)
+
+        misc. bug fixes (mstevens)
+
+        RJBS apologizes for the state of the git repository at tag 1.526
 
 1.525   2010-10-30
         (all changes by mstevens)
@@ -30,7 +42,7 @@
         Removed p_ms preprocessor (should be needed anymore)
         Fixed bug 21249 (extra \n causing message not to be parsed)
         Added test for above
-        
+
 1.516   Tue Sep 26 2006
         (most maintenance by William Yardley)
         fix manifest

Modified: trunk/libmail-deliverystatus-bounceparser-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmail-deliverystatus-bounceparser-perl/MANIFEST?rev=73293&op=diff
==============================================================================
--- trunk/libmail-deliverystatus-bounceparser-perl/MANIFEST (original)
+++ trunk/libmail-deliverystatus-bounceparser-perl/MANIFEST Sat Apr 23 18:19:48 2011
@@ -17,27 +17,37 @@
 t/aol-attachment.t
 t/aol-senderblock.t
 t/bluebottle.t
+t/boxbe.t
+t/boxbe2.t
 t/corpus/aol-senderblock.msg
 t/corpus/aol.attachment.msg
 t/corpus/aol.unknown.msg
 t/corpus/aol-vacation.msg
 t/corpus/att-via-sendmail.unknown.msg
+t/corpus/badrcptto.msg
 t/corpus/bluebottle.msg
+t/corpus/boxbe-cr.msg
+t/corpus/boxbe-cr2.msg
 t/corpus/comcast-via-sendmail.unknown.msg
 t/corpus/cox-via-sendmail.unknown.msg
 t/corpus/deactivated-mailbox.msg
 t/corpus/domino.unknown.msg
+t/corpus/doesnotexist.msg
+t/corpus/doesnotexist2.msg
 t/corpus/exchange.unknown.msg
 t/corpus/generic-postfix-via-sendmail.unknown.msg
 t/corpus/gmail-via-sendmail.unknown.msg
 t/corpus/hotmail-via-sendmail.unknown.msg
 t/corpus/iis-multiple-bounce.msg
+t/corpus/junkemailfilter.msg
 t/corpus/malformed-dns.msg
 t/corpus/mailbox-unknown.msg
 t/corpus/message-too-large.msg
 t/corpus/misidentified-recipient.msg
 t/corpus/msn-via-sendmail.unknown.msg
 t/corpus/no-such-domain.msg
+t/corpus/no-message-collected.msg
+t/corpus/nomailbox.msg
 t/corpus/non-autoreply.msg
 t/corpus/not-a-relay.msg
 t/corpus/novell-with-rhs.msg
@@ -53,6 +63,7 @@
 t/corpus/quota-3.msg
 t/corpus/quota-4.msg
 t/corpus/quota-5.msg
+t/corpus/quota-6.msg
 t/corpus/quota.msg
 t/corpus/relaying-denied.msg
 t/corpus/sendmail-host-unknown.msg
@@ -65,6 +76,12 @@
 t/corpus/spam-rejection5.msg
 t/corpus/spam-rejection6.msg
 t/corpus/spam-rejection7.msg
+t/corpus/spam-rejection8.msg
+t/corpus/spam-rejection9.msg
+t/corpus/spam-rejection10.msg
+t/corpus/spam-rejection11.msg
+t/corpus/spam-rejection12.msg
+t/corpus/spam-rejection-uribl.msg
 t/corpus/spam-with-badly-parsed-email.msg
 t/corpus/spam-with-image.msg
 t/corpus/spamassassin.msg
@@ -89,12 +106,16 @@
 t/corpus/rcpthosts.msg
 t/corpus/rcpt-dne.msg
 t/corpus/user-unknown-dne.msg
+t/corpus/user-unknown-disabled.msg
+t/corpus/user-unknown-not-active.msg
 t/autoreply.t
 t/email_addr_regex.t
 t/iis-multiple-bounce.t
+t/junkemailfilter.t
 t/malformed-dns.t
 t/message-too-large.t
 t/misidentified-recipient.t
+t/no-message-collected.t
 t/non-autoreply.t
 t/not-a-relay.t
 t/orig-message.t
@@ -108,6 +129,7 @@
 t/quota-3.t
 t/quota-4.t
 t/quota-5.t
+t/quota-6.t
 t/quota.t
 t/relaying-denied.t
 t/spam-bogus-email-in-report.t
@@ -119,6 +141,12 @@
 t/spam-rejection5.t
 t/spam-rejection6.t
 t/spam-rejection7.t
+t/spam-rejection8.t
+t/spam-rejection9.t
+t/spam-rejection10.t
+t/spam-rejection11.t
+t/spam-rejection12.t
+t/spam-rejection-uribl.t
 t/spam-with-image.t
 t/spamassassin.t
 t/spambouncer.t

Modified: trunk/libmail-deliverystatus-bounceparser-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmail-deliverystatus-bounceparser-perl/debian/changelog?rev=73293&op=diff
==============================================================================
--- trunk/libmail-deliverystatus-bounceparser-perl/debian/changelog (original)
+++ trunk/libmail-deliverystatus-bounceparser-perl/debian/changelog Sat Apr 23 18:19:48 2011
@@ -1,3 +1,9 @@
+libmail-deliverystatus-bounceparser-perl (1.527-1) UNRELEASED; urgency=low
+
+  * New upstream release.
+
+ -- gregor herrmann <gregoa at debian.org>  Sat, 23 Apr 2011 20:15:38 +0200
+
 libmail-deliverystatus-bounceparser-perl (1.525-1) unstable; urgency=low
 
   * New upstream release.

Modified: trunk/libmail-deliverystatus-bounceparser-perl/lib/Mail/DeliveryStatus/BounceParser.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmail-deliverystatus-bounceparser-perl/lib/Mail/DeliveryStatus/BounceParser.pm?rev=73293&op=diff
==============================================================================
--- trunk/libmail-deliverystatus-bounceparser-perl/lib/Mail/DeliveryStatus/BounceParser.pm (original)
+++ trunk/libmail-deliverystatus-bounceparser-perl/lib/Mail/DeliveryStatus/BounceParser.pm Sat Apr 23 18:19:48 2011
@@ -42,7 +42,7 @@
 use strict;
 use warnings;
 
-our $VERSION = '1.525';
+our $VERSION = '1.527';
 $VERSION = eval $VERSION;
 
 use MIME::Parser;
@@ -184,11 +184,25 @@
   }
 
   {
-    last unless $first_part->stringify_body =~ /Your server requires confirmation/;
+    last unless defined $first_part and $first_part->stringify_body =~ /Your server requires confirmation/;
     $self->log("Looks like a challenge/response autoresponse; ignoring.");
     $self->{type} = "Challenge / Response system autoreply";
     $self->{is_bounce} = 0;
     return $self;
+  }
+
+  {
+    last unless defined $first_part and $first_part->stringify_body =~ /Please add yourself to my Boxbe Guest List/;
+	$self->log("Looks like a challenge/response autoresponse; ignoring.");
+	$self->{type} = "Challenge / Response system autoreply";
+	$self->{is_bounce} = 0;
+  }
+
+  {
+    last unless defined $first_part and $first_part->stringify_body =~ /This\s+is\s+a\s+one-time\s+automated\s+message\s+to\s+confirm\s+that\s+you're\s+listed\s+on\s+my\s+Boxbe\s+Guest\s+List/;
+	$self->log("Looks like a challenge/response autoresponse; ignoring.");
+	$self->{type} = "Challenge / Response system autoreply";
+	$self->{is_bounce} = 0;
   }
 
   # we'll deem autoreplies to be usually less than a certain size.
@@ -322,8 +336,8 @@
       # see MIME::Entity regarding REPLACE
       my $orig_message_id = $orig_message->parts(0)->head->get("message-id");
       if ($orig_message_id) {
-        chomp $orig_message_id;
-        $self->log("extracted original message-id $orig_message_id from the original rfc822/message");
+		$orig_message_id =~ s/(\r|\n)*$//g;
+        $self->log("extracted original message-id [$orig_message_id] from the original rfc822/message");
       } else {
         $self->log("Couldn't extract original message-id from the original rfc822/message");
       }
@@ -404,7 +418,8 @@
       # Some MTAs send unsought delivery-status notifications indicating
       # success; others send RFC1892/RFC3464 delivery status notifications
       # for transient failures.
-      if (my $action = lc $report->get('Action')) {
+      if (defined $report->get('Action') and lc $report->get('Action')) {
+		my $action = lc $report->get('Action');
         $action =~ s/^\s+//;
         if ($action =~ s/^\s*([a-z]+)\b.*/$1/s) {
           # In general, assume that anything other than 'failed' is a
@@ -881,8 +896,8 @@
 
 Current maintainer: Ricardo SIGNES, E<lt>rjbs at cpan.orgE<gt>
 
-Massive contributions to the 1.5xx series were made by William Yardley.
-Ricardo mostly just helped out and managed releases.
+Massive contributions to the 1.5xx series were made by William Yardley and
+Michael Stevens.  Ricardo mostly just helped out and managed releases.
 
 =head1 COPYRIGHT AND LICENSE
 
@@ -925,7 +940,8 @@
     /User\s+mailbox\s+exceeds\s+allowed\s+size/i or
     /Mailbox\s+size\s+limit\s+exceeded/i or
     /message\s+size\s+\d+\s+exceeds\s+size\s+limit\s+\d+/i or
-    /max\s+message\s+size\s+exceeded/i
+    /max\s+message\s+size\s+exceeded/i or
+	/Benutzer\s+hat\s+zuviele\s+Mails\s+auf\s+dem\s+Server/i 
   ) {
     return "over_quota";
   }
@@ -962,7 +978,7 @@
     /account not activated/i or                         # usa.net
     /not\s+our\s+customer/i or                          # Comcast
     /doesn't handle mail for that user/i or             # mailfoundry
-    /Address\s+does\s+not\s+exist/i or
+    /$user_re\s+does\s+not\s+exist/i or
     /Recipient\s+<?$EMAIL_ADDR_REGEX>?\s+does\s+not\s+exist/i or
     /recipient\s+no\s+longer\s+on\s+server/i or # me.com
     /is\s+not\s+a\s+known\s+user\s+on\s+this\s+system/i or # cam.ac.uk
@@ -970,7 +986,12 @@
     /Mailbox\s+not\s+available/i or
     /No\s+mailbox\s+found/i or
     /<?$EMAIL_ADDR_REGEX>?\s+is\s+a\s+deactivated\s+mailbox/i or
-    /Recipient\s+does\s+not\s+exist\s+on\s+this\s+system/i
+    /Recipient\s+does\s+not\s+exist\s+on\s+this\s+system/i or
+	/user\s+mail-box\s+not\s+found/i or
+	/No\s+mail\s+box\s+available\s+for\s+this\s+user/i or
+	/User\s+\[\S+\]\s+does\s+not\s+exist/i or
+	/email\s+account\s+that\s+you\s+tried\s+to\s+reach\s+is\s+disabled/i or
+	/not\s+an\s+active\s+address\s+at\s+this\s+host/i
   ) {
     return "user_unknown";
   }
@@ -999,9 +1020,16 @@
     /Mail\s+appears\s+to\s+be\s+unsolicited/i or
     /Message\s+rejected\s+as\s+spam\s+by\s+Content\s+Filtering/i or
     /message\s+looks\s+like\s+SPAM\s+to\s+me/i or
+    /NOT\s+JUNKEMAILFILTER/i or
     /your\s+message\s+has\s+triggered\s+a\s+SPAM\s+block/i or
     /Spam\s+detected/i or
-    /Message\s+looks\s+like\s+spam/i
+    /Message\s+looks\s+like\s+spam/i or
+	/Message\s+content\s+rejected,\s+UBE/i or
+	/Blocked\s+using\s+spam\s+pattern/i or
+	/breaches\s+local\s+URIBL\s+policy/i or
+	/Your\s+email\s+had\s+spam-like\s+header\s+contents/i or
+	/detected\s+as\s+spam/i or
+	/Denied\s+due\s+to\s+spam\s+list/i
   ) {
     return "spam";
   }

Modified: trunk/libmail-deliverystatus-bounceparser-perl/lib/Mail/DeliveryStatus/Report.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmail-deliverystatus-bounceparser-perl/lib/Mail/DeliveryStatus/Report.pm?rev=73293&op=diff
==============================================================================
--- trunk/libmail-deliverystatus-bounceparser-perl/lib/Mail/DeliveryStatus/Report.pm (original)
+++ trunk/libmail-deliverystatus-bounceparser-perl/lib/Mail/DeliveryStatus/Report.pm Sat Apr 23 18:19:48 2011
@@ -1,6 +1,6 @@
 package Mail::DeliveryStatus::Report;
 
-our $VERSION = '1.525';
+our $VERSION = '1.527';
 $VERSION = eval $VERSION;
 
 use Mail::Header;

Modified: trunk/libmail-deliverystatus-bounceparser-perl/t/various-unknown.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmail-deliverystatus-bounceparser-perl/t/various-unknown.t?rev=73293&op=diff
==============================================================================
--- trunk/libmail-deliverystatus-bounceparser-perl/t/various-unknown.t (original)
+++ trunk/libmail-deliverystatus-bounceparser-perl/t/various-unknown.t Sat Apr 23 18:19:48 2011
@@ -1,7 +1,8 @@
 #!perl -wT
 use strict;
 
-use Test::More tests => 132;
+# Add 6 to this for each case you add to %files_and_responses
+use Test::More tests => 168;
 
 use Mail::DeliveryStatus::BounceParser;
 
@@ -135,6 +136,30 @@
 		"reason" => "550 Recipient does not exist on this system",
 		"smtp_code" => "550"
 	},
+	"badrcptto.msg" => {
+		"reason" => "553 sorry, badrcptto(user mail-box not found) (#5.7.1)",
+		"smtp_code" => "553",
+	},
+	"nomailbox.msg" => {
+		"reason" => "550 ** No mail box available for this user **",
+		"smtp_code" => "550",
+	},
+	"doesnotexist.msg" => {
+		"reason" => '550 User [recipient at example.net] does not exist',
+		"smtp_code" => "550",
+	},
+	"doesnotexist2.msg" => {
+		"reason" => "550 Recipient does not exist",
+		"smtp_code" => "550",
+	},
+	"user-unknown-disabled.msg" => {
+		"reason" => "550 5.2.1 The email account that you tried to reach is     disabled. t11si6005099wes.103",
+		"smtp_code" => "550",
+	},
+	"user-unknown-not-active.msg" => {
+		"reason" => '550-recipient at example.net is not an active address at this     host (invalid FreeUK 550 username)',
+		"smtp_code" => "550",
+		},
 );
 
 foreach my $file (keys %files_and_responses) {

More information about the Pkg-perl-cvs-commits mailing list