/*
 * This utility retrieves a dump of all stored SMS records in PDU mode.
 */

#include <sys/types.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <strings.h>
#include <unistd.h>
#include "../../rvinterf/include/exitcodes.h"
#include "resp_parse.h"

extern char at_response[];

struct delafter {
	unsigned	msgid;
	struct delafter	*next;
};

int delete_after_flag;
struct delafter *delafter_head, **delafter_tail = &delafter_head;

int pdu_state;
char *msgtype;
u_char pbname_gsm[40];
unsigned pbname_len, header_len;
u_char pdu_bin[176];

add_delafter_record(msgid)
	unsigned msgid;
{
	struct delafter *rec;

	rec = malloc(sizeof(struct delafter));
	if (!rec)
		return;
	rec->msgid = msgid;
	rec->next = 0;
	*delafter_tail = rec;
	delafter_tail = &rec->next;
}

validate_pbname_7bit()
{
	unsigned n;

	for (n = 0; n < pbname_len; n++)
		if (pbname_gsm[n] & 0x80)
			return(-1);
	return(0);
}

cmgl_header()
{
	struct resp_field fields[4];
	int cc;

	/* skip empty lines */
	if (!at_response[1])
		return;
	/* if not empty, it MUST be +CMGL */
	if (strncmp(at_response+1, "+CMGL: ", 7)) {
		fprintf(stderr, "error: response from target is not +CMGL\n");
		exit(ERROR_TARGET);
	}
	if (parse_structured_response(at_response+8, fields, 4) != 4) {
malformed:	fprintf(stderr, "error: malformed +CMGL response\n");
		exit(ERROR_TARGET);
	}
	if (fields[0].type != RESP_FIELD_NUMBER ||
	    fields[1].type != RESP_FIELD_NUMBER ||
	    fields[3].type != RESP_FIELD_NUMBER)
		goto malformed;
	if (fields[2].type != RESP_FIELD_STRING &&
	    fields[2].type != RESP_FIELD_EMPTY)
		goto malformed;
	if (delete_after_flag)
		add_delafter_record(fields[0].num);
	switch (fields[1].num) {
	case 0:
	case 1:
		msgtype = "Received";
		break;
	case 2:
		msgtype = "Stored unsent";
		break;
	case 3:
		msgtype = "Sent";
		break;
	default:
		fprintf(stderr,
		"error: invalid message status code in +CMGL response\n");
		exit(ERROR_TARGET);
	}
	if (fields[2].type == RESP_FIELD_STRING) {
		cc = decode_hex_line(fields[2].str, pbname_gsm,
					sizeof pbname_gsm);
		if (cc >= 1) {
			pbname_len = cc;
			if (validate_pbname_7bit() < 0)
				pbname_len = 0;
		} else
			pbname_len = 0;
	} else
		pbname_len = 0;
	header_len = fields[3].num;
	pdu_state = 1;
}

emit_pb_name()
{
	fputs("Phonebook-Name: ", stdout);
	print_gsm7_string_to_file(pbname_gsm, pbname_len, stdout);
	putchar('\n');
}

cmgl_pdu()
{
	int cc;
	unsigned sca_len;

	cc = decode_hex_line(at_response+1, pdu_bin, sizeof pdu_bin);
	if (cc < 1) {
		fprintf(stderr, "error: expected PDU not received\n");
		exit(ERROR_TARGET);
	}
	sca_len = pdu_bin[0];
	if (1 + sca_len + header_len != cc) {
		fprintf(stderr, "error: PDU length mismatch\n");
		exit(ERROR_TARGET);
	}
	printf("%s message:\n", msgtype);
	if (pbname_len)
		emit_pb_name();
	puts(at_response+1);
	putchar('\n');
	pdu_state = 0;
}

cmgl_callback()
{
	if (pdu_state)
		cmgl_pdu();
	else
		cmgl_header();
}

delete_after_process()
{
	struct delafter *rec;
	char cmgd_cmd[32];

	for (rec = delafter_head; rec; rec = rec->next) {
		sprintf(cmgd_cmd, "AT+CMGD=%u", rec->msgid);
		atinterf_exec_cmd_needok(cmgd_cmd, (char *) 0, (void *) 0);
	}
}

main(argc, argv)
	char **argv;
{
	int c;
	extern int optind;

	while ((c = getopt(argc, argv, "B:dnp:RX:")) != EOF) {
		if (atinterf_cmdline_opt(c))
			continue;
		else if (c == 'd')
			delete_after_flag = 1;
		else {
			/* error msg already printed */
			exit(ERROR_USAGE);
		}
	}
	if (argc != optind) {
		fprintf(stderr, "usage: %s [options]\n", argv[0]);
		exit(ERROR_USAGE);
	}
	atinterf_init();
	/* enable verbose error messages */
	atinterf_exec_cmd_needok("AT+CMEE=2", (char *) 0, (void *) 0);
	/* put the 07.05 modem in PDU mode */
	atinterf_exec_cmd_needok("AT+CMGF=0", (char *) 0, (void *) 0);
	/* HEX charset for phonebook names */
	atinterf_exec_cmd_needok("AT+CSCS=\"HEX\"", (char *) 0, (void *) 0);
	/* main command */
	atinterf_exec_cmd_needok("AT+CMGL=4", (char *) 0, cmgl_callback);
	if (pdu_state) {
		fprintf(stderr, "error: wrong state at the end of +CMGL\n");
		exit(ERROR_TARGET);
	}
	if (delete_after_flag)
		delete_after_process();
	/* be nice and restore IRA charset for manual AT command users */
	atinterf_exec_cmd_needok("AT+CSCS=\"IRA\"", (char *) 0, (void *) 0);
	exit(0);
}