My new module Proc:Daemontools

[Bruno Negrao]

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.

My module requires that you have the Daemontools package installed on
your machine.

Now, this module interacts only with svc, svok and svstat daemontools
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->is_up($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.