#include <lib/system/info.h>

#include <lib/base/estring.h>
#include <lib/system/init.h>
#include <lib/system/init_num.h>

#include <sys/types.h>
#include <sys/stat.h>
#include <sys/ioctl.h>
#include <unistd.h>
#include <fcntl.h>
#include <lib/dvb/frontend.h>
#include <errno.h>
#if HAVE_DVB_API_VERSION == 3
#include <tuxbox.h>
#endif

eSystemInfo *eSystemInfo::instance;

eSystemInfo::eSystemInfo()
	:hashdd(0), hasci(0), hasrfmod(0), haslcd(0), hasnetwork(1)
	,haskeyboard(0) ,canmeasurelnbcurrent(0), hasnegfilter(0)
	,canupdateTransponder(0), canshutdown(1), canrecordts(0)
	,alphaincrement(10), hasstandbywakeuptimer(0), cantimeshift(0)
	,hasscartswitch(1)
{
	instance=this;
#if HAVE_DVB_API_VERSION == 3
	int fd=::open(DEMOD_DEV, O_RDONLY);
	fetype = feUnknown;
	if (fd>=0)
	{
		dvb_frontend_info info;
		if ( ::ioctl(fd, FE_GET_INFO, &info) >= 0 )
		{
			switch (info.type)
			{
				case FE_QPSK:
					fetype = feSatellite;
					break;
				case FE_QAM:
					fetype = feCable;
					break;
				default:
				case FE_OFDM:
					fetype = feTerrestrial;
					break;
			}
		}
		else
			eDebug("FE_GET_INFO failed (%m)");
		::close (fd);
	}
	else
		eDebug("open demod failed (%m)");
	std::set<int> caids;
	hasnegfilter=1;
	switch (tuxbox_get_submodel())
	{
		case TUXBOX_SUBMODEL_DREAMBOX_DM7000:
			defaulttimertype=ePlaylistEntry::RecTimerEntry|ePlaylistEntry::recDVR;
			canupdateTransponder = canrecordts = hashdd =
			haslcd = canmeasurelnbcurrent =
			hasci = 1;
			hwtype = DM7000;
//			caids.insert(0x4a70);
			midstr="5";
			helpstr="dreambox";
			modelstr="DM7000";
			cpustr="STB04500, 252MHz";
			break;
		case TUXBOX_SUBMODEL_DBOX2:
			defaulttimertype=ePlaylistEntry::RecTimerEntry|ePlaylistEntry::recDVR;
			caids.insert(0x1702);
			caids.insert(0x1722);
			caids.insert(0x1762);
			canrecordts=1;
			hasstandbywakeuptimer=haslcd=1;
			helpstr="dbox2";
			modelstr="d-Box 2";
			cpustr="XPC823, 66MHz";
			switch ( tuxbox_get_vendor() )
			{
				case TUXBOX_VENDOR_NOKIA:
					hwtype = dbox2Nokia;
					midstr="1";
					manufactstr="Nokia";
					break;
				case TUXBOX_VENDOR_PHILIPS:
					midstr="2";
					hwtype = dbox2Philips;
					manufactstr="Philips";
					break;
				case TUXBOX_VENDOR_SAGEM:
					midstr="3";
					hwtype = dbox2Sagem;
					manufactstr="Sagem";
					break;
				default:
					hwtype = Unknown;
			}
			break;
		default:
			hwtype = Unknown;
			break;
	}
#else
	int mid = atoi(getInfo("mID").c_str());

	switch (mid)
	{
		case 5 ... 7:
		case 9:
		case 11:
		case 12:
			manufactstr="Dream-Multimedia-TV";
			helpstr="dreambox";
			canupdateTransponder=haskeyboard=1;
			caids.insert(0x4a70);
			switch(mid)
			{
				case 5:
					midstr="5";
					modelstr="DM7000";
					cpustr="STB04500, 252MHz";
					hashdd = haslcd = canmeasurelnbcurrent = hasci
					= canrecordts = cantimeshift = 1;
					hwtype = DM7000;
					defaulttimertype=ePlaylistEntry::RecTimerEntry|ePlaylistEntry::recDVR;
					{
						// check if new FP Firmware is avail...
						int fd = open("/dev/dbox/fp0", O_RDWR);
						if ( fd >=0)
						{
#define FP_IOCTL_GET_ID 0
							int ret = ::ioctl(fd,FP_IOCTL_GET_ID);
							if ( ret < 0 )
								eDebug("old fp driver.. no support for wakeup timer");
							else if ( ret == 0 )
								eDebug("old fp firmware... no support for wakeup timer");
							else
								hasstandbywakeuptimer=1;
							close(fd);
						}
					}
					break;
				case 6:
					midstr="6";
					cpustr="STBx25xx, 252MHz";
					alphaincrement=25;
					canshutdown=0;
					hasci = 2;
					hwtype = getInfo("type", true) == "DM5600" ? DM5600 : DM5620;
					if ( hwtype == DM5600 )
					{
						defaulttimertype=ePlaylistEntry::SwitchTimerEntry;
						hasnetwork=0;
						modelstr="DM5600";
					}
					else
					{
						modelstr="DM5620";
						defaulttimertype=ePlaylistEntry::RecTimerEntry|ePlaylistEntry::recNgrab;
					}
					break;
				case 7:
					midstr="7";
					cpustr="STBx25xx, 252MHz";
					modelstr="DM500";
					alphaincrement=25;
					defaulttimertype=ePlaylistEntry::RecTimerEntry|ePlaylistEntry::recDVR|ePlaylistEntry::recNgrab;
					canshutdown=hasscartswitch=0;
					canrecordts=1;
					hwtype = DM500;
					break;
				case 9:
				{
					midstr="9";
					modelstr="DM7020";
					cpustr="STB04500, 252MHz";
					hasrfmod = hashdd = haslcd = hasci
					= canrecordts = hasstandbywakeuptimer = cantimeshift = 1;
					// check if the box revision is new enough to measure
					// lnb power with > 13V ( revisions with lnbp21 can this )
					int fd = open("/dev/dbox/fp0", O_RDWR);
					if ( fd >=0 )
					{
						if ( ::ioctl( fd, 0x100, 0 ) == 0 )
							canmeasurelnbcurrent=1;
						else
							canmeasurelnbcurrent=2;
						close(fd);
					}
					hwtype = DM7020;
					defaulttimertype=ePlaylistEntry::RecTimerEntry|ePlaylistEntry::recDVR;
					break;
				}
				case 11:
				{
					alphaincrement=25;
					midstr="11";
					modelstr="DM600PVR";
					cpustr="STBx25xx, 252MHz";
					hashdd = canrecordts = cantimeshift = 1;
					hasscartswitch = 0;
					hwtype = DM600PVR;
					defaulttimertype=ePlaylistEntry::RecTimerEntry|ePlaylistEntry::recDVR;
					break;
				}
				case 12:
				{
					alphaincrement=25;
					midstr="12";
					modelstr="DM500PLUS";
					cpustr="STBx25xx, 252MHz";
					defaulttimertype=ePlaylistEntry::RecTimerEntry|ePlaylistEntry::recNgrab;
					canrecordts=hasscartswitch=0;
					hwtype = DM500PLUS;
					break;
				}
			}
			break;
		case 1 ... 3:
			modelstr="d-Box 2";
			helpstr="dbox2";
			cpustr="XPC823, 66MHz";
			caids.insert(0x1702);
			caids.insert(0x1722);
			caids.insert(0x1762);
			defaulttimertype=ePlaylistEntry::RecTimerEntry|ePlaylistEntry::recNgrab;
			hasstandbywakeuptimer=haslcd=1;
			switch ( mid )
			{
				case 1:
					manufactstr="Nokia";
					midstr="1";
					hwtype = dbox2Nokia;
					break;
				case 2:
					manufactstr="Philips";
					midstr="2";
					hwtype = dbox2Philips;
					break;
				case 3:
					manufactstr="Sagem";
					midstr="3";
					hwtype = dbox2Sagem;
					break;
				default:
					break;
			}
			break;
		case 8:
			manufactstr="Triax";
			helpstr="dreambox";
			midstr="8";
			cpustr="STBx25xx, 252MHz";
			modelstr="DVB 272S";
			alphaincrement=25;
			defaulttimertype=ePlaylistEntry::RecTimerEntry|ePlaylistEntry::recNgrab;
			canshutdown=0;
			haskeyboard=canupdateTransponder=1;
			hwtype = TR_DVB272S;
			caids.insert(0x4a70);
			hasci=2;
			break;
		default:
			break;
	}
	int fd = open ("/dev/rfmod0", O_RDWR);
	if ( fd >= 0 )
	{
		hasrfmod=1;
		close(fd);
	}
	fd = open("/dev/dvb/card0/demux0", O_RDWR);
	if ( fd >=0 )
	{
		if ( ::ioctl( fd, DMX_SET_NEGFILTER_MASK, 0 ) >= 0 )
			hasnegfilter=1;
		close(fd);
	}
	if ( hwtype < DM7000 )
	{
		switch (atoi(getInfo("fe").c_str()))
		{
			case 0: // DBOX_FE_CABLE
				fetype=feCable;
				break;
			case 1: // DBOX_FE_SATELLITE
				fetype=feSatellite;
				break;
			default:
				fetype=feSatellite;
		}
	}
	else
	{
		fetype = feUnknown;
		int fd=::open(DEMOD_DEV, O_RDONLY);
		if (fd>=0)
		{
			FrontendInfo info;
			fetype = feSatellite;	// default
			if ( ::ioctl(fd, FE_GET_INFO, &info) >= 0 )
			{
				switch (info.type)
				{
					case FE_QPSK:
						fetype = feSatellite;
						break;
					case FE_QAM:
						fetype = feCable;
						break;
					case FE_OFDM:
						fetype = feTerrestrial;
						break;
				}
			}
			else
				eDebug("FE_GET_INFO failed (%m)");
			::close (fd);
		}
	}
#endif
}

#if HAVE_DVB_API_VERSION < 3
eString eSystemInfo::getInfo(const char *info, bool dreambox)
{
	FILE *f=0;
	if ( dreambox )
		f=fopen("/proc/bus/dreambox", "rt");
	else
		f=fopen("/proc/bus/dbox", "rt");
	if (!f)
		return "";
	eString result;
	while (1)
		{
		char buffer[128];
		if (!fgets(buffer, 128, f))
			break;
		if (strlen(buffer))
			buffer[strlen(buffer)-1]=0;
		if ((!strncmp(buffer, info, strlen(info)) && (buffer[strlen(info)]=='=')))
		{
			int i = strlen(info)+1;
			result = eString(buffer).mid(i, strlen(buffer)-i);
			break;
		}
	}
	fclose(f);
	return result;
}
#endif

eAutoInitP0<eSystemInfo> init_info(eAutoInitNumbers::sysinfo, "SystemInfo");