/*
 * 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 2002 Sun Microsystems, Inc.  All rights reserved.
 * Use is subject to license terms.
 */

/*
 * date.c: support for the scadm date option (change/display service
 * processor date)
 */

#include <libintl.h>
#include <stdio.h>
#include <string.h>
#include <locale.h>
#include <langinfo.h>
#include <time.h>  /* required by rsc.h */

#include "librsc.h"
#include "adm.h"

static void ADM_Get_Date();
static void ADM_Set_Date(int argc, char *argv[]);
static int ADM_Decode_Date(char *String, dp_set_date_time_t *Date);
static int ADM_twodigits(char *s);
static void usage();

extern int cftime(char *, char *, const time_t *);

void
ADM_Process_date(int argc, char *argv[])
{
	static dp_set_date_time_t	DateTime;
	static char			date[40];
	time_t				currentTime;
	int				largc;
	char				*largv[3];

	if ((argc != 2) && (argc != 3)) {
		usage();
		exit(-1);
	}

	if (argc == 3) {
		if (strcasecmp(argv[2], "-s") != 0) {
			if (ADM_Decode_Date(argv[2], &DateTime) != 0) {
				usage();
				exit(-1);
			}
		}
	}

	ADM_Start();

	if (argc == 2) {
		ADM_Get_Date();
	} else if (argc == 3) {
		if (strcasecmp(argv[2], "-s") == 0) {
			currentTime = time(NULL);
			(void) cftime(date, "%m""%d""%H""%M""%Y", &currentTime);
			largc = 3;
			largv[0] = argv[0];
			largv[1] = argv[1];
			largv[2] = date;
			ADM_Set_Date(largc, largv);
		} else {
			ADM_Set_Date(argc, argv);
		}
	}
}


static void
ADM_Get_Date()
{
	rscp_msg_t		Message;
	struct timespec		Timeout;
	dp_get_date_time_r_t	*dateInfo;
	struct tm		*tp;
	char			buf[64];

	Message.type = DP_GET_DATE_TIME;
	Message.len  = 0;
	Message.data = NULL;

	ADM_Send(&Message);

	Timeout.tv_nsec = 0;
	Timeout.tv_sec  = ADM_TIMEOUT;
	ADM_Recv(&Message, &Timeout,
	    DP_GET_DATE_TIME_R, sizeof (dp_get_date_time_r_t));

	if (*(int *)Message.data != 0) {
		(void) fprintf(stderr, "\n%s\n\n",
		    gettext("scadm: could not read date from SC"));
		exit(-1);
	}

	dateInfo = (dp_get_date_time_r_t *)Message.data;

	/* Print the date */
	(void) setlocale(LC_ALL, "");
	tp = gmtime((time_t *)&dateInfo->current_datetime);
	(void) strftime(buf, 64, nl_langinfo(D_T_FMT), tp);
	(void) printf("%s\n", buf);

	ADM_Free(&Message);
}


static void
ADM_Set_Date(int argc, char *argv[])
{
	static dp_set_date_time_t	specTime;
	rscp_msg_t			Message;
	struct timespec			Timeout;

	if (argc < 3) {
		/* should have caught this earlier */
		(void) fprintf(stderr, "\n%s\n\n",
		    gettext("scadm: arguments error in set date"));
		exit(-1);
	}

	if (ADM_Decode_Date(argv[2], &specTime) != 0) {
		/* should have caught this earlier */
		(void) fprintf(stderr, "\n%s\n\n",
		    gettext("scadm: INTERNAL ERROR in set date"));
		exit(-1);
	}

	/* Correct month to be 0 - 11.  Why does firmware want this? */
	/* Correct year to be offset from 1900.  Why does firmware want this? */
	if (specTime.month != DP_SET_DATE_TIME_IGNORE_FIELD)
		specTime.month = specTime.month - 1;
	if (specTime.year != DP_SET_DATE_TIME_IGNORE_FIELD)
		specTime.year  = specTime.year  - 1900;

	Message.type = DP_SET_DATE_TIME;
	Message.len  = sizeof (dp_set_date_time_t);
	Message.data = &specTime;
	ADM_Send(&Message);

	Timeout.tv_nsec = 0;
	Timeout.tv_sec  = ADM_TIMEOUT;
	ADM_Recv(&Message, &Timeout,
	    DP_SET_DATE_TIME_R, sizeof (dp_set_date_time_r_t));

	if (*(int *)Message.data != 0) {
		(void) fprintf(stderr, "\n%s\n\n",
		    gettext("scadm: could not set date on SC"));
		exit(-1);
	}

	ADM_Free(&Message);
}


