develooper Front page | perl.module-authors | Postings from November 2003

RE: My new module Proc:Daemontools

Thread Previous | Thread Next
From:
Orton, Yves
Date:
November 6, 2003 09:50
Subject:
RE: My new module Proc:Daemontools
Message ID:
71B318898201D311845C0008C75DAD1C08961375@defra1ex2
> It(amongst other things) guarantees that the daemons will never stop
> working.

Shouldn't that read "it guarantees that unix daemons will never stop
working"?

Is it cross platform? Can I use it on my Win32 box?

Yves


> -----Original Message-----
> From: Bruno Negrao [mailto:qmail@engepel.com.br]
> Sent: 05 November 2003 22:32
> To: module-authors@perl.org
> Subject: My new module Proc:Daemontools
> 
> 
> Hi all,
> 
> I wrote a Perl module called Proc::Daemontools and I planning 
> to publish
> it on CPAN. Before I do this, i´d like to gather some 
> opinions about things
> as its name, its functionalities, etc.
> 
> Daemontools is a product made by Dan Bernstein designed to 
> control daemons.
> It(amongst other things) guarantees that the daemons will never stop
> working.
> 
> Now, this module interacts only with svc, svok and svstat executables.
> 
> Bellow is its Synopsis:
> --------------------------------------------------------------
> -------------
> use Proc::Daemontools;
> 
> # assuming everything is in the default directories
> my $svc = new Proc::Daemontools;
> 
>     or
> 
> my $svc = new Proc::Daemontools (
>                 DAEMONTOOLS_DIR =>"/some-non-default-dir",
>                 SERVICE_DIR    => "/some-non-default-dir"
>             );
> 
> my $daemon="qmail-send";
> 
> # We want to stop $daemon
> if ( $svc->isUp($daemon) ) {
>     if ( $svc->down($daemon) ) {  # it returns true if it was 
> successful
>         print "OK, $daemon stopped. \n";
>     } else {
>         print "Ops, $daemon didn´t stop yet. Maybe it is 
> waiting for some".
>         " child to exit. Perhaps you want to kill them by 
> yourself...\n";
>     }
> }
> 
> # Now we want it to start
> if ( $svc->up($daemon) ) {
>     print "OK, $daemon started. \n".
> }
> 
> $daemon="qmail-smtpd";
> 
> # Let´s see what svstat says about $daemon:
> print "The current status of $daemon reported by svstat is: " .
>       $svc->status($daemon) ."\n";
> 
> Any comments will be appreciated,
> Bruno Negrao.
> 
> 
> 

Thread Previous | Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About