/*
 * spark_fp - frontcontroller tool for SPARK boxes
 *
 * (C) 2012 Stefan Seyfried <seife@tuxboxcvs.slipkontur.de>
 *
 * License: GPL v2 or later
 *
 * This program is free software; you can redistribute it and/or
 * modify it under the terms of the GNU General Public License
 * as published by the Free Software Foundation; either version 2
 * of the License, or (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program. If not, see <http://www.gnu.org/licenses/>.
 */

#include <ctype.h>
#include <stdbool.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <sys/types.h>
#include <sys/stat.h>
#include <fcntl.h>
#include <time.h>
#include <unistd.h>
#include <sys/ioctl.h>
#include <aotom_main.h>

#define FP_DEV "/dev/vfd"

void usage()
{
	printf("usage spark_fp <option>\n");
	printf("\t-g: get wakeup reason (return code == reason)\n");
	printf("\t-T: get FP display type (1 = VFD, 2 = LCD, 4 = LED, 8 = LBD)\n");
	printf("\t-t: get current FP time\n");
	printf("\t-s <time>: set FP time (time = 0: use current time)\n");
	printf("\t-w <time>: set FP wakeup time and power down (time = 1: no wakeup)\n");
#ifdef MARTII
	printf("\t-l <n>: set LED <n> on\n");
	printf("\t-L <n>: set LED <n> off\n");
#endif
	printf("times are given in unix time (UTC, seconds since 1970-01-01 00:00:00)\n");
	printf("\n");
}

#if 0
double mod_julian_date(struct tm *t)
{
	double date;
	int month;
	int day;
	int year;

	year  = t->tm_year + 1900;
	month = t->tm_mon + 1;
	day   = t->tm_mday;

	date = day - 32076 +
		1461 * (year + 4800 + (month - 14) / 12) / 4 +
		367 *  (month - 2 -   (month - 14) / 12 * 12) / 12 -
		3 *   ((year + 4900 + (month - 14) / 12 ) / 100) / 4;

	date += (t->tm_hour + 12.0) / 24.0;
	date += (t->tm_min) / 1440.0;
	date += (t->tm_sec) / 86400.0;
	date -= 2400000.5;

	return date;
}
#endif

void time_to_aotom(time_t t, char *dest)
{
	/* from u-boot aotom */
	struct tm* tmp;
	tmp = localtime(&t);
#if 0
	/* this mjd stuff is totally useless: driver only uses dest[2] and dest[3]... */
	double mjd = mod_julian_date(tmp);
	int mjd_int = mjd;

	dest[0] = mjd_int >> 8;
	dest[1] = mjd_int & 0xff;
#else
	dest[0] = dest[1] = 0;
#endif
	dest[2] = tmp->tm_hour;
	dest[3] = tmp->tm_min;
	dest[4] = tmp->tm_sec;
}

int set_aotom_time(int fd, time_t t)
{
	struct tm *tmp;
	struct aotom_ioctl_data aotom;
	memset(&aotom, 0, sizeof(aotom));

	tmp = localtime(&t);
	t += tmp->tm_gmtoff;
	if (ioctl(fd, VFDSETTIME2, &t) >= 0)
		return 0;
	fprintf(stderr, "warning: VFDSETTIME2 failed (%m), falling back to VFDSETTIME\n");
	time_to_aotom(t, aotom.u.time.time);
	if (ioctl(fd, VFDSETTIME, &aotom) < 0)
	{
		perror("ioctl VFDSETTIME");
		return -1;
	}
	return 0;
}


