proc daemon et pid

Bonjour,

J'essaie de créer un démon avec proc::daemon, mais pour le moment, je n'y arrive pas complètement. Mon script est bien lancé, mais j'aurai voulu créer un fichier pid qui contiendrait le n° de process attribué par le système.

Auriez-vous un exemple pour arriver à faire ça ? Merci d'avance pour votre aide.

Y a sûrement mieux mais :

Tu peux peut être "démoniser" ton process à la main, auquel cas tu peux faire ce que tu veux avec avec le pid retoruné par setsid(), en partant de cet exemple emprunté à perlipc :

Code:

---

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

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; setsid or die "Can't start a new session: $!"; open STDERR, '>&STDOUT' or die "Can't dup stdout: $!"; }

---

Sinon, si tu trouves une solution pour récupérer le pid après le Proc::Daemon::Init, je veux bien la connaître :ccool:

Je ne trouve pas cette solution robuste.
Je suppute que tu est sous Linux/Unix, donc Proc::Daemon est fait pour les daemon et c'est efficace. Il gère tout correctement.

Ensuite, si tu veux récupérer son pid, je te recommande le module Proc::ProcessTable, tu pourra lire les processus en cours sur ton serveur et via une regex, tu pourras chercher ton script tournant en daemon.

apparemment ca marche de cette façon :

Code:

---

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

# daemonize my $pid_file = '/var/run/daemon.pid'; Proc::Daemon::Init; open(PID,$pid_file); my $pid = <PID>; close PID; if ($pid and kill 0 => $pid) { &set_log($log,"Pid present et reactif","info"); die;} else { open(PID,"> $pid_file"); print PID $$; close PID; }

---

Code trouvé sur http://tfeserver.homelinux.com/dl/Pe...emon/old/01.pl

Le problème est que lorsque je lance mon script, j'envoie un log dans un fichier qui se retrouve dans le fichier pid également (en gros j'ai le pid suivi de mon log) :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

# declaration de la connexion my $server = IO::Socket::INET->new( Proto => 'tcp', LocalAddr => $serv_ip, LocalPort => $port, Listen => SOMAXCONN, Reuse => 1 );   die "Impossible de lancer le serveur" unless $server; &set_log($log,"Serveur $serv_name est pret a recevoir des clients","info");

---

le set_log fait appel à Log::Handler :

Code:

---

1 2 3 4

sub set_log { my ($log,$logmsg,$level) = @_; $log->$level("$logmsg"); }

---

et le résultat dans le fichier pid :

Code:

---

21233aoû 07 13:33:10 [INFO] Serveur TesT est pret a recevoir des clients

---

Je vais essayer avec setsid pour voir ce que ca donne, mais c'est dommage puisque Proc::Daemon fait tout ça par lui même.

Je comprends pas ton souci par rapport à ton post ci dessus. Sinon Proc::ProcessTable comme je te l'ai dit ci dessus

A la main, je ferais comme ça (je ne suis pas sûr d'avoir été très clair tout à l'heure).

Code:

---

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

use POSIX qw(setsid);   chdir '/' or die "Can't chdir to /: $!"; umask 0; open STDIN, '/dev/null' or die "Can't read /dev/null: $!"; open STDOUT, '>/dev/null' or die "Can't write to /dev/null: $!"; open STDERR, '>/dev/null' or die "Can't write to /dev/null: $!"; defined(my $pid = fork) or die "Can't fork: $!"; exit if $pid; $pid = setsid or die "Can't start a new session: $!"; open my $fh, '>>', 'path/to/logfile' or die "Can't open log file:$!"; print $fh "$pid\n"; close $fh;   while(1) { # ... }

---

En fait c'est exactement ce que fait Proc::Daemon

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

perldoc -q daemon   How do I fork a daemon process?   If by daemon process you mean one that’s detached (disassociated from its tty), then the following process is reported to work on most Unixish systems. Non‐Unix users should check their Your_OS::Process module for other solutions.   · Open /dev/tty and use the TIOCNOTTY ioctl on it. See tty for details. Or better yet, you can just use the POSIX::setsid() function, so you don’t have to worry about process groups.   · Change directory to /   · Reopen STDIN, STDOUT, and STDERR so they’re not connected to the old tty.   · Background yourself like this:   fork && exit;   The Proc::Daemon module, available from CPAN, provides a function to perform these actions for you.

---

Mais Djibril a raison, tu peux aussi récupérer les infos sur ton proc de manière séparée.

ce que je ne comprend pas c'est que ma fonction de log ne logue plus rien, que j'utilise Proc::Daemon ou que je demonize à la main. Certainement que les

open STDOUT, '>/dev/null' or die "Can't write to /dev/null: $!";
open STDERR, '>/dev/null' or die "Can't write to /dev/null: $!";

me posent problème.

une idée pour résoudre le souci avec proc::daemon ?

merci à tous pour votre aide.

Mon démon est pleinement fonctionnel. je clôture le topic.