Bug fix for bounced.pl (2.7 and higher)

[Olivier Salaun - CRU <adresse@cachée>]

Since version 2.7, Sympa requires MIME::tools 5.x which presents 
incompatibilities with previous versions.

sympa.pl has been adapted but old pieces of code remain in bounced.pl ;
resulting that files are created (and not cleaned) by MIME::Parser
for each attachement in bounces. 
This can make Sympa and WWSympa much slower while going through lists.

Here is patch you should apply to correct this bug.
You might also need to do a bit of cleanup in ~sympa/expl/
, deleting msg-xxx.dat and other attachements.


--
Olivier Salaun
Comite Reseaux des Universites

*** bounced.pl.orig     Wed Jul 12 14:56:34 2000
--- bounced.pl  Mon Jul 10 17:37:34 2000
***************
*** 158,164 ****
            ## In this case return-path should has been set by sympa
              ## in order to recognize a welcome message bounce
            open BOUNCE, "$queue/$file";
!             my $parser = new MIME::Parser output_dir     => '/tmp', 
output_to_core => 'ALL';
            my $entity = $parser->read(\*BOUNCE);
            my $head = $entity->head;
            my $to = $head->get('to', 0);
--- 158,166 ----
            ## In this case return-path should has been set by sympa
              ## in order to recognize a welcome message bounce
            open BOUNCE, "$queue/$file";
! #            my $parser = new MIME::Parser output_dir     => '/tmp', 
output_to_core => 'ALL';
!           my $parser = new MIME::Parser;
!           $parser->output_to_core(1);
            my $entity = $parser->read(\*BOUNCE);
            my $head = $entity->head;
            my $to = $head->get('to', 0);
*** bounce-lib.pl.orig  Fri Jun 23 09:17:24 2000
--- bounce-lib.pl       Wed Jul 12 15:59:28 2000
***************
*** 14,21 ****
      $/ = "\n";
  
      my $nbrcpt;
!     my $parser = new MIME::Parser output_dir     => '/tmp'
!       , output_to_core => 'ALL';
   
      my $entity = $parser->read($fic);
  
--- 14,21 ----
      $/ = "\n";
  
      my $nbrcpt;
!     my $parser = new MIME::Parser;
!     $parser->output_to_core(1);
   
      my $entity = $parser->read($fic);