503 lines
9.0 KiB
C
Executable File
503 lines
9.0 KiB
C
Executable File
/* Copyright (c) 1984, 1986, 1987, 1988, 1989 AT&T */
|
|
/* All Rights Reserved */
|
|
|
|
/* THIS IS UNPUBLISHED PROPRIETARY SOURCE CODE OF AT&T */
|
|
/* The copyright notice above does not evidence any */
|
|
/* actual or intended publication of such source code. */
|
|
|
|
#ident "@(#)putprinter.c 1.3 90/03/01 SMI" /* SVr4.0 1.22 */
|
|
/* EMACS_MODES: !fill, lnumb, !overwrite, !nodelete, !picture */
|
|
|
|
#include "sys/types.h"
|
|
#include "sys/stat.h"
|
|
#include "stdio.h"
|
|
#include "string.h"
|
|
#include "errno.h"
|
|
#include "stdlib.h"
|
|
|
|
#include "lp.h"
|
|
#include "printers.h"
|
|
|
|
extern struct {
|
|
char *v;
|
|
short len,
|
|
okremote;
|
|
} prtrheadings[];
|
|
|
|
#if defined(__STDC__)
|
|
|
|
static void print_sdn (FILE *, char *, SCALED);
|
|
static void print_l (FILE *, char *, char **);
|
|
static void print_str (FILE *, char *, char *);
|
|
|
|
#else
|
|
|
|
static void print_sdn(),
|
|
print_l(),
|
|
print_str();
|
|
|
|
#endif
|
|
|
|
unsigned long ignprinter = 0;
|
|
|
|
/**
|
|
** putprinter() - WRITE PRINTER STRUCTURE TO DISK FILES
|
|
**/
|
|
|
|
int
|
|
#if defined(__STDC__)
|
|
putprinter (
|
|
char * name,
|
|
PRINTER * prbufp
|
|
)
|
|
#else
|
|
putprinter (name, prbufp)
|
|
char *name;
|
|
PRINTER *prbufp;
|
|
#endif
|
|
{
|
|
register char * path;
|
|
register char * stty;
|
|
register char * speed;
|
|
|
|
FILE * fp;
|
|
FILE * fpin;
|
|
|
|
int fld;
|
|
|
|
char buf[BUFSIZ];
|
|
|
|
struct stat statbuf1,
|
|
statbuf2;
|
|
|
|
|
|
badprinter = 0;
|
|
|
|
if (!name || !*name) {
|
|
errno = EINVAL;
|
|
return (-1);
|
|
}
|
|
|
|
if (STREQU(NAME_ALL, name)) {
|
|
errno = EINVAL;
|
|
return (-1);
|
|
}
|
|
|
|
/*
|
|
* First go through the structure and see if we have
|
|
* anything strange.
|
|
*/
|
|
if (!okprinter(name, prbufp, 1)) {
|
|
errno = EINVAL;
|
|
return (-1);
|
|
}
|
|
|
|
if (!Lp_A_Printers || !Lp_A_Interfaces) {
|
|
getadminpaths (LPUSER);
|
|
if (!Lp_A_Printers || !Lp_A_Interfaces)
|
|
return (0);
|
|
}
|
|
|
|
/*
|
|
* Create the parent directory for this printer
|
|
* if it doesn't yet exist.
|
|
*/
|
|
if (!(path = getprinterfile(name, (char *)0)))
|
|
return (-1);
|
|
if (Stat(path, &statbuf1) == 0) {
|
|
if (!(statbuf1.st_mode & S_IFDIR)) {
|
|
Free (path);
|
|
errno = ENOTDIR;
|
|
return (-1);
|
|
}
|
|
} else if (errno != ENOENT || mkdir_lpdir(path, MODE_DIR) == -1) {
|
|
Free (path);
|
|
return (-1);
|
|
}
|
|
Free (path);
|
|
|
|
/*
|
|
* Create the copy of the interface program, unless
|
|
* that would be silly or not desired.
|
|
* Conversely, make sure the interface program doesn't
|
|
* exist for a remote printer.
|
|
*/
|
|
if (prbufp->remote) {
|
|
if (!(path = makepath(Lp_A_Interfaces, name, (char *)0)))
|
|
return (-1);
|
|
(void)rmfile (path);
|
|
Free (path);
|
|
}
|
|
if (prbufp->interface && (ignprinter & BAD_INTERFACE) == 0) {
|
|
if (Stat(prbufp->interface, &statbuf1) == -1)
|
|
return (-1);
|
|
if (!(path = makepath(Lp_A_Interfaces, name, (char *)0)))
|
|
return (-1);
|
|
if (
|
|
Stat(path, &statbuf2) == -1
|
|
|| statbuf1.st_dev != statbuf2.st_dev
|
|
|| statbuf1.st_ino != statbuf2.st_ino
|
|
) {
|
|
register int n;
|
|
|
|
if (!(fpin = open_lpfile(prbufp->interface, "r", 0))) {
|
|
Free (path);
|
|
return (-1);
|
|
}
|
|
if (!(fp = open_lpfile(path, "w", MODE_EXEC))) {
|
|
Free (path);
|
|
close_lpfile (fpin);
|
|
return (-1);
|
|
}
|
|
while ((n = fread(buf, 1, BUFSIZ, fpin)) > 0)
|
|
fwrite (buf, 1, n, fp);
|
|
close_lpfile (fp);
|
|
close_lpfile (fpin);
|
|
}
|
|
Free (path);
|
|
}
|
|
|
|
/*
|
|
* If this printer is dialed up, remove any baud rates
|
|
* from the stty option list and move the last one to
|
|
* the ".speed" member if the ".speed" member isn't already
|
|
* set. Conversely, if this printer is directly connected,
|
|
* move any value from the ".speed" member to the stty list.
|
|
*/
|
|
|
|
stty = (prbufp->stty? Strdup(prbufp->stty) : 0);
|
|
if (prbufp->speed)
|
|
speed = Strdup(prbufp->speed);
|
|
else
|
|
speed = 0;
|
|
|
|
if (prbufp->dial_info && stty) {
|
|
register char *newstty,
|
|
*p,
|
|
*q;
|
|
|
|
register int len;
|
|
|
|
if (!(q = newstty = Malloc(strlen(stty) + 1))) {
|
|
Free (stty);
|
|
errno = ENOMEM;
|
|
return (-1);
|
|
}
|
|
newstty[0] = 0; /* start with empty copy */
|
|
|
|
for (
|
|
p = strtok(stty, " ");
|
|
p;
|
|
p = strtok((char *)0, " ")
|
|
) {
|
|
len = strlen(p);
|
|
if (strspn(p, "0123456789") == len) {
|
|
/*
|
|
* If "prbufp->speed" isn't set, then
|
|
* use the speed we just found. Don't
|
|
* check "speed", because if more than
|
|
* one speed was given in the list, we
|
|
* want the last one.
|
|
*/
|
|
if (!prbufp->speed) {
|
|
if (speed)
|
|
Free (speed);
|
|
speed = Strdup(p);
|
|
}
|
|
|
|
} else {
|
|
/*
|
|
* Not a speed, so copy it to the
|
|
* new stty string.
|
|
*/
|
|
if (q != newstty)
|
|
*q++ = ' ';
|
|
strcpy (q, p);
|
|
q += len;
|
|
}
|
|
}
|
|
|
|
Free (stty);
|
|
stty = newstty;
|
|
|
|
} else if (!prbufp->dial_info && speed) {
|
|
register char *newstty;
|
|
|
|
newstty = Malloc(strlen(stty) + 1 + strlen(speed) + 1);
|
|
if (!newstty) {
|
|
if (stty)
|
|
Free (stty);
|
|
errno = ENOMEM;
|
|
return (-1);
|
|
}
|
|
|
|
if (stty) {
|
|
strcpy (newstty, stty);
|
|
strcat (newstty, " ");
|
|
strcat (newstty, speed);
|
|
Free (stty);
|
|
} else
|
|
strcpy (newstty, speed);
|
|
Free (speed);
|
|
speed = 0;
|
|
|
|
stty = newstty;
|
|
|
|
}
|
|
|
|
/*
|
|
* Open the configuration file and write out the printer
|
|
* configuration.
|
|
*/
|
|
|
|
if (!(path = getprinterfile(name, CONFIGFILE))) {
|
|
if (stty)
|
|
Free (stty);
|
|
if (speed)
|
|
Free (speed);
|
|
return (-1);
|
|
}
|
|
if (!(fp = open_lpfile(path, "w", MODE_READ))) {
|
|
Free (path);
|
|
if (stty)
|
|
Free (stty);
|
|
if (speed)
|
|
Free (speed);
|
|
return (-1);
|
|
}
|
|
Free (path);
|
|
|
|
for (fld = 0; fld < PR_MAX; fld++) {
|
|
if (prbufp->remote && !prtrheadings[fld].okremote)
|
|
continue;
|
|
|
|
switch (fld) {
|
|
|
|
#define HEAD prtrheadings[fld].v
|
|
|
|
case PR_BAN:
|
|
(void)fprintf (
|
|
fp,
|
|
"%s %s",
|
|
HEAD,
|
|
prbufp->banner & BAN_OFF? NAME_OFF : NAME_ON
|
|
);
|
|
if (prbufp->banner & BAN_ALWAYS)
|
|
(void)fprintf (fp, ":%s", NAME_ALWAYS);
|
|
(void)fprintf (fp, "\n");
|
|
break;
|
|
|
|
case PR_CPI:
|
|
print_sdn (fp, HEAD, prbufp->cpi);
|
|
break;
|
|
|
|
case PR_CS:
|
|
if (!emptylist(prbufp->char_sets))
|
|
print_l (fp, HEAD, prbufp->char_sets);
|
|
break;
|
|
|
|
case PR_ITYPES:
|
|
/*
|
|
* Put out the header even if the list is empty,
|
|
* to distinguish no input types from the default.
|
|
*/
|
|
print_l (fp, HEAD, prbufp->input_types);
|
|
break;
|
|
|
|
case PR_DEV:
|
|
print_str (fp, HEAD, prbufp->device);
|
|
break;
|
|
|
|
case PR_DIAL:
|
|
print_str (fp, HEAD, prbufp->dial_info);
|
|
break;
|
|
|
|
case PR_RECOV:
|
|
print_str (fp, HEAD, prbufp->fault_rec);
|
|
break;
|
|
|
|
case PR_INTFC:
|
|
print_str (fp, HEAD, prbufp->interface);
|
|
break;
|
|
|
|
case PR_LPI:
|
|
print_sdn (fp, HEAD, prbufp->lpi);
|
|
break;
|
|
|
|
case PR_LEN:
|
|
print_sdn (fp, HEAD, prbufp->plen);
|
|
break;
|
|
|
|
case PR_LOGIN:
|
|
if (prbufp->login & LOG_IN)
|
|
(void)fprintf (fp, "%s\n", HEAD);
|
|
break;
|
|
|
|
case PR_PTYPE:
|
|
{
|
|
char **printer_types;
|
|
|
|
/*
|
|
* For backward compatibility for those who
|
|
* use only "->printer_type", we have to play
|
|
* some games here.
|
|
*/
|
|
if (prbufp->printer_type && !prbufp->printer_types)
|
|
printer_types = getlist(
|
|
prbufp->printer_type,
|
|
LP_WS,
|
|
LP_SEP
|
|
);
|
|
else
|
|
printer_types = prbufp->printer_types;
|
|
|
|
if (!printer_types || !*printer_types)
|
|
print_str (fp, HEAD, NAME_UNKNOWN);
|
|
else
|
|
print_l (fp, HEAD, printer_types);
|
|
|
|
if (printer_types != prbufp->printer_types)
|
|
freelist (printer_types);
|
|
break;
|
|
}
|
|
|
|
case PR_REMOTE:
|
|
print_str (fp, HEAD, prbufp->remote);
|
|
break;
|
|
|
|
case PR_SPEED:
|
|
print_str (fp, HEAD, speed);
|
|
break;
|
|
|
|
case PR_STTY:
|
|
print_str (fp, HEAD, stty);
|
|
break;
|
|
|
|
case PR_WIDTH:
|
|
print_sdn (fp, HEAD, prbufp->pwid);
|
|
break;
|
|
|
|
#if defined(CAN_DO_MODULES)
|
|
case PR_MODULES:
|
|
/*
|
|
* Put out the header even if the list is empty,
|
|
* to distinguish no modules from the default.
|
|
*/
|
|
print_l (fp, HEAD, prbufp->modules);
|
|
break;
|
|
#endif
|
|
}
|
|
|
|
}
|
|
if (stty)
|
|
Free (stty);
|
|
if (speed)
|
|
Free (speed);
|
|
if (ferror(fp)) {
|
|
close_lpfile (fp);
|
|
return (-1);
|
|
}
|
|
close_lpfile (fp);
|
|
|
|
/*
|
|
* If we have a description of the printer,
|
|
* write it out to a separate file.
|
|
*/
|
|
if (prbufp->description) {
|
|
|
|
if (!(path = getprinterfile(name, COMMENTFILE)))
|
|
return (-1);
|
|
|
|
if (dumpstring(path, prbufp->description) == -1) {
|
|
Free (path);
|
|
return (-1);
|
|
}
|
|
Free (path);
|
|
|
|
}
|
|
|
|
/*
|
|
* Now write out the alert condition.
|
|
*/
|
|
if (
|
|
prbufp->fault_alert.shcmd
|
|
&& putalert(Lp_A_Printers, name, &(prbufp->fault_alert)) == -1
|
|
)
|
|
return (-1);
|
|
|
|
return (0);
|
|
}
|
|
|
|
/**
|
|
** print_sdn() - PRINT SCALED DECIMAL NUMBER WITH HEADER
|
|
** print_l() - PRINT (char **) LIST WITH HEADER
|
|
** print_str() - PRINT STRING WITH HEADER
|
|
**/
|
|
|
|
static void
|
|
#if defined(__STDC__)
|
|
print_sdn (
|
|
FILE * fp,
|
|
char * head,
|
|
SCALED sdn
|
|
)
|
|
#else
|
|
print_sdn (fp, head, sdn)
|
|
FILE *fp;
|
|
char *head;
|
|
SCALED sdn;
|
|
#endif
|
|
{
|
|
if (sdn.val <= 0)
|
|
return;
|
|
|
|
(void)fprintf (fp, "%s ", head);
|
|
printsdn (fp, sdn);
|
|
|
|
return;
|
|
}
|
|
|
|
static void
|
|
#if defined(__STDC__)
|
|
print_l (
|
|
FILE * fp,
|
|
char * head,
|
|
char ** list
|
|
)
|
|
#else
|
|
print_l (fp, head, list)
|
|
FILE *fp;
|
|
char *head,
|
|
**list;
|
|
#endif
|
|
{
|
|
(void)fprintf (fp, "%s ", head);
|
|
printlist_setup (0, 0, LP_SEP, 0);
|
|
printlist (fp, list);
|
|
printlist_unsetup ();
|
|
|
|
return;
|
|
}
|
|
|
|
static void
|
|
#if defined(__STDC__)
|
|
print_str (
|
|
FILE * fp,
|
|
char * head,
|
|
char * str
|
|
)
|
|
#else
|
|
print_str (fp, head, str)
|
|
FILE *fp;
|
|
char *head,
|
|
*str;
|
|
#endif
|
|
{
|
|
if (!str || !*str)
|
|
return;
|
|
|
|
(void)fprintf (fp, "%s %s\n", head, str);
|
|
|
|
return;
|
|
}
|