chiark / gitweb /
(c) notice on tests
[disorder] / server / disorderd.c
CommitLineData
460b9539 1/*
2 * This file is part of DisOrder.
36be7e6a 3 * Copyright (C) 2004, 2005, 2006, 2007 Richard Kettlewell
460b9539 4 *
5 * This program is free software; you can redistribute it and/or modify
6 * it under the terms of the GNU General Public License as published by
7 * the Free Software Foundation; either version 2 of the License, or
8 * (at your option) any later version.
9 *
10 * This program is distributed in the hope that it will be useful, but
11 * WITHOUT ANY WARRANTY; without even the implied warranty of
12 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
13 * General Public License for more details.
14 *
15 * You should have received a copy of the GNU General Public License
16 * along with this program; if not, write to the Free Software
17 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307
18 * USA
19 */
20
21#include <config.h>
6d2d327c 22#include "types.h"
460b9539 23
24#include <stdio.h>
25#include <getopt.h>
26#include <pwd.h>
27#include <grp.h>
28#include <sys/types.h>
29#include <errno.h>
30#include <stdlib.h>
31#include <string.h>
32#include <unistd.h>
33#include <signal.h>
34#include <sys/socket.h>
35#include <time.h>
36#include <locale.h>
37#include <syslog.h>
38#include <sys/time.h>
39#include <pcre.h>
40#include <fcntl.h>
41
42#include "daemonize.h"
43#include "event.h"
44#include "log.h"
45#include "configuration.h"
46#include "trackdb.h"
47#include "queue.h"
48#include "mem.h"
49#include "play.h"
50#include "server.h"
51#include "state.h"
52#include "syscalls.h"
53#include "defs.h"
54#include "user.h"
55#include "mixer.h"
56#include "eventlog.h"
e83d0967 57#include "printf.h"
36be7e6a 58#include "setup.h"
460b9539 59
60static ev_source *ev;
61
62static void rescan_after(long offset);
63static void dbgc_after(long offset);
64static void volumecheck_after(long offset);
65
66static const struct option options[] = {
67 { "help", no_argument, 0, 'h' },
68 { "version", no_argument, 0, 'V' },
69 { "config", required_argument, 0, 'c' },
70 { "debug", no_argument, 0, 'd' },
71 { "foreground", no_argument, 0, 'f' },
72 { "log", required_argument, 0, 'l' },
73 { "pidfile", required_argument, 0, 'P' },
74 { "no-initial-rescan", no_argument, 0, 'N' },
18e6d6e6 75 { "wide-open", no_argument, 0, 'w' },
e83d0967 76 { "syslog", no_argument, 0, 's' },
460b9539 77 { 0, 0, 0, 0 }
78};
79
80/* display usage message and terminate */
81static void help(void) {
82 xprintf("Usage:\n"
83 " disorderd [OPTIONS]\n"
84 "Options:\n"
85 " --help, -h Display usage message\n"
86 " --version, -V Display version number\n"
87 " --config PATH, -c PATH Set configuration file\n"
88 " --debug, -d Turn on debugging\n"
89 " --foreground, -f Do not become a daemon\n"
e83d0967 90 " --syslog, -s Log to syslog even with -f\n"
460b9539 91 " --pidfile PATH, -P PATH Leave a pidfile\n");
92 xfclose(stdout);
93 exit(0);
94}
95
96/* display version number and terminate */
97static void version(void) {
98 xprintf("disorderd version %s\n", disorder_version_string);
99 xfclose(stdout);
100 exit(0);
101}
102
103/* SIGHUP callback */
104static int handle_sighup(ev_source attribute((unused)) *ev_,
105 int attribute((unused)) sig,
106 void attribute((unused)) *u) {
107 info("received SIGHUP");
108 reconfigure(ev, 1);
109 return 0;
110}
111
112/* fatal signals */
113
114static int handle_sigint(ev_source attribute((unused)) *ev_,
115 int attribute((unused)) sig,
116 void attribute((unused)) *u) {
117 info("received SIGINT");
118 quit(ev);
119}
120
121static int handle_sigterm(ev_source attribute((unused)) *ev_,
122 int attribute((unused)) sig,
123 void attribute((unused)) *u) {
124 info("received SIGTERM");
125 quit(ev);
126}
127
128static int rescan_again(ev_source *ev_,
129 const struct timeval attribute((unused)) *now,
130 void attribute((unused)) *u) {
131 trackdb_rescan(ev_);
132 rescan_after(86400);
133 return 0;
134}
135
136static void rescan_after(long offset) {
137 struct timeval w;
138
139 gettimeofday(&w, 0);
140 w.tv_sec += offset;
141 ev_timeout(ev, 0, &w, rescan_again, 0);
142}
143
144static int dbgc_again(ev_source attribute((unused)) *ev_,
145 const struct timeval attribute((unused)) *now,
146 void attribute((unused)) *u) {
147 trackdb_gc();
148 dbgc_after(60);
149 return 0;
150}
151
152static void dbgc_after(long offset) {
153 struct timeval w;
154
155 gettimeofday(&w, 0);
156 w.tv_sec += offset;
157 ev_timeout(ev, 0, &w, dbgc_again, 0);
158}
159
160static int volumecheck_again(ev_source attribute((unused)) *ev_,
161 const struct timeval attribute((unused)) *now,
162 void attribute((unused)) *u) {
163 int l, r;
164 char lb[32], rb[32];
165
166 if(!mixer_control(&l, &r, 0)) {
167 if(l != volume_left || r != volume_right) {
168 volume_left = l;
169 volume_right = r;
170 snprintf(lb, sizeof lb, "%d", l);
171 snprintf(rb, sizeof rb, "%d", r);
172 eventlog("volume", lb, rb, (char *)0);
173 }
174 }
175 volumecheck_after(60);
176 return 0;
177}
178
179static void volumecheck_after(long offset) {
180 struct timeval w;
181
182 gettimeofday(&w, 0);
183 w.tv_sec += offset;
184 ev_timeout(ev, 0, &w, volumecheck_again, 0);
185}
186
e83d0967
RK
187/* We fix the path to include the bindir and sbindir we were installed into */
188static void fix_path(void) {
189 char *path = getenv("PATH");
e99d42b1 190 static char *newpath;
191 /* static or libgc collects it! */
e83d0967
RK
192
193 if(!path)
194 error(0, "PATH is not set at all!");
195
31780899 196 if(*finkbindir && strcmp(finkbindir, "/"))
e83d0967
RK
197 /* We appear to be a finkized mac; include fink on the path in case the
198 * tools we need are there. */
199 byte_xasprintf(&newpath, "PATH=%s:%s:%s:%s",
200 path, bindir, sbindir, finkbindir);
201 else
202 byte_xasprintf(&newpath, "PATH=%s:%s:%s", path, bindir, sbindir);
203 putenv(newpath);
204 info("%s", newpath);
205}
206
207int main(int argc, char **argv) {
208 int n, background = 1, logsyslog = 0;
460b9539 209 const char *pidfile = 0;
210 int initial_rescan = 1;
211
212 set_progname(argv);
320598d4 213 mem_init();
460b9539 214 if(!setlocale(LC_CTYPE, "")) fatal(errno, "error calling setlocale");
215 /* garbage-collect PCRE's memory */
216 pcre_malloc = xmalloc;
217 pcre_free = xfree;
e83d0967 218 while((n = getopt_long(argc, argv, "hVc:dfP:Ns", options, 0)) >= 0) {
460b9539 219 switch(n) {
220 case 'h': help();
221 case 'V': version();
222 case 'c': configfile = optarg; break;
223 case 'd': debugging = 1; break;
224 case 'f': background = 0; break;
225 case 'P': pidfile = optarg; break;
226 case 'N': initial_rescan = 0; break;
e83d0967 227 case 's': logsyslog = 1; break;
18e6d6e6 228 case 'w': wideopen = 1; break;
460b9539 229 default: fatal(0, "invalid option");
230 }
231 }
232 /* go into background if necessary */
233 if(background)
234 daemonize(progname, LOG_DAEMON, pidfile);
e83d0967
RK
235 else if(logsyslog) {
236 /* If we're running under some kind of daemon supervisor then we may want
237 * to log to syslog but not to go into background */
238 openlog(progname, LOG_PID, LOG_DAEMON);
239 log_default = &log_syslog;
240 }
460b9539 241 info("process ID %lu", (unsigned long)getpid());
e83d0967 242 fix_path();
460b9539 243 srand(time(0)); /* don't start the same every time */
244 /* create event loop */
245 ev = ev_new();
246 if(ev_child_setup(ev)) fatal(0, "ev_child_setup failed");
247 /* read config */
c00fce3a 248 if(config_read(1))
460b9539 249 fatal(0, "cannot read configuration");
659d87e8
RK
250 /* make sure the home directory exists and has suitable permissions */
251 make_home();
36be7e6a
RK
252 /* create the default login */
253 make_root_login();
460b9539 254 /* Start the speaker process (as root! - so it can choose its nice value) */
255 speaker_setup(ev);
256 /* set server nice value _after_ starting the speaker, so that they
257 * are independently niceable */
258 xnice(config->nice_server);
259 /* change user */
260 become_mortal();
261 /* make sure we're not root, whatever the config says */
262 if(getuid() == 0 || geteuid() == 0) fatal(0, "do not run as root");
263 /* open a lockfile - we only want one copy of the server to run at once. */
264 if(config->lock) {
265 const char *lockfile;
266 int lockfd;
267 struct flock lock;
268
269 lockfile = config_get_file("lock");
270 if((lockfd = open(lockfile, O_RDWR|O_CREAT, 0600)) < 0)
271 fatal(errno, "error opening %s", lockfile);
272 cloexec(lockfd);
273 memset(&lock, 0, sizeof lock);
274 lock.l_type = F_WRLCK;
275 lock.l_whence = SEEK_SET;
276 if(fcntl(lockfd, F_SETLK, &lock) < 0)
277 fatal(errno, "error locking %s", lockfile);
278 }
279 /* initialize database environment */
280 trackdb_init(TRACKDB_NORMAL_RECOVER);
281 trackdb_master(ev);
282 /* install new config */
283 reconfigure(ev, 0);
284 /* re-read config if we receive a SIGHUP */
285 if(ev_signal(ev, SIGHUP, handle_sighup, 0)) fatal(0, "ev_signal failed");
286 /* exit on SIGINT/SIGTERM */
287 if(ev_signal(ev, SIGINT, handle_sigint, 0)) fatal(0, "ev_signal failed");
288 if(ev_signal(ev, SIGTERM, handle_sigterm, 0)) fatal(0, "ev_signal failed");
289 /* ignore SIGPIPE */
290 signal(SIGPIPE, SIG_IGN);
291 /* start a rescan straight away */
292 if(initial_rescan)
293 trackdb_rescan(ev);
294 rescan_after(86400);
295 /* periodically tidy up the database */
296 dbgc_after(60);
297 /* periodically check the volume */
104ae93a 298 volumecheck_again(0, 0, 0);
460b9539 299 /* set initial state */
300 add_random_track();
301 play(ev);
302 /* enter the event loop */
303 n = ev_run(ev);
304 /* if we exit the event loop, something must have gone wrong */
305 fatal(errno, "ev_run returned %d", n);
306}
307
308/*
309Local Variables:
310c-basic-offset:2
311comment-column:40
e83d0967 312fill-column:79
460b9539 313End:
314*/