// FlisServerDlg.cpp : implementation file
//

#include "stdafx.h"
#include "FlisServer.h"
#include "FlisServerDlg.h"
#include <vector>
#include ".\flisserverdlg.h"

#ifdef _DEBUG
#define new DEBUG_NEW
#endif


// CAboutDlg dialog used for App About

class CAboutDlg : public CDialog
{
public:
	CAboutDlg();

// Dialog Data
	enum { IDD = IDD_ABOUTBOX };

	protected:
	virtual void DoDataExchange(CDataExchange* pDX);    // DDX/DDV support

// Implementation
protected:
	DECLARE_MESSAGE_MAP()
};

CAboutDlg::CAboutDlg() : CDialog(CAboutDlg::IDD)
{
}

void CAboutDlg::DoDataExchange(CDataExchange* pDX)
{
	CDialog::DoDataExchange(pDX);
}

BEGIN_MESSAGE_MAP(CAboutDlg, CDialog)
END_MESSAGE_MAP()


// CFlisServerDlg dialog



CFlisServerDlg::CFlisServerDlg(CWnd* pParent /*=NULL*/)
	: CDialog(CFlisServerDlg::IDD, pParent)
{
	m_hIcon = AfxGetApp()->LoadIcon(IDR_MAINFRAME);
}

void CFlisServerDlg::DoDataExchange(CDataExchange* pDX)
{
	CDialog::DoDataExchange(pDX);
	DDX_Control(pDX, IDC_Textwindow, m_Textwindow);
}

BEGIN_MESSAGE_MAP(CFlisServerDlg, CDialog)
	ON_WM_SYSCOMMAND()
	ON_WM_PAINT()
	ON_WM_QUERYDRAGICON()
	//}}AFX_MSG_MAP
	ON_BN_CLICKED(IDCLOSE, OnBnClickedClose)
	ON_BN_CLICKED(IDC_GSMPIN, OnBnClickedGsmpin)
	ON_BN_CLICKED(IDC_Start, OnBnClickedStart)
END_MESSAGE_MAP()


// CFlisServerDlg message handlers

BOOL CFlisServerDlg::OnInitDialog()
{
	CDialog::OnInitDialog();

	// Add "About..." menu item to system menu.

	// IDM_ABOUTBOX must be in the system command range.
	ASSERT((IDM_ABOUTBOX & 0xFFF0) == IDM_ABOUTBOX);
	ASSERT(IDM_ABOUTBOX < 0xF000);

	CMenu* pSysMenu = GetSystemMenu(FALSE);
	if (pSysMenu != NULL)
	{
		CString strAboutMenu;
		strAboutMenu.LoadString(IDS_ABOUTBOX);
		if (!strAboutMenu.IsEmpty())
		{
			pSysMenu->AppendMenu(MF_SEPARATOR);
			pSysMenu->AppendMenu(MF_STRING, IDM_ABOUTBOX, strAboutMenu);
		}
	}

	// Set the icon for this dialog.  The framework does this automatically
	//  when the application's main window is not a dialog
	SetIcon(m_hIcon, TRUE);			// Set big icon
	SetIcon(m_hIcon, FALSE);		// Set small icon

	// TODO: Add extra initialization here
	StartSerial();
	DBConnect();
	ResetSms = 0;
	
	return TRUE;  // return TRUE  unless you set the focus to a control
}

void CFlisServerDlg::OnSysCommand(UINT nID, LPARAM lParam)
{
	if ((nID & 0xFFF0) == IDM_ABOUTBOX)
	{
		CAboutDlg dlgAbout;
		dlgAbout.DoModal();
	}
	else
	{
		CDialog::OnSysCommand(nID, lParam);
	}
}

// If you add a minimize button to your dialog, you will need the code below
//  to draw the icon.  For MFC applications using the document/view model,
//  this is automatically done for you by the framework.

void CFlisServerDlg::OnPaint() 
{
	if (IsIconic())
	{
		CPaintDC dc(this); // device context for painting

		SendMessage(WM_ICONERASEBKGND, reinterpret_cast<WPARAM>(dc.GetSafeHdc()), 0);

		// Center icon in client rectangle
		int cxIcon = GetSystemMetrics(SM_CXICON);
		int cyIcon = GetSystemMetrics(SM_CYICON);
		CRect rect;
		GetClientRect(&rect);
		int x = (rect.Width() - cxIcon + 1) / 2;
		int y = (rect.Height() - cyIcon + 1) / 2;

		// Draw the icon
		dc.DrawIcon(x, y, m_hIcon);
	}
	else
	{
		CDialog::OnPaint();
	}
}

