clockrcon.c

WWVB receiver using AVR.

/* $Id: clockrcon.c,v 1.11 2005/12/07 16:16:10 simimeie Exp $
 * Clock Remote Controller
 */

#define BV _BV
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <unistd.h>
#include <netdb.h>
#include <sys/types.h>
#include <sys/socket.h>

struct ctrlpacket {
	unsigned char password[9];
	unsigned char cmd;
	unsigned char data[1000];
};

struct ctrlpacket packet1;

unsigned char ledfont[256] = {
	0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, /* 0x00 - 0x07 */
	0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, /* 0x08 - 0x0F */
	0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, /* 0x10 - 0x17 */
	0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, /* 0x18 - 0x1F */
	0x00, 0x11, 0x50, 0x00, 0x00, 0x00, 0x00, 0x10, /* 0x20 - 0x27 */
	0x6C, 0x36, 0x00, 0x00, 0x06, 0x80, 0x01, 0x98, /* 0x28 - 0x2F (2E=.) */
	0x7E, 0x12, 0xBC, 0xB6, 0xD2, 0xE6, 0xEE, 0x32, /* 0x30 - 0x37 (0 - 7) */
	0xFE, 0xF6, 0x00, 0x00, 0x00, 0x84, 0x00, 0x31, /* 0x38 - 0x3F (8 - 9, ?) */
	0x00, 0xFA, 0xCE, 0x6C, 0x9E, 0xEC, 0xE8, 0x6E, /* 0x40 - 0x47 (41=A) */
	0xDA, 0x12, 0x1E, 0x92, 0x4C, 0x7A, 0x8A, 0x8E, /* 0x48 - 0x4F (H-O) */
	0xF8, 0xF2, 0x88, 0xE6, 0xCC, 0x5E, 0x0E, 0x0F, /* 0x50 - 0x57 (P-W) */
	0xDB, 0xD6, 0xBC, 0x00, 0x00, 0x00, 0x00, 0x00, /* 0x58 - 0x5F (X-Z, ?) */
	0x00, 0xFA, 0xCE, 0x6C, 0x9E, 0xEC, 0xE8, 0x6E, /* 0x60 - 0x67 (61=a) */
	0xDA, 0x12, 0x1E, 0x92, 0x4C, 0x7A, 0x8A, 0x8E, /* 0x68 - 0x6F (h-o) */
	0xF8, 0xF2, 0x88, 0xE6, 0xCC, 0x5E, 0x0E, 0x0F, /* 0x70 - 0x77 (p-w) */
	0xDB, 0xD6, 0xBC, 0x00, 0x00, 0x00, 0x00, 0x00, /* 0x78 - 0x7F (x-z, ?) */
	0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, /* 0x80 - 0x87 */
	0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, /* 0x88 - 0x8F */
	0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, /* 0x90 - 0x97 */
	0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, /* 0x98 - 0x9F */
	0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, /* 0xA0 - 0xA7 */
	0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, /* 0xA8 - 0xAF */
	0xF0, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, /* 0xB0 - 0xB7 (b0=degree) */
	0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, /* 0xB8 - 0xBF */
	0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, /* 0xC0 - 0xC7 */
	0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, /* 0xC8 - 0xCF */
	0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, /* 0xD0 - 0xD7 */
	0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, /* 0xD8 - 0xDF */
	0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, /* 0xE0 - 0xE7 */
	0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, /* 0xE8 - 0xEF */
	0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, /* 0xF0 - 0xF7 */
	0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, /* 0xF8 - 0xFF */
			     };

