Tfe

Old stuff/Perl/at/beta_tests/test_daemon/old/01.pl

#!/usr/bin/perl -w
# 14 mars 2004
#
# PARTIE DAEMON
# 3 partie:
#     + Ecriture du pid dans /var/run/atscript.pid
#     + Changement des regles pour les signaux ALRM et USR1
#     + Loop final pour que le programme ne sorte jamais.
#
# 
##############################################################################



use Proc::Daemon;
Proc::Daemon::Init;



$|= 1;
open(LOG,">/home/tfe/truc/at/test_daemon/log");
select LOG;

open(PID,"/var/run/atscript.pid");
$pid = <PID>;
close PID;
if ($pid and kill 0 => $pid) { print LOG "Pid present et reactif\n";  die;}
else { 
    open(PID,">/var/run/atscript.pid");
    print PID $$;
    close PID;
    print "PAS DE PID (vivant)\n"; 
}

    



$SIG{'USR2'} = \&usr2;
$SIG{'USR1'} = \&usr1;

sub usr2
{
system("killall xmms");
}
sub usr1
{
system("xmms -p");
}

    
close LOG;

while(1)
{
select(undef,undef,undef,1);
}