#include	"calld.h"

int							/* return 0 if OK, -1 on error */
request(Client *cliptr)
{
	pid_t	pid;

	/*
	 * Position where this client left off last (or rewind).
	 */
	errmsg[0] = 0;
	sys_posn(cliptr->sysftell);
	while ((cliptr->sysftell = sys_next(&systems)) >= 0) {
		if (strcmp(cliptr->sysname, systems.name) == 0) {
			/*
			 * System match;
			 * if client specified a speed, it must match too.
			 */
			if (cliptr->speed[0] != 0 &&
				strcmp(cliptr->speed, systems.class) != 0)
					continue;	/* speeds don't match */

			DEBUG("trying sys: %s, %s, %s, %s", systems.name,
			  systems.type, systems.class, systems.phone);
			cliptr->foundone++;
			if (dev_find(&devices, &systems) < 0)
				break;

			DEBUG("trying dev: %s, %s, %s, %s", devices.type,
			  devices.line, devices.class, devices.dialer);
			if ((pid = is_locked(devices.line)) != 0) {
				sprintf(errmsg, "device `%s' already locked by pid %d\n",
				  devices.line, pid);
				continue;	/* look for another entry in Systems file */
			}

			/*
			 * We've found a device that's not locked.
			 * fork() a child to to the actual dialing.
			 */
			TELL_WAIT();
			if ((cliptr->pid = fork()) < 0) {
				log_sys("fork error");
			} else if (cliptr->pid == 0) {	/* child */
				WAIT_PARENT();		/* let parent set lock */
				child_dial(cliptr);	/* never returns */
			}

			/* parent */
			lock_set(devices.line, cliptr->pid);

			/*
			 * Let child resume, now that lock is set.
			 */
			TELL_CHILD(cliptr->pid);
			return(0);	/* we've started a child */
		}
	}

	/*
	 * Reached EOF on Systems file.
	 */
	if (cliptr->foundone == 0)
		sprintf(errmsg, "system `%s' not found\n", cliptr->sysname);
	else if (errmsg[0] == 0)
		sprintf(errmsg, "unable to connect to system `%s'\n",
		  cliptr->sysname);
	return(-1);		/* also, cliptr->sysftell is -1 */
}