int main(int argc, char ** argv) {
	struct hostent *hp;
	struct sockaddr_in sa;
	int sockout;
	int i, j, k;
	if (argc < 4) {
		fprintf(stderr, "Syntax: clockrcon targethost password command [data]\n");
		fprintf(stderr, "where targethost is the hostname or IP of the target\n");
		fprintf(stderr, "      password   is the password of the target\n");
		fprintf(stderr, "      command    is the number of the command:\n");
		fprintf(stderr, "                  1  Set Display Override\n");
		fprintf(stderr, "                  2  Set Digit Brightness\n");
		fprintf(stderr, "                  3  Set Clockface Brightness\n");
		fprintf(stderr, "      data       is additional data as needed by the command\n");
		return 1;
	}
	memset(packet1.password, 0, 9);
	strncpy(packet1.password, argv[2], 8);
	packet1.cmd = strtoul(argv[3], NULL, 10);
	if ((hp = gethostbyname(argv[1])) == NULL) {
		fprintf(stderr, "Oops ... unknown host \"%s\"\n", argv[1]);
		return 2;
	}
	memset((char *)&sa, 0, sizeof(sa));
	if (sizeof(sa.sin_addr) != hp->h_length) {
		fprintf(stderr, "Ooops - host \"%s\" resolves to non IPv4-address\n", argv[1]);
		return 2;
	}
	memcpy((char *)&sa.sin_addr, hp->h_addr, hp->h_length);
	sa.sin_family = hp->h_addrtype;
	sa.sin_port = htons(31337);
	sockout = socket(PF_INET, SOCK_DGRAM, 0);
	if (sockout < 0) {
		fprintf(stderr, "Could not create socket\n");
		return 3;
	}
	switch (packet1.cmd) {
	case 1: /* Display Override */
		/* In this case the data has to be 7 hexadecimal bytes */
		if ((argc != 11) && (argc != 12) && (argc != 5) && (argc != 6)) {
			fprintf(stderr, "Error: Command 1 needs either 7 hexadecimal values,\n");
			fprintf(stderr, "or a string as parameter\n");
			fprintf(stderr, "In both cases, one additional parameter that sets the\n");
			fprintf(stderr, "override duration may be given.\n");
			return 1;
		}
		if ((argc == 11) || (argc == 12)) {
			/* Raw data for the LED driver chip */
			for (i = 0; i < 7; i++) {
				packet1.data[i] = strtoul(argv[4+i], NULL, 16);
			}
			if (argc == 12) {
				packet1.data[7] = strtoul(argv[11], NULL, 10);
			} else {
				packet1.data[7] = 30; /* Default 5 sec */
			}
		} else {
			/* String - use our internal font. */
			printf("Using internal font for ");
			for (i = 0; i < 7; i++) {
				packet1.data[i] = 0;
			}
			j = strlen(argv[4]);
			k = 0;
			for (i = 0; (i+k) < ((j > 6+k) ? 6+k : j); i++) {
				printf("%02X ", ((unsigned char)(argv[4][i+k])));
				packet1.data[i] = ledfont[((unsigned char)(argv[4][i+k]))];
				if (argv[4][i+k+1] == '.') {
					switch(argv[4][i+k]) {
					case 0x30 ... 0x39: /* 0 - 9 */
					case 0x41 ... 0x5a: /* A - Z */
					case 0x61 ... 0x7a: /* a - z */
						packet1.data[i] |= 0x01;
						k++;
						break;
					};
				}
			}
			if (argc == 6) {
				packet1.data[7] = strtoul(argv[5], NULL, 10);
			} else {
				packet1.data[7] = 30; /* Default 5 sec */
			}
			printf("\n");
		}
		printf("Sending display override command with raw values: ");
		for (i = 0; i < 7; i++) {
			printf("%02X ", packet1.data[i]);
		}
		printf("\noverriding display for %3.1f seconds\n", (packet1.data[7] / 6.0));
		j = sendto(sockout, &packet1, 18, 0, (struct sockaddr *)&sa, sizeof(sa));
		if (j != 18) {
			fprintf(stderr, "Error sending packet.\n");
		}
		break;
	case 2: /* Set Display Brightness */
		if (argc != 5) {
			fprintf(stderr, "Error: Command 2 needs one parameter:\n");
			fprintf(stderr, "The Display brightness. Valid values are 0 - 7.\n");
			return 1;
		}
		packet1.data[0] = strtoul(argv[4], NULL, 10) & 0x07;
		printf("Setting display brightness to %d/7\n", packet1.data[0]);
		j = sendto(sockout, &packet1, 11, 0, (struct sockaddr *)&sa, sizeof(sa));
		if (j != 11) {
			fprintf(stderr, "Error sending packet.\n");
		}
		break;
	case 3: /* Set Clockface Brightness */
		if (argc != 5) {
			fprintf(stderr, "Error: Command 3 needs one parameter:\n");
			fprintf(stderr, "The Display brightness. Valid values are 0 - 31.\n");
			return 1;
		}
		packet1.data[0] = strtoul(argv[4], NULL, 10) & 0x1F;
		printf("Setting display brightness to %d/31\n", packet1.data[0]);
		j = sendto(sockout, &packet1, 11, 0, (struct sockaddr *)&sa, sizeof(sa));
		if (j != 11) {
			fprintf(stderr, "Error sending packet.\n");
		}
		break;
	default:
		fprintf(stderr, "Error: Command %u unknown.\n", packet1.cmd);
		return 2;
	};
	return 0;
}