@@ -102,7 +102,7 @@ sub HandleFeedback($) { my $dbh = DBI->connect("DBI:mysql:database=$mysql_db;host=$mysql_host", $mysql_user, $mysql_pass, {'RaiseError' => 1}); # Register the record - RegisterBounce($email, 'feedback-loop', $dbh); + RegisterBounce($email, 'feedback-loop', $dbh, 'soft'); exit(0) } email-processor/feedback-loop-processor.pl @@ -1,6 +1,6 @@ #------------------------------------------------------------------------------- sub RegisterBounce($$$) { - my ($email, $reason, $dbh) = @_; + my ($email, $reason, $dbh, $level) = @_; print "BOUNCE: $email with reason $reason\n"; my ($email_user, $email_domain) = split(/\@/, lc($email)); @@ -10,7 +10,7 @@ sub RegisterBounce($$$) { } my $domain_id = RegisterBounceDomain($email_domain, $dbh); - my $level = ($reason eq 'over_quota') ? 'soft' : 'hard'; + $level ||= ($reason eq 'over_quota') ? 'soft' : 'hard'; RegisterBounceEmail($email_user, $domain_id, $reason, $level, $dbh); } email-processor/lib/bounce_db.pm fa4bdd5c35a490318cabd73b6536d1f6ab5d5cac Alexey Kovyrin alexey@kovyrin.net http://github.com/kovyrin/bounces-handler/commit/260d22efa088cb283014296bd9c27dbe715fa32f 260d22efa088cb283014296bd9c27dbe715fa32f 2008-08-04T19:49:20-07:00 2008-08-04T19:49:20-07:00 feedback loops are soft failures' f02af416d0109686512ed3000d8c38ffc42382c0 Alexey Kovyrin alexey@kovyrin.net