/*
 * CDDL HEADER START
 *
 * The contents of this file are subject to the terms of the
 * Common Development and Distribution License (the "License").
 * You may not use this file except in compliance with the License.
 *
 * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
 * or http://www.opensolaris.org/os/licensing.
 * See the License for the specific language governing permissions
 * and limitations under the License.
 *
 * When distributing Covered Code, include this CDDL HEADER in each
 * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
 * If applicable, add the following below this CDDL HEADER, with the
 * fields enclosed by brackets "[]" replaced with your own identifying
 * information: Portions Copyright [yyyy] [name of copyright owner]
 *
 * CDDL HEADER END
 */

/*
 * Copyright 2006 Sun Microsystems, Inc.  All rights reserved.
 * Use is subject to license terms.
 */

/*	Copyright (c) 1984, 1986, 1987, 1988, 1989 AT&T	*/
/*	  All Rights Reserved  	*/


#pragma ident	"@(#)getrequest.c	1.9	06/11/13 SMI"
/* EMACS_MODES: !fill, lnumb, !overwrite, !nodelete, !picture */

#include "stdio.h"
#include "string.h"
#include "errno.h"
#include "sys/types.h"
#include "stdlib.h"

#include "lp.h"
#include "requests.h"

extern struct {
	char			*v;
	short			len;
}			reqheadings[];

/**
 ** getrequest() - EXTRACT REQUEST STRUCTURE FROM DISK FILE
 **/

REQUEST *
#if	defined(__STDC__)
getrequest (
	char *			file
)
#else
getrequest (file)
	char			*file;
#endif
{
	REQUEST		*reqp;

	char			buf[BUFSIZ],
				*path,
				*p;

	int fd;

	int			fld;


	/*
	 * Full pathname? If so the file must lie in LP's
	 * regular temporary directory.
	 */
	if (*file == '/') {
		if (!STRNEQU(file, Lp_Tmp, strlen(Lp_Tmp))) {
			errno = EINVAL;
			return (0);
		}
		path = Strdup(file);

	/*
	 * A relative pathname (such as system/name)?
	 * If so we'll locate it under LP's regular temporary
	 * directory.
	 */
	} else if (strchr(file, '/')) {
		if (!(path = makepath(Lp_Tmp, file, (char *)0)))
			return (0);

	/*
	 * It must be a simple name. Locate this under the
	 * special temporary directory that is linked to the
	 * regular place for the local system.
	 */
	} else if (!(path = makepath(Lp_Temp, file, (char *)0)))
		return (0);
    

	if ((fd = open_locked(path, "r", 0)) < 0) {
		Free (path);
		return (0);
	}
	Free (path);

	reqp = calloc(sizeof (*reqp), 1);
	reqp->copies		= 1;
	reqp->priority		= -1;

	errno = 0;
	while (fdgets(buf, BUFSIZ, fd)) {

		buf[strlen(buf) - 1] = 0;

		for (fld = 0; fld < RQ_MAX; fld++)
			if (
				reqheadings[fld].v
			     && reqheadings[fld].len
			     && STRNEQU(
					buf,
					reqheadings[fld].v,
					reqheadings[fld].len
				)
			) {
				p = buf + reqheadings[fld].len;
				break;
			}

		/*
		 * To allow future extensions to not impact applications
		 * using old versions of this routine, ignore strange
		 * fields.
		 */
		if (fld >= RQ_MAX)
			continue;

		switch (fld) {

		case RQ_COPIES:
			reqp->copies = atoi(p);
			break;

		case RQ_DEST:
			reqp->destination = Strdup(p);
			break;

		case RQ_FILE:
			appendlist (&reqp->file_list, p);
			break;

		case RQ_FORM:
			if (!STREQU(p, NAME_ANY))
				reqp->form = Strdup(p);
			break;

		case RQ_HANDL:
			if (STREQU(p, NAME_RESUME))
				reqp->actions |= ACT_RESUME;
			else if (STREQU(p, NAME_HOLD))
				reqp->actions |= ACT_HOLD;
			else if (STREQU(p, NAME_IMMEDIATE))
				reqp->actions |= ACT_IMMEDIATE;
			break;

		case RQ_NOTIFY:
			if (STREQU(p, "M"))
				reqp->actions |= ACT_MAIL;
			else if (STREQU(p, "W"))
				reqp->actions |= ACT_WRITE;
			else if (STREQU(p, "N"))
				reqp->actions |= ACT_NOTIFY;
			else
				reqp->alert = Strdup(p);
			break;

		case RQ_OPTS:
			reqp->options = Strdup(p);
			break;

		case RQ_PRIOR:
			reqp->priority = atoi(p);
			break;

		case RQ_PAGES:
			reqp->pages = Strdup(p);
			break;

		case RQ_CHARS:
			if (!STREQU(p, NAME_ANY))
				reqp->charset = Strdup(p);
			break;

		case RQ_TITLE:
			reqp->title = Strdup(p);
			break;

		case RQ_MODES:
			reqp->modes = Strdup(p);
			break;

		case RQ_TYPE:
			reqp->input_type = Strdup(p);
			break;

		case RQ_USER:
			reqp->user = Strdup(p);
			break;

		case RQ_RAW:
			reqp->actions |= ACT_RAW;
			break;

		case RQ_FAST:
			reqp->actions |= ACT_FAST;
			break;

		case RQ_STAT:
			reqp->outcome = (ushort)strtol(p, (char **)0, 16);
			break;

		}

	}
	if (errno != 0) {
		int			save_errno = errno;

		close(fd);
		errno = save_errno;
		return (0);
	}
	close(fd);

	/*
	 * Now go through the structure and see if we have
	 * anything strange.
	 */
	if (
		reqp->copies <= 0
	     || !reqp->file_list || !*(reqp->file_list)
	     || reqp->priority < -1 || 39 < reqp->priority
	     || STREQU(reqp->input_type, NAME_ANY)
	     || STREQU(reqp->input_type, NAME_TERMINFO)
	) {
		freerequest (reqp);
		errno = EBADF;
		return (0);
	}

	/*
	 * Guarantee some return values won't be null or empty.
	 */
	if (!reqp->destination || !*reqp->destination) {
		if (reqp->destination)
			Free (reqp->destination);
		reqp->destination = Strdup(NAME_ANY);
	}
	if (!reqp->input_type || !*reqp->input_type) {
		if (reqp->input_type)
			Free (reqp->input_type);
		reqp->input_type = Strdup(NAME_SIMPLE);
	}

	return (reqp);
}