int main(int argc, char **argv)
{
	const char *wakeupreason[4] = { "unknown", "poweron", "standby", "timer" };
	struct aotom_ioctl_data aotom;
	memset(&aotom, 0, sizeof(aotom));
	int ret, c, val;
	time_t t, t2, diff;
	struct tm *tmp;

	int fd = open(FP_DEV, O_RDWR);
	if (fd < 0)
	{
		fprintf(stderr, "error: cannot open %s: %m\n", FP_DEV);
		return 64;
	}

	if (argc == 1)
	{
		usage();
		return 0;
	}

	ret = 0;
#ifdef MARTII
	while ((c = getopt (argc, argv, "gs:tw:Tl:L:")) != -1)
#else
	while ((c = getopt (argc, argv, "gs:tw:T")) != -1)
#endif
	{
		switch (c)
		{
			case 'g':
				ret = ioctl(fd, VFDGETSTARTUPSTATE, &val);
				if (ret < 0)
					perror("ioctl VFDGETSTARTUPSTATE");
				else
				{
					printf("%s\n", wakeupreason[val & 0x03]);
					ret = val;
				}
				break;
			case 's':
				t = atol(optarg);
				if (t == 0)
					t = time(NULL),
				ret = set_aotom_time(fd, t);
				break;
			case 't':
				ret = ioctl(fd, VFDGETTIME, &t);
				if (ret < 0)
					perror("ioctl VFDGETTIME");
				else
				{
					tmp = localtime(&t);
					t -= tmp->tm_gmtoff;
					printf("%ld\n", t);
				}
				break;
			case 'w':
				t = atol(optarg);
				if (t == 0)
				{
					fprintf(stderr, "invalid time?\n");
					ret = 1;
					break;
				}
				/* set AOTOM time to current time... */
				t2 = time(NULL);
				ret = set_aotom_time(fd, t2);
				if (ret < 0)
					break;
				diff = t - t2;
#ifndef MARTII
				/* green LED off */
				aotom.u.led.on = LOG_OFF;
				aotom.u.led.led_nr = 1;
				ioctl(fd, VFDSETLED, &aotom);
				/* red LED on */
				aotom.u.led.on = LOG_ON;
				aotom.u.led.led_nr = 0;
				ioctl(fd, VFDSETLED, &aotom);
#endif
				if (t == 1)
					t = 0; /* t = 1 is magic for "no time" -> clear... */
				else
				{
					/* green LED on */
					aotom.u.led.on = LOG_ON;
					aotom.u.led.led_nr = 1;
					ioctl(fd, VFDSETLED, &aotom);
					ret = ioctl(fd, VFDGETTIME, &t);
					if (ret < 0)
					{
						perror("ioctl VFDGETTIME");
						break;
					}
					if (t < t2 + 20)
						diff = 20;
					t += diff;
				}
				tmp = gmtime(&t2);
				fprintf(stderr, "current time: %04d-%02d-%02d %02d:%02d:%02d\n", tmp->tm_year + 1900,
						tmp->tm_mon + 1, tmp->tm_mday, tmp->tm_hour, tmp->tm_min, tmp->tm_sec);
				tmp = gmtime(&t);
				fprintf(stderr, "wakeup time:  %04d-%02d-%02d %02d:%02d:%02d\n", tmp->tm_year + 1900,
						tmp->tm_mon + 1, tmp->tm_mday, tmp->tm_hour, tmp->tm_min, tmp->tm_sec);
				ret = ioctl(fd, VFDSTANDBY, &t);
				/* driver always returns einval here...
				if (ret < 0)
					perror("ioctl VFDSTANDBY");
				 */
				sleep(2); /* not reached... */
				break;
#ifdef MARTII
			case 'l': /* LED on */
				aotom.u.led.on = LOG_ON;
				aotom.u.led.led_nr = atoi(optarg);
				ioctl(fd, VFDSETLED, &aotom);
				break;
			case 'L': /* LED off */
				aotom.u.led.on = LOG_OFF;
				aotom.u.led.led_nr = atoi(optarg);
				ioctl(fd, VFDSETLED, &aotom);
				break;
#endif
			case 'T':
				ret = ioctl(fd, VFDGETVERSION, &val);
				if (ret < 0)
					perror("ioctl VFDGETVERSION");
				else
				{
					printf("%d\n", val);
					ret = val;
				}
				break;
			default:
				usage();
				return 0;
		}
	}
	close(fd);
	return ret;
}