/*
 * A verbal system shutdown utility.
 * $Id: down.c 1.2 Mon, 24 Mar 1997 12:25:37 -0500 dyfet $
 * Copyright (c) 1997 by Tycho Softworks.
 * For conditions of distribution and reuse see product license.
 *
 * Abstract:
 *	A verbal system shutdown utility.  You may need to adjust the name 
 *	of the shutdown program used.  This gives some warning and then
 * 	initiates the shutdown processing, unless cancelled in time.
 */

#include <std/signal.h>
#include <proc/process.h>
#include <other/string.h>
#include <std/files.h>
#include <other/config.h>
#include <net/stream.h>

static	char	host[128] = "localhost";
static	char	halt[60] = "/sbin/halt";
static	char	abort_msg[] = "System shutdown overriden.  Resuming normal operation.\n";
static	char	down_msg[] = "%s system shutdown sequence initiated.  You have %d seconds to override.\n"; 
static	int	timer = 10;
static	STREAM	fp = NULL;

/*
 * If the user aborts the shutdown, then we send the cancellation message
 * and gracefully exit the scene.
 */

static	void	abort_sig()
{
	if(fp)
	{
		puttcp(abort_msg, fp);
		closetcp(fp);
	}
	fputs("\n", stdout);
	exit(-1);
}

void	main(int argc, char **argv)
{
	char	*p;
	char	*reboot = halt;
	int	port = getservice("speak");
	CONFIG	*cfg = sys_config("speak");
	char	hostname[128];

	if(argc < 1 || argc > 2)
		fatal(EX_USAGE, "use: down [timer]\n");

	if(!port)
		fatal(EX_UNAVAILABLE, "down: speak: service unlisted in /etc/services\n");

	if(!cfg)
		fatal(EX_CONFIG, "down: speak.conf: config missing\n");

	seek_config(cfg, "down");
	while(read_config(cfg))
	{
		if(NULL != (p = get_config(cfg, "timer")))
		{
			timer = atoi(p);
			continue;
		}

		if(NULL != (p = get_config(cfg, "halt")))
		{
			strcpy(halt, p);
			continue;
		}

		if(NULL != (p = get_config(cfg, "host")))
		{
			strcpy(host, p);
			continue;
		}

		if(NULL != (p = get_config(cfg, "server")))
		{
			strcpy(host, p);
			continue;
		}
	}
	close_config(cfg);
	if(argc > 1)
		timer = atoi(argv[1]);
	
	fp = opentcp(host, port);
	if(!fp)
		fatal(EX_UNAVAILABLE, "down: %s: speak service unreachable\n", host);

	printf("System shutdown initiated...use <break> to override; ");
	fflush(stdout);
	signal(SIGINT, abort_sig);
	gettcp(hostname, 127, fp);		
	gethostname(hostname, 80);	
	fprintf(fp, down_msg, hostname, timer);
	fflush(fp);
	sleep(strlen(down_msg) / 9 + 1);

	/* count down timer until 0 */
	
	while(timer)
	{
		printf("%d ", timer);
		fflush(stdout);
		fprintf(fp, "%d\n", timer);
		fflush(fp);
		sleep(1);
		--timer;
	}

	/* too late now!! */

	signal(SIGINT, SIG_IGN);
	printf("\n");
	closetcp(fp);

	/* detach return to user and execute reboot program */

	pdetach(D_KEEPALL);
	argv[0] = reboot;
	argv[1] = NULL;
	execvp(reboot, argv);
}