symkat/Daemon-Control
1
0
Fork 0
Code Issues 2 Pull requests Releases Wiki Activity

Added help accessor, and do_help.

Browse source
This commit is contained in:
SymKat 2012-09-04 13:54:35 -07:00
parent a4af26baa3
commit b021c8c693
1 changed files with 13 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
lib/Daemon/Control.pm
View file

@ -15,9 +15,11 @@ my @accessors = qw(
pid color_map name program program_args directory
uid path gid scan_name stdout_file stderr_file pid_file fork data
lsb_start lsb_stop lsb_sdesc lsb_desc redirect_before_fork init_config
kill_timeout umask resource_dir
kill_timeout umask resource_dir help
);
my $cmd_opt = "[start|stop|restart|reload|status|show_warnings|get_init_file|help]";
# Accessor building
for my $method ( @accessors ) {
@ -419,6 +421,13 @@ sub do_get_init_file {
shift->dump_init_script;
}
sub do_help {
my ( $self ) = @_;
print "Syntax: $0 $cmd_opt\n\n";
print $self->help if $self->help;
}
sub dump_init_script {
my ( $self ) = @_;
if ( ! $self->data ) {
@ -486,10 +495,11 @@ sub run {
}
my $called_with = shift @ARGV if @ARGV;
$called_with =~ s/^[-]+//g; # Allow people to do --command too.
my $action = "do_" . ($called_with ? $called_with : "" );
my $allowed_actions = "Must be called with an action: " .
"[start|stop|restart|reload|status|show_warnings|get_init_file]";
my $allowed_actions = "Must be called with an action: $cmd_opt";
if ( $self->can($action) ) {
$self->$action;