bug syslog : patch ; bug sympa.pid : une solution ?

[Olivier LACROIX <adresse@cachée>]

Bonjour.

Pour corriger le bug du syslog que je signalais hier, vous trouvez ci-dessous 
2 patchs : un pour Log.pm et un pour sympa.pl.
A noter que le patch pour sympa.pl corrige aussi une faute de frappe (ligne 
138, il est écrit faal_err à la place de fatal_err).

Maintenant un autre problème que je n'arrive pas à corriger : le PID mis dans 
le fichier sympa.pid est faux lorsque sympa tourne en tâche de fond. 
Quelqu'un 
aurait-il une solution ?


*** sympa.pl.orig	Wed Aug  6 16:26:52 1997
--- sympa.pl	Wed Aug  6 17:05:37 1997
***************
*** 70,75 ****
--- 70,77 ----
  }
  do_log('info', "Configuration file read") if ($opt_d);
  
+ init_log();
+ 
  ## The request address
  $req = "$myname-request\@$hostname";
  $sympa_auth = "$myname-auth\@$hostname";
***************
*** 135,143 ****
     ## No return.
  }
  unless (truncate(LCK, 0)) {
!    faal_err("Could not truncate $pidfile, exiting.");
     ## No return.
  }
  print LCK "$$\n";
  close(LCK);
  
--- 137,146 ----
     ## No return.
  }
  unless (truncate(LCK, 0)) {
!    fatal_err("Could not truncate $pidfile, exiting.");
     ## No return.
  }
+ 
  print LCK "$$\n";
  close(LCK);
  

*** Log.pm.orig	Wed Aug  6 16:22:24 1997
--- Log.pm	Wed Aug  6 17:01:15 1997
***************
*** 9,19 ****
  use Carp;
  
  @ISA = qw(Exporter);
! @EXPORT = qw(fatal_err do_log);
  
  
  ## RCS identification.
! my $id = '@(#)$Id: Log.pm,v 1.1 1997/07/04 18:04:04 sympa Exp $';
  
  sub fatal_err {
     my $m  = shift;
--- 9,19 ----
  use Carp;
  
  @ISA = qw(Exporter);
! @EXPORT = qw(fatal_err do_log init_log);
  
  
  ## RCS identification.
! my $id = '@(#)$Id: Log.pm,v 1.1 1997/07/04 18:04:04 sympa Exp $ ';
  
  sub fatal_err {
     my $m  = shift;
***************
*** 38,43 ****
--- 38,48 ----
        $m =~ s/%m/$errno/g;
        printf STDERR "$m\n", @_;
     }
+ }
+ 
+ sub init_log {
+     closelog;
+     openlog("sympa[$$]", 'ndelay', $main::log_facility);
  }
  
  openlog("sympa[$$]", 'ndelay', $main::log_facility);

 Olivier LACROIX

 C.I.R.I.L.
 Chateau du Montet      |  Tel   : +33 (0) 3-83-44-74-29
 Rue du Doyen Roubault  |  Fax   : +33 (0) 3-83-44-02-62
 F - 54500 VANDOEUVRE   |  email : adresse@cachée