// 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()
	ON_MESSAGE(UWM_MYMESSAGE, OnShowString)
	//}}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;
	CString SerialPort = "COM3";

	Baud = 1200;
	if( Serial.isOpen() ){
		Serial.close();
		Serial.open( SerialPort, Baud );
	}
	else {
		Serial.open( SerialPort, Baud );
	}

		
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);
/*	Sleep(750);
	if(Serial.getComstat().cbInQue > 0)
	{
		std::vector<unsigned char> answer = readFrame();
		Sleep(50);
			char array1[25];
			int i;
			for (int i=0; i<answer.size(); i++)
			{
				array1[i] = answer[i];
			}
		
			for (int i=0; i<answer.size(); i++)
			{
				if ((array1[i] != 0x0A) && (array1[i] != 0x0D))
				{
					tekst.AppendChar(array1[i]);
				}
			}
			m_Textwindow.SetWindowText(tekst);
	}
*/
}
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);
			char array1[150];
			int i;
			for (int i=0; i<answer.size(); i++)
			{
				array1[i] = answer[i];
			}
		
			for (int i=0; i<answer.size(); i++)
			{
				if ((array1[i] != 0x0A) && (array1[i] != 0x0D))
				{
					tekst.AppendChar(array1[i]);
				}
			}
			m_Textwindow.SetWindowText(tekst);
	}

}
void CFlisServerDlg::SendSmsHead(std::vector<unsigned char> data)
{
	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<data.size(); i++)
	{
		Serial.writeByte( data[i] );
		Sleep(5);
	}
	Serial.writeByte(atcommand[s]);
	Serial.writeByte(0x0D);
	Sleep(250);
}
void CFlisServerDlg::DBConnect()
{
	CString dsn;
	//dsn.Format("ODBC;Description=asd;DRIVER=PostgreSQL ANSI;SERVER=t-hoerup.dk; uid=serrenab;password=furnacemonitor;database=flisfyr;sslmode=prefer");	//Torben
	dsn.Format("ODBC;Description=asd;DRIVER=PostgreSQL ANSI;SERVER=192.168.134.132; uid=serrenab;password=furnacemonitor;database=flisfyr;sslmode=prefer");   //skole server
	db.OpenEx(dsn, CDatabase::noOdbcDialog);
}
vector<Commands> CFlisServerDlg::DBRead(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;";
	CRecordset rs(&db);
	rs.Open(AFX_DB_USE_DEFAULT_TYPE, SQL);
	if (rs.GetRecordCount()>0) 
	{
		rs.MoveFirst();
		while(!rs.IsEOF())
		{
			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);
	if(Serial.getComstat().cbInQue > 0)
	{
		std::vector<unsigned char> answer = readFrame();
		Sleep(50);
			char array1[250];
			int i;
			for (int i=0; i<answer.size(); i++)
			{
				array1[i] = answer[i];
			}
		
			for (int i=0; i<answer.size(); i++)
			{
				if ((array1[i] != 0x0A) && (array1[i] != 0x0D))
				{
					tekst.AppendChar(array1[i]);
				}
			}

			m_Textwindow.GetWindowText(oldtekst);
			oldtekst.Append("\r\n");
			oldtekst.Append(tekst);
			m_Textwindow.SetWindowText(oldtekst);
			SmsSplit(tekst);
	}
}
void CFlisServerDlg::SmsSplit(CString data)
{
	CString FyrData, TlfNr, SmsCount, Temper, Flamme, Flis, FremFejl, PowerFail, oldtekst;
	char CharData[150];
	strcpy(CharData,data);

	int s=24;
	for (int i=0; i<=7; i++)
	{
		TlfNr.AppendChar(CharData[s]);
		s++;
	}

	for (int s=57; s<=(data.GetLength()-3); s++)
	{
		FyrData.AppendChar(CharData[s]);
	}
	FyrData.Append(":");
	
	SmsCount = Splitter(FyrData);
	Temper = Splitter(FyrData);
	Flamme = Splitter(FyrData);
	Flis = Splitter(FyrData);
	FremFejl = Splitter(FyrData);
	PowerFail = Splitter(FyrData);
///////////////////////////////////////////////////////////////////////////////////////////////////////
///////////////////// Her skal sendes data til databasen ////NÅR HEDIN KAN SENDE SMS///////////////////
		m_Textwindow.GetWindowText(oldtekst);
		oldtekst.Append("\r\n");
		oldtekst.Append("På næste linie kommer SmsCount. \r\n");
		oldtekst.Append(SmsCount);
		oldtekst.Append("\r\n");
		oldtekst.Append("På næste linie kommer Temper. \r\n");
		oldtekst.Append(Temper);
		oldtekst.Append("\r\n");
		oldtekst.Append("På næste linie kommer Flamme. \r\n");
		oldtekst.Append(Flamme);
		oldtekst.Append("\r\n");
		oldtekst.Append("På næste linie kommer Flis. \r\n");
		oldtekst.Append(Flis);
		oldtekst.Append("\r\n");
		oldtekst.Append("På næste linie kommer FremFejl. \r\n");
		oldtekst.Append(FremFejl);
		oldtekst.Append("\r\n");
		oldtekst.Append("På næste linie kommer PowerFail. \r\n");
		oldtekst.Append(PowerFail);
		oldtekst.Append("\r\n");
		oldtekst.Append("På næste linie kommer TlfNR. \r\n");
		oldtekst.Append(TlfNr);
		m_Textwindow.SetWindowText(oldtekst);
///////////////////////////////////////////////////////////////////////////////////////////////////////
///////////////////// Her skal sendes data til databasen //////////////////////////////////////////////
}
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();   //<--- crasher, men gider ikke bruge flere af mine penge på at teste det med sms'er, hele close laver crash, bare ikke når jeg stepper. :S

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

}

