1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
|
# Copyright (C) 2008-2010, Sebastian Riedel.
package Mojo::Command::Daemon;
use strict;
use warnings;
use base 'Mojo::Command';
use Mojo::Server::Daemon;
use Getopt::Long 'GetOptions';
__PACKAGE__->attr(description => <<'EOF');
Start application with HTTP 1.1 backend.
EOF
__PACKAGE__->attr(usage => <<"EOF");
usage: $0 daemon [OPTIONS]
These options are available:
--clients <number> Set maximum number of concurrent clients,
defaults to 1000.
--group <name> Set group name for process.
--keepalive <seconds> Set keep-alive timeout, defaults to 15.
--keepaliverequests <number> Set maximum number of requests per
keep-alive connection, defaults to 100.
--listen <locations> Set a comma separated list of locations you
want to listen on, defaults to
http://*:3000.
--lock <path> Set path to lock file, defaults to a random
temporary file.
--pid <path> Set path to pid file, defaults to a random
temporary file.
--queue <size> Set listen queue size, defaults to
SOMAXCONN.
--reload Automatically reload application when the
source code changes.
--requests <number> Set the maximum number of requests the
daemon is allowed to handle, not used by
default.
--user <name> Set user name for process.
EOF
# This is the worst thing you've ever done.
# You say that so often that it lost its meaning.
sub run {
my $self = shift;
my $daemon = Mojo::Server::Daemon->new;
# Options
@ARGV = @_ if @_;
GetOptions(
'clients=i' => sub { $daemon->max_clients($_[1]) },
'group=s' => sub { $daemon->group($_[1]) },
'keepalive=i' => sub { $daemon->keep_alive_timeout($_[1]) },
'keepaliverequests=i' =>
sub { $daemon->max_keep_alive_requests($_[1]) },
'listen=s' => sub { $daemon->listen($_[1]) },
'lock=s' => sub { $daemon->lock_file($_[1]) },
'pid=s' => sub { $daemon->pid_file($_[1]) },
'queue=i' => sub { $daemon->listen_queue_size($_[1]) },
reload => sub { $daemon->reload(1) },
'requests=i' => sub { $daemon->max_requests($_[1]) },
'user=s' => sub { $daemon->user($_[1]) }
);
# Run
$daemon->run;
return $self;
}
1;
__END__
=head1 NAME
Mojo::Command::Daemon - Daemon Command
=head1 SYNOPSIS
use Mojo::Command::Daemon;
my $daemon = Mojo::Command::Daemon->new;
$daemon->run(@ARGV);
=head1 DESCRIPTION
L<Mojo::Command::Daemon> is a command interface to
L<Mojo::Server::Daemon>.
=head1 ATTRIBUTES
L<Mojo::Command::Daemon> inherits all attributes from L<Mojo::Command> and
implements the following new ones.
=head2 C<description>
my $description = $daemon->description;
$daemon = $daemon->description('Foo!');
Short description of this command, used for the command list.
=head2 C<usage>
my $usage = $daemon->usage;
$daemon = $daemon->usage('Foo!');
Usage information for this command, used for the help screen.
=head1 METHODS
L<Mojo::Command::Daemon> inherits all methods from L<Mojo::Command> and
implements the following new ones.
=head2 C<run>
$daemon = $daemon->run(@ARGV);
Run this command.
=head1 SEE ALSO
L<Mojolicious>, L<Mojolicious::Guides>, L<http://mojolicious.org>.
=cut
|
