bounced.pl avec postfix

[Christophe Labouisse <adresse@cachée>]

J'ai constaté que la version 0.6.3 de wwsympa ne permettait pas
l'analyse des bounces de Postfix. J'ai fait de (très) rapides
modifications à bounce-lib.pl et bounced.pl et ça à l'air de ne pas
trop mal fonctionner sur les quelques cas que j'ai testé.

Je me pose juste une question sur $type que j'ai mis "au hasard" à 43.

--- bounced.pl.org      Fri Jun 23 00:43:32 2000
+++ bounced.pl  Fri Jun 23 00:41:43 2000
@@ -26,6 +26,8 @@
              "sorry, no mailbox here by that name" => '5.1.1',
              "utilisateur non recensé dans le carnet d'adresses public" => 
'5.1.1',
              "unknown address" => '5.1.1',
+             "unknown user" => '5.1.1',
+             "550" => '5.1.1',
              "le nom du destinataire n'est pas reconnu" => '5.1.1',
              "user not listed in public name & address book" => '5.1.1',
              "no such address" => '5.1.1',
--- bounce-lib.pl.org   Fri Jun 23 00:20:55 2000
+++ bounce-lib.pl       Fri Jun 23 00:40:14 2000
@@ -890,6 +890,27 @@
             $info{$1}{error} = $2;
             $type = 42;
 
+         # Postfix dans le prochain paragraphe
+         }elsif (/^This is the Postfix program/m) {
+             $postfix = 1;
+        ## Rapport Postfix
+        }elsif ($postfix) {
+
+            undef $postfix if /THIS IS A WARNING/; # Pas la peine de le 
traiter
+
+            if (/^<(\S+)>:\s(.*)/m) {
+                ($addr,$error) = ($1,$2);
+
+                if ($error =~ /^host\s[^:]*said:\s(\d+)/) {
+                    $info{$addr}{error} = $1;
+                }
+                elsif ($error =~ /^([^:]+):/) {
+                    $info{$addr}{error} = $1;
+                }
+                $type = 43;
+
+            }
+            $/ = '';
         }
     }
 

-- 
Le cinéma en Lumière : http://www.lumiere.org/
Fingerprint : 4721 651D D309 B302 93E4  5D73 CC52 DF3A E7C7 86CF