static int
ADM_twodigits(char *s)
{
	int n;

	n = ((s[0] - '0') * 10) + (s[1] - '0');
	return (n);
}


static int
ADM_Decode_Date(char *String, dp_set_date_time_t *Date)
{
	int		localDate;


	if (strlen(String) == 4) {

		/* HHMM */
		Date->month	= DP_SET_DATE_TIME_IGNORE_FIELD;
		Date->day	= DP_SET_DATE_TIME_IGNORE_FIELD;
		Date->hour	= ADM_twodigits(&String[0]);
		Date->minute	= ADM_twodigits(&String[2]);
		Date->second	= DP_SET_DATE_TIME_IGNORE_FIELD;
		Date->year	= DP_SET_DATE_TIME_IGNORE_FIELD;
		if (((int)Date->hour < 0) || (Date->hour > 23))
			return (-1);
		if (((int)Date->minute < 0) || (Date->minute > 59))
			return (-1);

	} else if (strlen(String) == 7) {

		/* HHMM.SS */
		Date->month	= DP_SET_DATE_TIME_IGNORE_FIELD;
		Date->day	= DP_SET_DATE_TIME_IGNORE_FIELD;
		Date->hour	= ADM_twodigits(&String[0]);
		Date->minute	= ADM_twodigits(&String[2]);
		Date->second	= ADM_twodigits(&String[5]);
		Date->year	= DP_SET_DATE_TIME_IGNORE_FIELD;
		if (((int)Date->hour < 0) || (Date->hour > 23))
			return (-1);
		if (((int)Date->minute < 0) || (Date->minute > 59))
			return (-1);
		if (((int)Date->second < 0) || (Date->second > 59))
			return (-1);

	} else if (strlen(String) == 8) {

		/* mmddHHMM */
		Date->month	= ADM_twodigits(&String[0]);
		Date->day	= ADM_twodigits(&String[2]);
		Date->hour	= ADM_twodigits(&String[4]);
		Date->minute	= ADM_twodigits(&String[6]);
		Date->second	= DP_SET_DATE_TIME_IGNORE_FIELD;
		Date->year	= DP_SET_DATE_TIME_IGNORE_FIELD;
		if ((Date->month < 1) || (Date->month > 12))
			return (-1);
		if ((Date->day < 1) || (Date->day > 31))
			return (-1);
		if (((int)Date->hour < 0) || (Date->hour > 23))
			return (-1);
		if (((int)Date->minute < 0) || (Date->minute > 59))
			return (-1);

	} else if (strlen(String) == 11) {

		/* mmddHHMM.SS */
		Date->month  = ADM_twodigits(&String[0]);
		Date->day    = ADM_twodigits(&String[2]);
		Date->hour   = ADM_twodigits(&String[4]);
		Date->minute = ADM_twodigits(&String[6]);
		Date->second = ADM_twodigits(&String[9]);
		Date->year   = DP_SET_DATE_TIME_IGNORE_FIELD;
		if ((Date->month < 1) || (Date->month > 12))
			return (-1);
		if ((Date->day < 1) || (Date->day > 31))
			return (-1);
		if (((int)Date->hour < 0) || (Date->hour > 23))
			return (-1);
		if (((int)Date->minute < 0) || (Date->minute > 59))
			return (-1);
		if (((int)Date->second < 0) || (Date->second > 59))
			return (-1);

	} else if (strlen(String) == 10) {

		/* mmddHHMMyy */
		Date->month	= ADM_twodigits(&String[0]);
		Date->day	= ADM_twodigits(&String[2]);
		Date->hour	= ADM_twodigits(&String[4]);
		Date->minute	= ADM_twodigits(&String[6]);
		Date->second	= DP_SET_DATE_TIME_IGNORE_FIELD;
		localDate	= ADM_twodigits(&String[8]);
		if (localDate > 70)
			Date->year = localDate + 1900;
		else
			Date->year = localDate + 2000;

		if ((Date->month < 1) || (Date->month > 12))
			return (-1);
		if ((Date->day < 1) || (Date->day > 31))
			return (-1);
		if (((int)Date->hour < 0) || (Date->hour > 23))
			return (-1);
		if (((int)Date->minute < 0) || (Date->minute > 59))
			return (-1);
		if ((Date->year < 1970) || (Date->year > 2038))
			return (-1);

	} else if (strlen(String) == 13) {

		/* mmddHHMMyy.SS */
		Date->month	= ADM_twodigits(&String[0]);
		Date->day	= ADM_twodigits(&String[2]);
		Date->hour	= ADM_twodigits(&String[4]);
		Date->minute	= ADM_twodigits(&String[6]);
		Date->second	= ADM_twodigits(&String[11]);
		localDate	= ADM_twodigits(&String[8]);
		if (localDate > 70)
			Date->year = localDate + 1900;
		else
			Date->year = localDate + 2000;

		if ((Date->month < 1) || (Date->month > 12))
			return (-1);
		if ((Date->day < 1) || (Date->day > 31))
			return (-1);
		if (((int)Date->hour < 0) || (Date->hour > 23))
			return (-1);
		if (((int)Date->minute < 0) || (Date->minute > 59))
			return (-1);
		if ((Date->year < 1970) || (Date->year > 2038))
			return (-1);
		if (((int)Date->second < 0) || (Date->second > 59))
			return (-1);

	} else if (strlen(String) == 12) {

		/* mmddHHMMccyy */
		Date->month	= ADM_twodigits(&String[0]);
		Date->day	= ADM_twodigits(&String[2]);
		Date->hour	= ADM_twodigits(&String[4]);
		Date->minute	= ADM_twodigits(&String[6]);
		Date->second	= DP_SET_DATE_TIME_IGNORE_FIELD;
		Date->year	= (ADM_twodigits(&String[8]) * 100) +
		    ADM_twodigits(&String[10]);
		if ((Date->month < 1) || (Date->month > 12))
			return (-1);
		if ((Date->day < 1) || (Date->day > 31))
			return (-1);
		if (((int)Date->hour < 0) || (Date->hour > 23))
			return (-1);
		if (((int)Date->minute < 0) || (Date->minute > 59))
			return (-1);
		if ((Date->year < 1970) || (Date->year > 2038))
			return (-1);

	} else if (strlen(String) == 15) {

		/* mmddHHMMccyy.SS */
		Date->month  = ADM_twodigits(&String[0]);
		Date->day    = ADM_twodigits(&String[2]);
		Date->hour   = ADM_twodigits(&String[4]);
		Date->minute = ADM_twodigits(&String[6]);
		Date->second = ADM_twodigits(&String[13]);
		Date->year   = (ADM_twodigits(&String[8]) * 100) +
		    ADM_twodigits(&String[10]);
		if ((Date->month < 1) || (Date->month > 12))
			return (-1);
		if ((Date->day < 1) || (Date->day > 31))
			return (-1);
		if (((int)Date->hour < 0) || (Date->hour > 23))
			return (-1);
		if (((int)Date->minute < 0) || (Date->minute > 59))
			return (-1);
		if ((Date->year < 1970) || (Date->year > 2038))
			return (-1);
		if (((int)Date->second < 0) || (Date->second > 59))
			return (-1);

	} else {
		return (-1);
	}

	return (0);
}


static void
usage()
{
	(void) fprintf(stderr, "\n%s\n\n",
	    gettext("USAGE: scadm date [-s] "
	    "| [[mmdd]HHMM | mmddHHMM[cc]yy][.SS]\n"
	    "       1  <=  mm  <= 12\n"
	    "       1  <=  dd  <= 31\n"
	    "       1  <=  HH  <= 23\n"
	    "       0  <=  MM  <= 59\n"
	    "     1970 <= ccyy <= 2038\n"
	    "       0  <=  SS  <= 59"));
}