=head1 NAME

 Daemon::Generic - framework to provide start/stop/reload for a daemon

=head1 SYNOPSIS

 use Daemon::Generic;

 sub gd_run { ... stuff }
 sub gd_preconfig { ... stuff }

 newdaemon();

=head1 DESCRIPTION

Daemon::Generic provides a framework for starting, stopping,
reconfiguring daemon-like programs.  The framework provides
for standard commands that work for as init.d files and 
as apachectl-like commands.

Programs that use Daemon::Generic subclass Daemon::Generic
to override its behavior.  Almost everything that 
Genric::Daemon does can be overridden as needed.

=head1 EXAMPLE USAGE OUTPUT

Unless overriden, the usage output for your program will 
look something like this:

 Usage: $progname [ -c file ] [ -f ] { start | stop | reload | restart | help | version | check }
  -c		Specify configuration file (defaults to $configfile)
  -f		Run in the foreground (don't detach)
  start		Starts a new $progname if there isn't one running already
  stop		Stops a running $progname
  reload	Causes a running $progname to reload it's config file.  Starts
 		a new one if none is running.
  restart	Stops a running $progname if one is running.  Starts a new one.
  check		Check the configuration file and report the daemon state
  help		Display this usage info
  version	Display the version of $progname

=head1 CONSTRUCTION

To hand control over to C<Daemon::Generic>, call C<newdaemon()>.
Control will be handed back through method calls to functions you
define.

Your C<@ISA> will be modified to include C<Daemon::Generic> if 
if it isn't already there.  

These are the arguments to C<newdaemon()>.
Defaults are in (parenthesis).

=over 15

=item progname

(C<$0>) The name of this program.  This will be used for 
logging and for naming the PID file.

=item configfile

(C</etc/$progname.conf>) The location of the configuration
file for this daemon.

=item pidbase

(/var/run/$progname) We include the configuration file name
as part of the pid file in case there are multiple instances
of this deamon.  The pidbase is is the part of the PID file
that does not include the configuration file name.

=item pidfile

(C<$pidbase.$configfile.pid>) The location of the
process id file.  

=item foreground

(C<0>) Do not detach/daemon and run in the foreground instead.

=item debug

(C<0>) Turn on debugging. 

=item no_srand

(C<0>) Normall srand() is called.  If no_srand is set then
srand() won't be called.

=item options

() Additional arguments for L<Getopt::Long::GetOptions> which
is used to parse C<@ARGV>.  Alternatively: define C<&gd_more_opt()>.

=item minimum_args

(C<1>) Minimum number of @ARGV arguments after flags have been
processed.

=item maximum_args

(C<1>) Maximum number of @ARGV arguments after flags have been
processed.

=item version

(C<$pkg::VERSION>) The version number of the daemon.

=item logpriority

Used for C<logger -p>.

=back

=head1 MUST-OVERRIDE CALLBACK METHODS

The package that subclasses Daemon::Generic must provide the following
callback methods.

=over 15

=item gd_preconfig()

C<gd_preconfig()> is called to parse the configuration file 
(C<$self-E<gt>{configfile}>).  Preconfig is called on all invocations
of the daemon (C<daemon reload>, C<daemon check>, C<daemon stop>, etc).
It shouldn't start anything but it can and should verify that
the config file is fine.

The return value should be a hash.  With one exception, the return
value is only used by C<gd_postconfig()>.  The exception is that 
C<gd_preconfig()> may return a revised PID file location (key C<pidfile>).

=item gd_run()

This is where you put your main program.


=back

=head1 MAY-OVERRIDE CALLBACK METHODS

The package that subclasses Daemon::Generic does not have to override these
methods but it may want to.

=over 15

=item gd_postconfig(%config)

Postconfig() is called only when the daeamon is actually starting up.
(Or on reconfigs).  It is passed the return value from C<gd_preconfig>.

=item gd_setup_signals()

Set things up so that SIGHUP calls gd_reconfig_event() and
SIGINT calls gd_quit_event().  It will call these at any time
so if you want to delay signal delivery or something you should 
override this method.

=item gd_getopt()

This is invoked to parse the command line.  Useful things to modify are:

=over 20

=item $self->{configfile}

The location of the configuration file to be parsed by C<gd_preconfig()>.

=item $self->{foreground}

Run in the foreground (don't daemonize).

=item $self->{debug}

Use it yourself.

=back

The supplied C<gd_getopt()> method uses L<Getopt::Long>.

=item gd_parse_argv()

Parse any additional command line arguments beyond what C<gd_getopt()>
handled.

C<$ARGV[0]> needs to be left alone if it is one of the following
standard items:

=over 10

=item start

Start up a new daemon.

=item stop

Stop the running daemon.

=item restart

Stop the running daemon, start a new one.

=item reload

Send a signal to the running daemon, asking
it to reconfigure itself.

=item check

Just check the configuration file. 

=item help

Print the help screen (probably usage()).

=item version

Display the daemon's version.

=back

There is no default C<gd_parse_argv()>.

=item gd_check($pidfile, $pid)

Normal behavior: return.  Define additional checks to run when
the C<check> command is given.  A C<$pid> will only be supplied
if there is a daemon running.

=item gd_version()

Normal behavior: display a version message and exit.

=item gd_help()

Normal behavior: call C<gd_usage()>.

=item gd_commands_more()

Used by C<gd_usage()>: provide information on additional commands
beyond C<start>, C<stop>, C<reload>, etc.  Return is an array of
key value pairs.  

 sub gd_commands_more 
 {
	return (
		savestate => 'Tell xyz server to save its state',
		reset     => 'Tell xyz servr to reset',
	);
 }

=item gd_flags_more

Like C<gd_commands_more()> but defines additional command line flags.
There should also be a C<gd_more_opt()> or an C<options> argument to
C<new()>.

=item gd_positional_more

Like C<gd_commands_more()> but defines positional arguments.

=item gd_usage()

Display a usage message.  
The return value from C<gd_usage()> is the exit code for the program.

=item gd_more_opt()

() Additional arguments for L<Getopt::Long::GetOptions> which
is used to parse C<@ARGV>.  Alternatively: pass C<options> to C<new()>.

=item gd_pidfile()

Figure out the PID file should be. 

=item gd_error()

Print out an error (call die?)

=item gd_other_cmd()

Called C<$ARGV[0]> isn't one of the commands that Daemon::Generic knows
by default.  Default behavior: call C<gd_usage()> and C<exit(1)>. 

=item gd_daemonize()

Normal behavior: C<fork()>, C<fork()>, detach from tty.

=item gd_redirect_output()

Normal behavior: redirect C<STDOUT> and C<STDERR> to 
C<logger -t $progname[$$]>.  Used by C<gd_daemonize()>.

=item gd_logname()

Normal behavior: C<$progname[$$]>.  Used by C<gd_redirect_output()>.

=item gd_reconfig_event()

Normal behavior: call C<gd_postconfig(gd_preconfig))>.  
Only referenced by C<gd_setup_signals()>.

=item gd_quit_event()

Normal behavior: exit. 
Only referenced by C<gd_setup_signals()>.

=item gd_kill($pid)

Used by the C<stop> and C<restart> commands to get rid of
the old daemon.
Normal behavior: send a SIGINT.  
Check to see if process C<$pid> has died.  If it has not, keep checking
and if it's still alive.  After 
C<$Daemon::Generic::force_quit_delay> seconds,
send a SIGTERM.  Keep checking.  After another
C<$Daemon::Generic::force_quit_delay> seconds,
send a SIGKILL (-9).  Keep checking.  After 
C<$Daemon::Generic::force_quit_delay * 4> seconds or 60 seconds
(whichever is smaller), give up and exit(1).

=item gd_install

Installs the daemon so that it runs automatically at next
reboot.  Currently done with a symlink to C<$0> and 
C</usr/sbin/update-rc.d>.  Please send patches for other 
methods!

=item gd_can_install

Returns a function to do an C<gd_install> if installation
is possible.  Returns C<0> otherwise.

=item gd_install_pre($method)

Normal behavior: return.  Called just before doing an installation.
The method indicates the installation method (currently always
C<update-rc.d>.)

=item gd_install_post($method)

Normal behavior: return.  Called just after doing an installation.

=item gd_uninstall

Will remove the daemon from the automatic startup regime.

=item gd_can_uninstall

Returns a function to do the work for C<gd_uninstall> if it's
possible.  C<0> otherwise.

=item gd_uninstall_pre($method)

Normal behavior: return.  Called just before doing an un-installation.
The method indicates the installation method (currently always
C<update-rc.d>.)

=item gd_install_post($method)

Normal behavior: return.  Called just after doing an un-installation.

=back

=head1 MEMBER DATA

Since you need to subclass Daemon::Generic, you need to know
what the internal data structures for Daemon::Generic are.  
With two exceptions, all of the member data items begin with 
the prefix C<gd_>.

=over 15

=item configfile

The location of the configuration file.  (Not used by
Daemon::Generic).

=item debug

Display debugging?  (Not used by Daemon::Generic)

=item gd_args

The original C<%args> passed to C<new>.

=item gd_progname

The process name.  (defaults to $0)

=item gd_pidfile

The location of the process ID file.

=item gd_logpriority

Used for C<logger -p>.

=item gd_foreground

Are we running in the foreground?

=back

=head1 EXAMPLE PROGRAM

 my $sleeptime = 1;

 newdaemon(
	progname	=> 'ticktockd',
	pidfile		=> '/var/run/ticktockd.pid',
	configfile	=> '/etc/ticktockd.conf',
 );

 sub gd_preconfig
 {
	my ($self) = @_;
	open(CONFIG, "<$self->{configfile}") or die;
	while(<CONFIG>) {
		$sleeptime = $1 if /^sleeptime\s+(\d+)/;
	}
	close(CONFIG);
	return ();
 }

 sub gd_run
 {
	while(1) {
		sleep($sleeptime);
		print scalar(localtime(time))."\n";
	}
 }

=head1 SEE ALSO

With a while(1) and delayed signal delivery: L<Daemon::Generic::While1>.

With L<Event>: L<Daemon::Generic::Event>.

Modules that use Daemon::Generic:
L<SyslogScan::Daemon>
L<IO::Event> (rinetd.pl)

Other modules that do similar things: 
L<Net::Daemon>,
L<Net::Server>,
L<Net::Server::Daemonize>, 
L<NetServer::Generic>,
L<Proc::Application::Daemon>,
L<Proc::Daemon>,
L<Proc::Forking>.

=head1 LICENSE

Copyright(C) 2006 David Muir Sharnoff <perl@dave.sharnoff.org>,
This module may be used and distributed on the same terms
as Perl itself.