Re: Sympa : la derniere beta (?)

[Christophe Wolfhugel <adresse@cachée>]

Olivier LACROIX :
> Il reste le problème du numéro de processus dans le fichier sympa.pid. 
> Cette valeur sera toujours fausse tant que le fork se fera après l'écriture 
> de ce numéro.

Beuha, tu as raison. Patch ci-après, ainsi qu'un bug de modération.

-- 
Christophe Wolfhugel  -+- SIS, Institut Pasteur, Paris
Boulot : adresse@cachée,  $HOME : adresse@cachée
*** 1.2 1997/11/10 13:00:04
--- List.pm     1997/11/10 14:55:06
***************
*** 163,169 ****
  use Conf;
  
  ## RCS identification.
! my $id = '@(#)$Id: List.pm,v 1.2 1997/11/10 13:00:04 sympa Exp $';
  
  ## Generic variables : name of the file having the subscribers, the
  ## control information and the welcome message.
--- 163,169 ----
  use Conf;
  
  ## RCS identification.
! my $id = '@(#)$Id: List.pm,v 1.3 1997/11/10 14:55:03 sympa Exp $';
  
  ## Generic variables : name of the file having the subscribers, the
  ## control information and the welcome message.
***************
*** 459,464 ****
--- 459,465 ----
     return undef unless ($self && $who);;
     $function =~ y/A-Z/a-z/;
     $who =~ y/A-Z/a-z/;
+    chomp($who);
     my $admin = $self->{'admin'};
     return undef unless ($admin && $admin->{$function});
  
*** 1.12        1997/11/10 13:01:25
--- sympa.pl    1997/11/10 14:54:26
***************
*** 3,9 ****
  ## Sympa - Programme principal
  
  ## RCS identification.
! my $id = '@(#)$Id: sympa.pl,v 1.12 1997/11/10 13:01:25 sympa Exp $';
  
  ## Load the modules and whatever we need.
  use lib '--DIR--';
--- 3,9 ----
  ## Sympa - Programme principal
  
  ## RCS identification.
! my $id = '@(#)$Id: sympa.pl,v 1.13 1997/11/10 14:54:22 sympa Exp $';
  
  ## Load the modules and whatever we need.
  use lib '--DIR--';
***************
*** 50,55 ****
--- 50,70 ----
     ## No return.
  }
  
+ ## Put ourselves in background if we're not in debug mode. That method
+ ## works on many systems, although, it seems that Unix conceptors have
+ ## decided that there won't be a single and easy way to detach a process
+ ## from its controlling tty.
+ unless ($opt_d) {
+    open(STDERR, ">> /dev/null");
+    open(STDOUT, ">> /dev/null");
+    if (open(TTY, "/dev/tty")) {
+       ioctl(TTY, $TIOCNOTTY, 0);
+       close(TTY);
+    }
+    setpgrp(0, 0);
+    exit(0) if (fork != 0);
+ }
+ 
  ## Create and write the pidfile
  unless (open(LOCK, "+>> $Conf{'pidfile'}")) {
     fatal_err(Msg(3, 2, "Could not open %s, exiting"), $Conf{'pidfile'});
***************
*** 74,94 ****
  ## Most initializations have now been done.
  do_log('notice', Msg(3, 5, 'Sympa Started'));
  
## Put ourselves in background if we're not in debug mode. That method
## works on many systems, although, it seems that Unix conceptors have
## decided that there won't be a single and easy way to detach a process
## from its controlling tty.
unless ($opt_d) {
   open(STDERR, ">> /dev/null");
   open(STDOUT, ">> /dev/null");
   if (open(TTY, "/dev/tty")) {
      ioctl(TTY, $TIOCNOTTY, 0);
      close(TTY);
   }
   setpgrp(0, 0);
   exit(0) if (fork != 0);
}

  ## Catch SIGTERM, in order to exit cleanly, whenever possible.
  $SIG{'TERM'} = 'sigterm';
  
--- 89,94 ----