2 * Copyright (C) 1994, Index Data I/S
4 * Sebastian Hammer, Adam Dickmeiss
7 * Revision 1.17 1995-05-15 11:56:42 quinn
8 * Asynchronous facilities. Restructuring of seshigh code.
10 * Revision 1.16 1995/04/10 10:23:40 quinn
11 * Some work to add scan and other things.
13 * Revision 1.15 1995/03/31 10:16:51 quinn
16 * Revision 1.14 1995/03/31 09:18:58 quinn
19 * Revision 1.13 1995/03/30 16:08:39 quinn
22 * Revision 1.12 1995/03/30 13:29:02 quinn
25 * Revision 1.11 1995/03/30 12:18:17 quinn
28 * Revision 1.10 1995/03/29 15:40:16 quinn
29 * Ongoing work. Statserv is now dynamic by default
31 * Revision 1.9 1995/03/27 08:34:30 quinn
32 * Added dynamic server functionality.
33 * Released bindings to session.c (is now redundant)
35 * Revision 1.8 1995/03/20 09:46:26 quinn
38 * Revision 1.7 1995/03/16 13:29:04 quinn
41 * Revision 1.6 1995/03/15 15:18:52 quinn
42 * Little changes to better support nonblocking I/O
45 * Revision 1.5 1995/03/15 08:37:45 quinn
46 * Now we're pretty much set for nonblocking I/O.
48 * Revision 1.4 1995/03/14 16:59:48 quinn
51 * Revision 1.3 1995/03/14 11:30:15 quinn
54 * Revision 1.2 1995/03/14 10:28:03 quinn
55 * More work on demo server.
57 * Revision 1.1 1995/03/10 18:22:45 quinn
58 * The rudiments of an asynchronous server.
63 * Simple, static server. I wouldn't advise a static server unless you
64 * really have to, but it's great for debugging memory management. :)
87 static char *me = "statserver";
91 static statserv_options_block control_block = {
93 LOG_DEFAULT_LEVEL, /* log level */
95 "", /* diagnostic output to stderr */
96 "tcp:localhost:9999", /* default listener port */
97 PROTO_Z3950, /* application protocol */
98 60, /* idle timeout (minutes) */
99 1024*1024*4, /* maximum PDU size (approx.) to allow */
100 "default-config" /* configuration name to pass to backend */
103 #define DEFAULT_LISTENER "tcp:localhost:9999"
106 * handle incoming connect requests.
107 * The dynamic mode is a bit tricky mostly because we want to avoid
108 * doing all of the listening and accepting in the parent - it's
111 static void listener(IOCHAN h, int event)
113 COMSTACK line = (COMSTACK) iochan_getdata(h);
116 static int child = 0;
119 if (event == EVENT_INPUT)
121 if (control_block.dynamic && !child)
127 logf(LOG_FATAL|LOG_ERRNO, "pipe");
130 if ((res = fork()) < 0)
132 logf(LOG_FATAL|LOG_ERRNO, "fork");
135 else if (res == 0) /* child */
141 sprintf(nbuf, "%s(%d)", me, getpid());
142 log_init(control_block.loglevel, nbuf, 0);
147 /* wait for child to take the call */
153 if ((res = read(hand[0], dummy, 1)) < 0 && errno != EINTR)
155 logf(LOG_FATAL|LOG_ERRNO, "handshake read");
161 logf(LOG_DEBUG, "P: Child has taken the call");
166 if ((res = cs_listen(line, 0, 0)) < 0)
168 logf(LOG_FATAL, "cs_listen failed.");
173 logf(LOG_DEBUG, "listen ok");
174 iochan_setevent(h, EVENT_OUTPUT);
175 iochan_setflags(h, EVENT_OUTPUT | EVENT_EXCEPT); /* set up for acpt */
177 /* in dynamic mode, only the child ever comes down here */
178 else if (event == EVENT_OUTPUT)
183 if (!(new_line = cs_accept(line)))
185 logf(LOG_FATAL, "Accept failed.");
186 iochan_setflags(h, EVENT_INPUT | EVENT_EXCEPT); /* reset listener */
189 logf(LOG_DEBUG, "accept ok");
190 if (control_block.dynamic)
193 /* close our half of the listener sockets */
194 for (pp = iochan_getchan(); pp; pp = iochan_getnext(pp))
196 COMSTACK l = iochan_getdata(pp);
201 logf(LOG_DEBUG, "Releasing parent");
205 iochan_setflags(h, EVENT_INPUT | EVENT_EXCEPT); /* reset listener */
207 if (!(new_chan = iochan_create(cs_fileno(new_line), ir_session,
210 logf(LOG_FATAL, "Failed to create iochan");
213 if (!(newas = create_association(new_chan, new_line)))
215 logf(LOG_FATAL, "Failed to create new assoc.");
218 iochan_setdata(new_chan, newas);
219 logf(LOG_LOG, "accepted connection");
223 logf(LOG_FATAL, "Bad event on listener.");
229 * Set up a listening endpoint, and give it to the event-handler.
231 static void add_listener(char *where, int what)
235 char mode[100], addr[100];
239 if (!where || sscanf(where, "%[^:]:%s", mode, addr) != 2)
241 fprintf(stderr, "%s: Address format: ('tcp'|'osi')':'<address>.\n",
245 if (!strcmp(mode, "tcp"))
247 if (!(ap = tcpip_strtoaddr(addr)))
249 fprintf(stderr, "Address resolution failed for TCP.\n");
255 else if (!strcmp(mode, "osi"))
257 if (!(ap = mosi_strtoaddr(addr)))
259 fprintf(stderr, "Address resolution failed for TCP.\n");
267 fprintf(stderr, "You must specify either 'osi:' or 'tcp:'.\n");
270 logf(LOG_LOG, "Adding %s %s listener on %s",
271 control_block.dynamic ? "dynamic" : "static",
272 what == PROTO_SR ? "SR" : "Z3950", where);
273 if (!(l = cs_create(type, 0, what)))
275 logf(LOG_FATAL|LOG_ERRNO, "Failed to create listener");
278 if (cs_bind(l, ap, CS_SERVER) < 0)
280 logf(LOG_FATAL|LOG_ERRNO, "Failed to bind to %s", where);
283 if (!(lst = iochan_create(cs_fileno(l), listener, EVENT_INPUT |
286 logf(LOG_FATAL|LOG_ERRNO, "Failed to create IOCHAN-type");
289 iochan_setdata(lst, l);
292 static void catchchld(int num)
294 while (waitpid(-1, 0, WNOHANG) > 0);
295 signal(SIGCHLD, catchchld);
298 statserv_options_block *statserv_getcontrol(void)
300 static statserv_options_block cb;
302 memcpy(&cb, &control_block, sizeof(cb));
306 void statserv_setcontrol(statserv_options_block *block)
308 memcpy(&control_block, block, sizeof(*block));
311 int statserv_main(int argc, char **argv)
313 int ret, listeners = 0;
315 int protocol = control_block.default_proto;
318 while ((ret = options("a:szSl:v:", argv, argc, &arg)) != -2)
322 add_listener(arg, protocol);
325 case 'z': protocol = CS_Z3950; break;
326 case 's': protocol = CS_SR; break;
327 case 'S': control_block.dynamic = 0; break;
329 strcpy(control_block.logfile, arg);
330 log_init(control_block.loglevel, me, control_block.logfile);
333 control_block.loglevel = log_mask_str(arg);
334 log_init(control_block.loglevel, me, control_block.logfile);
337 strcpy(control_block.apdufile, arg); break;
339 fprintf(stderr, "Usage: %s [ -v <loglevel> -l <logfile> -zsS <listener-addr> ... ]\n", me);
342 if (control_block.dynamic)
343 signal(SIGCHLD, catchchld);
344 if (!listeners && *control_block.default_listen)
345 add_listener(control_block.default_listen, protocol);
346 logf(LOG_LOG, "Entering event loop.");