Discussion :

[zerros]

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.

[iblis]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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:

[djibril]

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.

[zerros]

apparemment ca marche de cette façon :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

et le résultat dans le fichier pid :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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:aemon fait tout ça par lui même.

[djibril]

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

[iblis]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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:aemon

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[zerros]

ce que je ne comprend pas c'est que ma fonction de log ne logue plus rien, que j'utilise Proc:aemon 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 ?

[zerros]

merci à tous pour votre aide.

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