void CFlisServerDlg::OnBnClickedGsmpin()
{
	// TODO: Add your control notification handler code here
	SetPin();
	Sleep(35000);
	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);
}
LRESULT CFlisServerDlg::OnShowString(WPARAM wParam, LPARAM lParam)
{
	CString *s = (CString*) lParam;
	GetDlgItem(IDC_Textwindow)->SetWindowText(*s);

	delete s;
	return 0;

}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;
			char array1[250];
			int i;
			for (int i=0; i<answer.size(); i++)
			{
				array1[i] = answer[i];
			}
		
			for (int i=0; i<answer.size(); i++)
			{
				if ((array1[i] != 0x0A) && (array1[i] != 0x0D))
				{
					tekst.AppendChar(array1[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 == "OK")
			{	
				m_Textwindow.GetWindowText(oldtekst);
				oldtekst.Append("\r\n");
				oldtekst.Append("OK tekst modtaget");
				m_Textwindow.SetWindowText(oldtekst);
			}
			else if (tekst == "error")
			{
				m_Textwindow.GetWindowText(oldtekst);
				oldtekst.Append("\r\n");
				oldtekst.Append("error tekst");
				oldtekst.Append(tekst);
				m_Textwindow.SetWindowText(oldtekst);
			}
			else if (plus = true)
			{
				if (command = "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]);
						}
						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 = "wind")
				{
					m_Textwindow.GetWindowText(oldtekst);
					oldtekst.Append("\r\n");
					oldtekst.Append("Først lidt tekst på næste linie\r\n");
					oldtekst.Append(tekst);
					m_Textwindow.SetWindowText(oldtekst);
				}
			}
			if(ResetSms == 50)
			{
				DeleteSms();
			}

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

				if(commandtest > 1)
				{
				testdata.Append(data[i].InstallationsID);
				testdata.Append(":");
				}
			}
			sIDnr = Splitter(testdata);
			sCommandID = Splitter(testdata);
			sInstallationsID = "0";
			if (commandtest > 1)
			{
			sInstallationsID = Splitter(testdata);
			iAll = 0;
			}

			if (sIDnr.GetLength() > 0)
			{
				DBReadData(sIDnr,sCommandID,sInstallationsID);
			}
			Sleep(500);
		}
}
void CFlisServerDlg::DBReadData(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);
		m_Textwindow.GetWindowText(Textwindow);
		Textwindow.Append("\r\n");
		Textwindow.Append("Command executed");
		m_Textwindow.SetWindowText(Textwindow);
		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;

	AfxBeginThread(threadWrapper,AfxGetMainWnd());
}