/*
 * 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  	*/

/* EMACS_MODES: !fill, lnumb, !overwrite, !nodelete, !picture */

#include "lpsched.h"
#include <syslog.h>

static char *
shortenReason(char *reason)
{
	register char	*ptr, *pe;
	int		peLen;

	if (strncmp(reason,"%%[",3) == 0)
		reason += 3;

	while (*reason == ' ')
		reason++;

	pe = "PrinterError:";
	peLen = strlen(pe);
	if (strncmp(reason,pe,peLen) == 0)
		reason += peLen;

	if (((ptr = strchr(reason,']')) != NULL) && (strncmp(ptr,"]%%",3) == 0))
		*ptr = 0;

	pe = reason + strlen(reason) -1;
	pe = reason;
	while (pe = strchr(pe,'\n'))
		*pe = ' ';

	pe = reason + strlen(reason) -1;
	while ((pe > reason) && (*pe == ' ')) {
		*pe = 0;
		pe--;
	}
	return(reason);
}

/**
 ** printer_fault() - RECOGNIZE PRINTER FAULT
 **/

void
printer_fault(register PSTATUS *pps, register RSTATUS *prs, char *alert_text,
	 int err)
{
	register char		*why,*shortWhy;

	pps->status |= PS_FAULTED;

	/*  -F wait  */
	if (STREQU(pps->printer->fault_rec, NAME_WAIT))
		disable (pps, CUZ_FAULT, DISABLE_STOP);

	/*  -F beginning  */
	else if (STREQU(pps->printer->fault_rec, NAME_BEGINNING))
		terminate (pps->exec);

	/*  -F continue  AND  the interface program died  */
	else if (!(pps->status & PS_LATER) && !pps->request) {
		load_str (&pps->dis_reason, CUZ_STOPPED);
		schedule (EV_LATER, WHEN_PRINTER, EV_ENABLE, pps);
	}

	if (err) {
		errno = err;
		why = makestr(alert_text, "(", PERROR, ")\n", (char *)0);
	} else if (! alert_text)
		why = makestr("exec exit fault", (char *) 0);
	else
		why = makestr(alert_text, (char *) 0);

	if (!why)
		why = alert_text;

	shortWhy = (why != alert_text ? shortenReason(why) : why);

	load_str (&pps->fault_reason, shortWhy);
	dump_fault_status (pps);
	if (STREQU(pps->printer->fault_alert.shcmd,"show fault"))
		pps->status |= PS_SHOW_FAULT;
	else
		pps->status &= ~PS_SHOW_FAULT;

	note("printer fault. type: %s, status: %x\nmsg: (%s)\n",
		(pps->printer->fault_alert.shcmd ?
		    pps->printer->fault_alert.shcmd : "??"),
		pps->status, shortWhy);

	if (pps->status & PS_SHOW_FAULT)
		schedule (EV_MESSAGE, pps);
	else {
		alert(A_PRINTER, pps, prs, shortWhy);
	}
	if (why != alert_text)
		Free (why);
}

/**
 ** clear_printer_fault() - RECOGNIZE PRINTER FAULT
 **/

void
clear_printer_fault(register PSTATUS *pps, char *alert_text)
{
	register char	*why, *shortWhy;

	pps->status &= ~PS_FAULTED;

	why = makestr(alert_text, (char *) 0);

	shortWhy = (why ? shortenReason(why) : alert_text);

	load_str (&pps->fault_reason, shortWhy);
	dump_fault_status (pps);
	if (STREQU(pps->printer->fault_alert.shcmd,"show fault"))
		pps->status |= PS_SHOW_FAULT;
	else
		pps->status &= ~PS_SHOW_FAULT;

	if (pps->status & PS_SHOW_FAULT)
		schedule (EV_MESSAGE, pps);
	if (why != alert_text)
		Free(why);
	schedule(EV_ENABLE, pps);
}

/**
 ** dial_problem() - ADDRESS DIAL-OUT PROBLEM
 **/

void
dial_problem(register PSTATUS *pps, RSTATUS *prs, int rc)
{
	static struct problem {
		char			*reason;
		int			retry_max,
					dial_error;
	}			problems[] = {
		"DIAL FAILED",			10,	 2, /* D_HUNG  */
		"CALLER SCRIPT FAILED",		10,	 3, /* NO_ANS  */
		"CAN'T ACCESS DEVICE",		 0,	 6, /* L_PROB  */
		"DEVICE LOCKED",		20,	 8, /* DV_NT_A */
		"NO DEVICES AVAILABLE",		 0,	10, /* NO_BD_A */
		"SYSTEM NOT IN Systems FILE",	 0,	13, /* BAD_SYS */
		"UNKNOWN dial() FAILURE",	 0,	0
	};

	register struct problem	*p;

	register char		*msg;

#define PREFIX	"Connect problem: "
#define SUFFIX	"This problem has occurred several times.\nPlease check the dialing instructions for this printer.\n"


	for (p = problems; p->dial_error; p++)
		if (p->dial_error == rc)
			break;

	if (!p->retry_max) {
		msg = Malloc(strlen(PREFIX) + strlen(p->reason) + 2);
		sprintf (msg, "%s%s\n", PREFIX, p->reason);
		printer_fault (pps, prs, msg, 0);
		Free (msg);

	} else if (pps->last_dial_rc != rc) {
		pps->nretry = 1;
		pps->last_dial_rc = (short)rc;

	} else if (pps->nretry++ > p->retry_max) {
		pps->nretry = 0;
		pps->last_dial_rc = (short)rc;
		msg = Malloc(
		strlen(PREFIX) + strlen(p->reason) + strlen(SUFFIX) + 2
		);
		sprintf (msg, "%s%s%s\n", PREFIX, p->reason, SUFFIX);
		printer_fault (pps, prs, msg, 0);
		Free (msg);
	}

	if (!(pps->status & PS_FAULTED)) {
		load_str (&pps->dis_reason, p->reason);
		schedule (EV_LATER, WHEN_PRINTER, EV_ENABLE, pps);
	}

	return;
}