// The system calls this function to obtain the cursor to display while the user drags
//  the minimized window.
HCURSOR CFlisServerDlg::OnQueryDragIcon()
{
	return static_cast<HCURSOR>(m_hIcon);
}
int CFlisServerDlg::StartSerial(void)
{
	
	int Baud;

	ConfigFile config;
	try {
		config.ReadSettings();
	} catch(...) {
		MessageBox("Could not open config file");
		OnOK();
		return true;
	}
	
	Baud = 1200;
	if( Serial.isOpen() )
	{
		try
		{
			Serial.close();
			Serial.open( config.comport, Baud );
		}
		catch (exception* e)
		{
			MessageBox( "Serial.open() exception" );
			return 0;
		}
	}
	else
	{
		try
		{
			Serial.open( config.comport, Baud );
		}
		catch (exception* e)
		{
			MessageBox( "Serial.open() exception 2" );
			return 0;
		}
	}
	
		
return 0;
}
std::vector<unsigned char> CFlisServerDlg::readFrame()
{
	std::vector<unsigned char> buf;
	while(Serial.getComstat().cbInQue > 0)
	{
		unsigned char data = Serial.readByte();

		buf.push_back(data);
	}
	return buf;
}

void CFlisServerDlg::writeFrame(std::vector<unsigned char> data)
{
	for (int i=0; i<data.size(); i++)
	{
		Serial.writeByte( data[i] );
		Sleep(5);
	}
	Serial.writeByte(0x0D);
	Sleep(100);

}
void CFlisServerDlg::SetPin()
{
	CString tekst;
	std::vector<unsigned char> data;
	data.push_back('a');
	data.push_back('t');
	data.push_back('+');
	data.push_back('c');
	data.push_back('p');
	data.push_back('i');
	data.push_back('n');
	data.push_back('=');
	data.push_back('2');
	data.push_back('5');
	data.push_back('9');
	data.push_back('5');

	writeFrame(data);
}
void CFlisServerDlg::SendSmsData(std::vector<unsigned char> data)
{	
	
	for (int i=0; i<data.size(); i++)
	{
		Serial.writeByte( data[i] );
		Sleep(5);
	}
	Serial.writeByte(0x1A);
	Sleep(3000);
	if(Serial.getComstat().cbInQue > 0)
	{
		CString tekst;
		std::vector<unsigned char> answer = readFrame();
		Sleep(50);

		for (int i=0; i<answer.size(); i++)
			{
				if ((answer[i] != 0x0A) && (answer[i] != 0x0D))
				{
					tekst.AppendChar(answer[i]);
				}
			}
			AppendText(tekst);
	}

}
void CFlisServerDlg::SendSmsHead(std::vector<unsigned char> tlfnr)
{
	vector<unsigned char> atcommand;
	atcommand.push_back('a');
	atcommand.push_back('t');
	atcommand.push_back('+');
	atcommand.push_back('c');
	atcommand.push_back('m');
	atcommand.push_back('g');
	atcommand.push_back('s');
	atcommand.push_back('=');
	atcommand.push_back('"');
	int s = (atcommand.size() -1 );
	
	for (int i=0; i<(atcommand.size()); i++)
	{
		Serial.writeByte( atcommand[i] );
		Sleep(5);
	}
	
	for (int i=0; i<tlfnr.size(); i++)
	{
		Serial.writeByte( tlfnr[i] );
		Sleep(5);
	}
	Serial.writeByte(atcommand[s]);
	Serial.writeByte(0x0D);
	Sleep(250);
}
void CFlisServerDlg::DBConnect()
{
	CString dsn;
	ConfigFile config;
	try {
		config.ReadSettings();
	} catch(...) {
		MessageBox("Could not open config file");
	}
	
	dsn.Format("ODBC;Description=asd;DRIVER=PostgreSQL ANSI;SERVER=%s; uid=%s;password=%s;database=%s;sslmode=prefer",config.host,config.username, config.password, config.database);
	db.OpenEx(dsn, CDatabase::noOdbcDialog);
}
vector<Commands> CFlisServerDlg::DBReadCommands(void)
{
	vector<Commands> buffer;

	CString SQL, IDnr, CommandID, InstallationsID;
	SQL = "select id,date_trunc('second', created) as created,executed,commandid,installationid from command WHERE executed IS NULL ORDER BY created ASC LIMIT 1;";
	CRecordset rs(&db);
	rs.Open(AFX_DB_USE_DEFAULT_TYPE, SQL);
	if (rs.GetRecordCount()>0) 
	{
		rs.MoveFirst();
			
		Commands Mycom;
		rs.GetFieldValue((short)0, IDnr);
		rs.GetFieldValue(3, CommandID);
		rs.GetFieldValue(4, InstallationsID);
		
		Mycom.IDnr = IDnr;
		Mycom.CommandID = CommandID;
		Mycom.InstallationsID = InstallationsID;

		buffer.push_back(Mycom);
		rs.MoveNext();

	}
	rs.Close();
	return buffer;
}
void CFlisServerDlg::ReadSms()
{
	CString tekst, oldtekst;
	Sleep(950);		//Holder en pause for at lade hele sms'en komme ind i serial køen.
	if(Serial.getComstat().cbInQue > 0)
	{
		std::vector<unsigned char> answer = readFrame();
		Sleep(50);

			for (int i=0; i<answer.size(); i++)
			{
				if ((answer[i] != 0x0A) && (answer[i] != 0x0D))
				{
					tekst.AppendChar(answer[i]);
				}
			}

			AppendText(tekst);
			SmsSplit(tekst);
	}
}
void CFlisServerDlg::SmsSplit(CString data)
{
	CString FyrData, TlfNr, SmsCount, Temper, Flamme, Flis, FremFejl, PowerFail, oldtekst;
	char CharData[150];
	strcpy(CharData,data);
	TlfNr = data.Mid(24,8);
	FyrData = data.Mid(57,data.GetLength()-59);
	FyrData.Append(":");
	
	SmsCount = Splitter(FyrData);
	Temper = Splitter(FyrData);
	Flamme = Splitter(FyrData);
	Flis = Splitter(FyrData);
	FremFejl = Splitter(FyrData);
	PowerFail = Splitter(FyrData);
		
		CString SQL, Textwindow, InstallNR;
		SQL.Format("select ID from installation where installationphonenr=%s",TlfNr);
	
		CRecordset rs(&db);
		rs.Open(AFX_DB_USE_DEFAULT_TYPE, SQL);
		if (rs.GetRecordCount()>0)
		{
			rs.MoveFirst();		
			rs.GetFieldValue((short)0,InstallNR);
		}
		rs.Close();

		SQL.Format("insert into logtable (logtime,temperature,flamedetector,solidfuelempty,conveyorerror,powerfailure,messagenr,installationnr) Values (now(),%s,'%s','%s','%s','%s',%s,%s)",Temper, Flamme, Flis, FremFejl, PowerFail, SmsCount,InstallNR);
		try
		{
		db.ExecuteSQL(SQL);
		}
		catch(CDBException* e)
		{
			MessageBox(e->m_strError);
		}
		AppendText("Sms added to Log");
		Sleep(150);
}
CString CFlisServerDlg::Splitter(CString& fyrdata)
{
	CString Output;

	int pos = fyrdata.Find(':',0);
	if (pos != -1)
		{
			Output = fyrdata.Left(pos);
			fyrdata = fyrdata.Right( fyrdata.GetLength() - pos -1);
		}
	return Output;
}
void CFlisServerDlg::OnBnClickedClose()
{
	// TODO: Add your control notification handler code here
	continueThread = 0;
	DeleteSms();

	Sleep(500);
	if( Serial.isOpen() )
	{
		Serial.close();
	}
	
	if(db.IsOpen())
	{
		db.Close();
	}
	
	OnOK();

}

