/* DVB CI Application Manager */
#include <stdio.h>
#include <string.h>
#include <unistd.h>
#include <stdlib.h>

#include "dvbci_appmgr.h"

static const char * FILENAME = "[dvbci_appmgr]";

eDVBCIApplicationManagerSession::eDVBCIApplicationManagerSession(tSlot *tslot)
{
	slot = tslot;
	slot->hasAppManager = true;
	slot->appSession = this;
}

eDVBCIApplicationManagerSession::~eDVBCIApplicationManagerSession()
{
	slot->hasAppManager = false;
	slot->appSession = NULL;
}

int eDVBCIApplicationManagerSession::receivedAPDU(const unsigned char *tag, const void *data, int len)
{
	printf("SESSION(%d)/APP %02x %02x %02x: ", session_nb, tag[0], tag[1], tag[2]);
	for (int i = 0; i < len; i++)
		printf("%02x ", ((const unsigned char*)data)[i]);
	printf("\n");

	if ((tag[0] == 0x9f) && (tag[1] == 0x80))
	{
		switch (tag[2])
		{
			case 0x21:
			{
				int dl;
				printf("application info:\n");
				printf("  len: %d\n", len);
				printf("  application_type: %d\n", ((unsigned char*)data)[0]);
				printf("  application_manufacturer: %02x %02x\n", ((unsigned char*)data)[2], ((unsigned char*)data)[1]);
				printf("  manufacturer_code: %02x %02x\n", ((unsigned char*)data)[4], ((unsigned char*)data)[3]);
				printf("  menu string: \n");
				dl = ((unsigned char*)data)[5];
				if ((dl + 6) > len)
				{
					printf("warning, invalid length (%d vs %d)\n", dl + 6, len);
					dl = len - 6;
				}
				char str[dl + 1];
				memcpy(str, ((char*)data) + 6, dl);
				str[dl] = '\0';
				for (int i = 0; i < dl; ++i)
					printf("%c", ((unsigned char*)data)[i + 6]);
				printf("\n");

				strcpy(slot->name, str);
				printf("%s set cam name %s on slot %d, %p\n", FILENAME, slot->name, slot->slot, slot);
				break;
			}
			default:
				printf("%s unknown APDU tag 9F 80 %02x\n", FILENAME, tag[2]);
				break;
		}
	}
	return 0;
}

int eDVBCIApplicationManagerSession::doAction()
{
	switch (state)
	{
		case stateStarted:
		{
			const unsigned char tag[3] = {0x9F, 0x80, 0x20};
			sendAPDU(tag);
			state = stateFinal;
			checkBlist();
			return 1;
		}
		case stateFinal:
			printf("in final state.");
			wantmenu = 0;
			if (wantmenu)
			{
				printf("%s wantmenu: sending Tenter_menu\n", FILENAME);
				const unsigned char tag[3] = {0x9F, 0x80, 0x22};
				sendAPDU(tag);
				wantmenu = 0;
				return 0;
			}
			else
				return 0;
		default:
			return 0;
	}
}

int eDVBCIApplicationManagerSession::startMMI()
{
	printf("%s -> %s\n", FILENAME, __func__);
	const unsigned char tag[3] = {0x9F, 0x80, 0x22};
	sendAPDU(tag);
	slot->mmiOpened = true;
	return 0;
}

bool eDVBCIApplicationManagerSession::readBlist()
{
	int rc, i;
	char cSid[4] = {0,0,0,0};
	u16 Sid;
	FILE *fd;
	char blacklist_file[32];

	sprintf(blacklist_file,"/etc/blacklist_slot_%d",slot->slot);

	if (access(blacklist_file, F_OK) != 0)
		return false;
	fd = fopen(blacklist_file,"r");
	if (!fd)
		return false;
	else
	{
		do
		{
			for (i = 0; i < 4; i++)
			{
				rc = fgetc(fd);
				if (rc == ',' || rc == EOF) break;
				cSid[i] = (char)rc;
			}
			if (rc == EOF) goto fin;
			if (i == 4)
			{
				Sid = (u16)strtol(cSid, NULL, 16);
				slot->bsids.push_back(Sid);
			}
		} while (rc != EOF);
fin:
		fclose(fd);
	}
	if (slot->bsids.size())
		return true;
	else
		return false;
}

int eDVBCIApplicationManagerSession::checkBlist()
{
	if (readBlist())
	{
		printf("Blacked sids: %d > ", slot->bsids.size());
		for (unsigned int i = 0; i < slot->bsids.size(); i++)
			printf("%04x ", slot->bsids[i]);
		printf("\n");
	}
	return 0;
}