Re: message au demarrage

[Salaun - Comite Reseaux des Universites <adresse@cachée>]

> Je viens de mettre à jour sympa, sur Sun/Solaris 2.5.1.
> Passage de la V011 à la V1.3.1.

> Tout semble marcher. Cependant je reçois le message suivant au lancement de 
> sympa :
> 
> "my" variable $name masks earlier declaration in same scope at 
> /usr/local/bin/sympa/Commands.pm line 1028.
> "my" variable @reps masks earlier declaration in same scope at 
> /usr/local/bin/sympa/Commands.pm line 1512.

C'est juste un warning de Perl du à une double déclaration de variable.
Ci-dessous deux patchs (intégrés dans la 1.3.1-2), qui corrigent 
respectivement 
le warning pré-cité et un bug dans sympa.pl qui l'amenait à rejetter les
commandes et messages en provenance de domaines qui contenaient les chaines
"listserv" ou "sympa".


*** Commands.pm.orig    Thu Jul  2 15:01:38 1998
--- Commands.pm Mon Jul  6 15:08:18 1998
***************
*** 1025,1031 ****
        do_log('info', Msg(7, 225, 'EXPIRE %s %d %d from %s refused because 
unknown list'),
 $name, $d1 , $d2, $sender);
        return;
      }
!     my $name = "$list->{'name'}";
      my $file= "$queueexpire\/$name";
      my ($limitday,$confirmday,$proprio);
  
--- 1025,1031 ----
        do_log('info', Msg(7, 225, 'EXPIRE %s %d %d from %s refused because 
unknown list'),
 $name, $d1 , $d2, $sender);
        return;
      }
!     $name = "$list->{'name'}";
      my $file= "$queueexpire\/$name";
      my ($limitday,$confirmday,$proprio);
  


***************
*** 1509,1515 ****
      if (!opendir(DIR, ".")) {
        fatal_err(Msg(3, 1, "WHICH : Can't open dir %s: %m"), "."); ## No 
return.
      }
!     my @reps=( sort grep (-d,readdir(DIR)));
      closedir(DIR);
      
      print  Msg(6, 67, "Liste of your currents subscriptions");
--- 1509,1515 ----
      if (!opendir(DIR, ".")) {
        fatal_err(Msg(3, 1, "WHICH : Can't open dir %s: %m"), "."); ## No 
return.
      }
!     @reps=( sort grep (-d,readdir(DIR)));
      closedir(DIR);
      
      print  Msg(6, 67, "Liste of your currents subscriptions");


*** sympa.pl.orig       Wed Jul  1 14:47:29 1998
--- sympa.pl    Mon Jul  6 15:09:43 1998
***************
*** 254,260 ****
        do_log('notice', Msg(4, 8, 'Ignoring message without @'));
        return 0;
     }
!    if ($sender =~ /(mailer-daemon|sympa|listserv)/mio || $sender !~ /\@/om) 
{
        do_log('notice', Msg(4, 9, 'Ignoring message which would cause a 
loop'));
        return 0;
     }
--- 254,260 ----
        do_log('notice', Msg(4, 8, 'Ignoring message without @'));
        return 0;
     }
!    if ($sender =~ /^(mailer-daemon|sympa|listserv)/mio || $sender !~ 
/\@/om) {
        do_log('notice', Msg(4, 9, 'Ignoring message which would cause a 
loop'));
        return 0;
     }
***************
*** 410,416 ****
        do_log('notice', Msg(4, 8, 'Ignoring message without @'));
        return 0;
     }
!    if ($sender =~ /(mailer-daemon|sympa|listserv)/mio || $sender !~ /\@/om) 
{
        do_log('notice', Msg(4, 9, 'Ignoring message which would cause a 
loop'));
        return 0;
     }
--- 410,416 ----
        do_log('notice', Msg(4, 8, 'Ignoring message without @'));
        return 0;
     }
!    if ($sender =~ /^(mailer-daemon|sympa|listserv)/mio || $sender !~ 
/\@/om) {
        do_log('notice', Msg(4, 9, 'Ignoring message which would cause a 
loop'));
        return 0;
     }


--------------------------------------------------------------------------
Olivier SALAÜN      Comité Réseau des Universités      Tel: 02 99 84 71 27
                Campus de Beaulieu 35042 Rennes Cedex 

Sympa                                           http://listes.cru.fr/sympa/