void CFlisServerDlg::OnBnClickedGsmpin()
{
	// TODO: Add your control notification handler code here
	m_Textwindow.SetWindowText("Indsætter Pinkode, efterfuldt af 60sec pause");
	UpdateWindow();
	SetPin();
	Sleep(50000);

	while (Serial.getComstat().cbInQue > 0)
	{
		Serial.readByte(); //Flush the incoming queue
	}

	OnBnClickedStart();
}
void CFlisServerDlg::DeleteSms()
{
	vector<unsigned char> atcommand;
	atcommand.push_back('a');
	atcommand.push_back('t');
	atcommand.push_back('+');
	atcommand.push_back('c');
	atcommand.push_back('m');
	atcommand.push_back('g');
	atcommand.push_back('d');
	atcommand.push_back('=');
	atcommand.push_back('1');
	atcommand.push_back(',');
	atcommand.push_back('3');

	writeFrame(atcommand);
	Sleep(500);
}
UINT threadWrapper(LPVOID thread)
{
	CFlisServerDlg *t = (CFlisServerDlg*) thread;
	t->runthread();
	return 0;
}

void CFlisServerDlg::startthread()
{
	AfxBeginThread(threadWrapper, (LPVOID) this);
}

void CFlisServerDlg::runthread()
{
	while (continueThread != 0) 
	{
		Reader();
	}
}
void CFlisServerDlg::Reader()
{
	if(Serial.getComstat().cbInQue > 0)
		{
			Sleep(250);
			std::vector<unsigned char> answer = readFrame();
			Sleep(500);
			CString tekst, oldtekst;
			int lol;
		
			for (int i=0; i<answer.size(); i++)
			{
				if ((answer[i] != 0x0A) && (answer[i] != 0x0D))
				{
					tekst.AppendChar(answer[i]);
				}
			}
			tekst.Append(":");

			CString command;
			bool plus;
				int pos = tekst.Find('+',0);
				if (pos != -1)
				{
					plus = true;
					tekst = tekst.Right( tekst.GetLength() - pos -1);
					pos = tekst.Find(':');
					command = tekst.Left(pos);
					tekst = tekst.Right( tekst.GetLength() - pos -1);
				}
			
			
			if(tekst.MakeLower() == "ok")
			{	
				AppendText("OK tekst modtaget");
			}
			else if (tekst.MakeLower() == "error")
			{
				CString send;
				send.Append("error tekst");
				send.Append("\r\n");
				send.Append(tekst);
				AppendText(send);
			}
			else if (plus == true)
			{
				if (command.MakeLower() == "cmti")
				{
					CString smscount, oldteskst;
					int pos = tekst.Find(',',0);
					if (pos != -1)
					{
						smscount = tekst.Right( tekst.GetLength() - pos -1);
						smscount.Remove(':');
						ResetSms++;
					}
						////////////////Read sms ting//////////////////
						std::vector<unsigned char> data;
						data.push_back('a');
						data.push_back('t');
						data.push_back('+');
						data.push_back('c');
						data.push_back('m');
						data.push_back('g');
						data.push_back('r');
						data.push_back('=');
						
						for (int i=0; i< smscount.GetLength(); i++)
						{
							data.push_back(smscount[i]);
						}
						m_Textwindow.GetWindowText(oldteskst);
						oldteskst.Append("\r\n");
						for (int i=0; i<data.size();i++)
						{
							oldteskst.AppendChar(data[i]);
						}
						m_Textwindow.SetWindowText(oldteskst);
						writeFrame(data);
						Sleep(200);
						ReadSms();
						ResetSms++;

				}
				else if(command.MakeLower() == "wind")
				{

					CString send;
					send.Append("Wind modtaget");
					send.Append("\r\n");
					send.Append(tekst);
					AppendText(send);
				}
			}
			else
			{
				CString send;
				send.Append("Anden tekst end forventet");
				send.Append("\r\n");
				send.Append(tekst);
				AppendText(send);
			}
			if(ResetSms == 20)
			{
				DeleteSms();
				AppendText("Sms'er slettet da vi nåede grænsen");
			}

		}
		if (continueThread == 1)
		{
			
			CString testdata, dataframe,testprint, sIDnr, sCommandID, sInstallationsID, sImei;
			int commandtest = 0;
			int iAll = 1;
			std::vector<Commands> data;
			data = DBReadCommands();
			for (int i=0; i<data.size(); i++)
			{
				sIDnr = data[i].IDnr;
				sCommandID = data[i].CommandID;
				commandtest = atoi(data[i].CommandID);
				sInstallationsID = "0";

				if(commandtest > 1)
				{
					sInstallationsID = data[i].InstallationsID;
				}
			}
			
			if (commandtest > 1)
			{
				iAll = 0;
			}

			if (sIDnr.GetLength() > 0)
			{
				SendConfig(sIDnr,sCommandID,sInstallationsID);
			}
			Sleep(500);
		}
}
void CFlisServerDlg::SendConfig(CString IDnr,CString CommandID,CString InstallationsID)
{
	CString ServerTlfNr;
	int i = 0;
	ServerTlfNr = "29860132";
		
	
	std::vector<Installation> inst;
	inst = DBReadPhone(InstallationsID);
	while (i < inst.size())
	{
		CString TlfNr, Imei, updaterate;
		TlfNr.Empty();
		Imei.Empty();
		updaterate.Empty();

		CString dataen = inst[i].InstPhoneNr;
		TlfNr.Append(dataen);
		CString Imeidata = inst[i].Imei;
		Imei.Append(Imeidata);
		CString updaterat = inst[i].Updaterate;
		updaterate.Append(updaterat);
		i++;
	
	vector<unsigned char> tlfnr;
	for (int i=0; i<TlfNr.GetLength(); i++)
	{
		tlfnr.push_back(TlfNr[i]);
	}
	
	int calcimei; 
	__int64 buf;

	buf = atof(Imei);
	
	calcimei = tversum(buf);
	
	Imei.Format("%d",calcimei);
	
	SendSmsHead(tlfnr);
	Sleep(250);
	
	vector<unsigned char> smsdata;
	
	for (int i=0; i<Imei.GetLength(); i++)
	{
		smsdata.push_back(Imei[i]);
	}
	smsdata.push_back(':');
	for (int i=0; i<ServerTlfNr.GetLength(); i++)
	{
		smsdata.push_back(ServerTlfNr[i]);
	}
	smsdata.push_back(':');
	for (int i=0; i<updaterate.GetLength(); i++)
	{
		smsdata.push_back(updaterate[i]);
	}

	SendSmsData(smsdata);
	Sleep(500);
	
	}
		CString SQL, Textwindow;
		SQL.Format("update command set executed=now() where id=%s",IDnr);
		db.ExecuteSQL(SQL);
		AppendText("Command executed");
		Sleep(150);

}
vector<Installation> CFlisServerDlg::DBReadPhone(CString sInstallationsID)
{
	vector<Installation> buffer;

	CString SQL, phonenr, imei, updaterate;
	int installernull;
	Installation Myinst;
	installernull = atoi(sInstallationsID);
	if (installernull > 1)
	{
		SQL.Format("select installationphonenr, imei, updaterate from installation WHERE id = %s", sInstallationsID);
	}
	else if(installernull < 2)
	{
		SQL.Format("select installationphonenr, imei, updaterate from installation");
	}
	CRecordset rs(&db);
	rs.Open(AFX_DB_USE_DEFAULT_TYPE, SQL);
	if (rs.GetRecordCount()>0) 
	{
		rs.MoveFirst();
		while(!rs.IsEOF())
		{
		
			rs.GetFieldValue((short)0,phonenr);
			rs.GetFieldValue(1,imei);
			rs.GetFieldValue(2,updaterate);

			Myinst.InstPhoneNr = phonenr;
			Myinst.Imei = imei;
			Myinst.Updaterate = updaterate;

			buffer.push_back(Myinst);
			rs.MoveNext();
		}
	}
	rs.Close();
	return buffer;
}
int CFlisServerDlg::tversum(__int64 input)
{
	int sum = 0;
	while (input > 0)
	{
		sum += (input %10);
		input /= 10;
	}
	return sum;
}
void CFlisServerDlg::OnBnClickedStart()
{
// TODO: Add your control notification handler code here

	continueThread = 1;
	m_Textwindow.SetWindowText("Started");
	AfxBeginThread(threadWrapper,AfxGetMainWnd());
}
void CFlisServerDlg::AppendText(CString s)
{
	CString Tekst;
	m_Textwindow.GetWindowText(Tekst);
	Tekst.Append("\r\n");
	Tekst.Append(s);
	m_Textwindow.SetWindowText(Tekst);

}
void ConfigFile::ReadSettings()
{
	ifstream file("Server-Settings.ini");
	if (!file.is_open())
		throw("Could not open file");

	char buf[200];
	while (!file.eof() ) {
		file.getline(buf,200);
		CString tmp(buf);

		if (tmp.GetAt(0) == '#')
			continue;

		int pos = tmp.Find('=');
		if (pos>0) {
			CString key = tmp.Left(pos).Trim().MakeLower();;
			CString value = tmp.Right(tmp.GetLength()-pos-1).Trim();

			if (key == "host")
				host = value;
			else if (key == "username")
				username = value;
			else if (key == "password")
				password = value;
			else if (key == "database")
				database = value;
			else if (key == "comport")
				comport = value;
		}

	}

	file.close();
}