/*
* CDDL HEADER START
*
* The contents of this file are subject to the terms of the
* Common Development and Distribution License, Version 1.0 only
* (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 1997 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 "%Z%%M% %I% %E% SMI" /* SVr4.0 1.14 */
/* 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 "form.h"
/*
* getform() - EXTRACT FORM STRUCTURE FROM DISK FILE
*
* The FILE **align_fp doesn't need to be changed for scalability, because
* it is always NULL when getform is called by lpsched.
*/
int
getform(char *name, FORM *formp, FALERT *alertp, FILE **align_fp)
{
static long lastdir = -1;
int fd;
register char * path;
if (!name || !*name) {
errno = EINVAL;
return (-1);
}
/*
* Getting ``all''? If so, jump into the directory
* wherever we left off.
*/
if (STREQU(NAME_ALL, name)) {
if (!(name = next_dir(Lp_A_Forms, &lastdir)))
return (-1);
} else
lastdir = -1;
/*
* Get the form configuration information (?)
*/
if (formp) {
path = getformfile(name, DESCRIBE);
if (!path)
return (-1);
if ((fd = open_locked(path, "r", 0)) < 0) {
Free (path);
return (-1);
}
Free (path);
if (rdform(name, formp, fd, 0, (int *)0) == -1) {
close(fd);
return (-1);
}
close(fd);
}
/*
* Get the alert information (?)
*/
if (alertp) {
FALERT * pa = getalert(Lp_A_Forms, name);
/*
* Don't fail if we can't read it because of access
* permission UNLESS we're "root" or "lp"
*/
if (!pa) {
if (errno == ENOENT) {
alertp->shcmd = 0;
alertp->Q = alertp->W = -1;
} else if (errno == ENOTDIR) {
freeform (formp);
errno = ENOENT; /* form doesn't exist */
return (-1);
} else if (
errno != EACCES
|| !getpid() /* we be root */
|| STREQU(getname(), LPUSER) /* we be lp */
) {
freeform (formp);
return (-1);
}
} else
*alertp = *pa;
}
/*
* Get the alignment pattern (?)
*/
if (align_fp) {
path = getformfile(name, ALIGN_PTRN);
if (!path) {
freeform (formp);
errno = ENOMEM;
return (-1);
}
if (
!(*align_fp = open_lpfile(path, "r", 0))
&& errno != ENOENT
) {
Free (path);
freeform (formp);
return (-1);
}
Free (path);
}
return (0);
}