Non-socket activation users will want to install Net::Server
for daemonization, pid file writing, and user/group switching.
- DBI[3] libdbi-perl
- DBD::SQLite[3] libdbd-sqlite3-perl
- Danga::Socket[4] libdanga-socket-perl
- DBI[3] libdbi-perl
- DBD::SQLite[3] libdbd-sqlite3-perl
- Danga::Socket[4] libdanga-socket-perl
+ - Net::Server[4] libnet-server-perl
[1] - Only required for serving/generating Atom and HTML pages.
[1] - Only required for serving/generating Atom and HTML pages.
-[3] - Optional for HTML web interface and NNTP server
-[4] - Optional for NNTP server
+[3] - Optional for HTML web interface and HTTP/NNTP servers
+[4] - Optional for HTTP and NNTP servers
return unless (defined $pid_file || defined $group || defined $user
|| $daemonize);
return unless (defined $pid_file || defined $group || defined $user
|| $daemonize);
- require Net::Server::Daemonize;
+ eval { require Net::Server::Daemonize };
+ if ($@) {
+ die
+"Net::Server required for --pid-file, --group, --user, and --daemonize\n$@\n";
+ }
Net::Server::Daemonize::check_pid_file($pid_file) if defined $pid_file;
$uid = Net::Server::Daemonize::get_uid($user) if defined $user;
Net::Server::Daemonize::check_pid_file($pid_file) if defined $pid_file;
$uid = Net::Server::Daemonize::get_uid($user) if defined $user;
is($?, 0, 'existing httpd exited successfully');
ok(-S $unix, 'unix socket still exists');
}
is($?, 0, 'existing httpd exited successfully');
ok(-S $unix, 'unix socket still exists');
}
+
+SKIP: {
+ eval 'require Net::Server::Daemonize';
+ skip('Net::Server missing for pid-file/daemonization test', 10) if $@;
+
# wait for daemonization
$spawn_httpd->("-l$unix", '-D', '-P', "$tmpdir/pid");
my $kpid = $pid;
# wait for daemonization
$spawn_httpd->("-l$unix", '-D', '-P', "$tmpdir/pid");
my $kpid = $pid;