Interception de signaux

Bonjour à tous.

Cela fait déjà quelques temps que je suis confronté à un "problème" que je n'arrive pas à m'expliquer.

Je vous explique l'idée. Je développe un démon, qui doit être disponible le plus souvent possible (100% du temps étant un idéal).

Cependant, la configuration de ce démon peut être amenée à changer. Qu'à cela ne tienne, je catch un SIGUSR1 pour recharger la conf et continuer mon bonhomme de chemin.

Sauf que j'ai remarqué que cette "astuce" ne fonctionnait qu'une seule fois.

Pourtant, j'utilise un code de ce type :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

#!/usr/bin/perl -w   use strict;   $SIG{'USR1'} = \&mafonction;   sub mafonction() { $SIG{'USR1'} = \&mafonction; loadConf(); [...] }   [...]

---

Est-il donc possible de "catcher" plusieurs fois un signal ?
Si oui, comment ?

Il y a un exemple tout à fait parlant dans perldoc perlipc. Pour initialiser le daemon, j'utilise généralement Proc::Daemon, c'est plus simple.

Merci pour cette réponse.
Je teste ça dans la journée.

Pour initialiser mon démon, j'utilise ce genre de fonction :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

use POSIX 'setsid';   sub daemonize { chdir '/' or die "Can't chdir to /: $!"; open STDIN, '/dev/null' or die "Can't read /dev/null: $!"; open STDOUT, '>/dev/null' or die "Can't write to /dev/null: $!"; defined(my $pid = fork) or die "Can't fork: $!"; exit if $pid; die "Can't start a new session: $!" if setsid == -1; open STDERR, '>&STDOUT' or die "Can't dup stdout: $!"; }

---

Ça fait à priori ce que j'ai besoin, et ce que fait Proc::Daemon d'après ce que j'ai lu dans la doc.

Je ne marque pas encore à résolu en attendant de tester, mais cette solution devrait convenir d'après ce que je peux lire.