/**

 * libtransport -- C++ library for easy XMPP Transports development

 *

 * Copyright (C) 2011, Jan Kaluza <hanzz.k@gmail.com>

 *

 * This program is free software; you can redistribute it and/or modify

 * it under the terms of the GNU General Public License as published by

 * the Free Software Foundation; either version 2 of the License, or

 * (at your option) any later version.

 *

 * This program is distributed in the hope that it will be useful,

 * but WITHOUT ANY WARRANTY; without even the implied warranty of

 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

 * GNU General Public License for more details.

 *

 * You should have received a copy of the GNU General Public License

 * along with this program; if not, write to the Free Software

 * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02111-1301  USA

 */

#pragma once

#include <string>

#include <map>

#include "Swiften/Swiften.h"

#include "transport/storagebackend.h"

#include "transport/config.h"

#include <sqlite3.h>

namespace Transport {

/// Used to store transport data into SQLite3 database.

class SQLite3Backend : public StorageBackend

{

	public:

		/// Creates new SQLite3Backend instance.

		/// \param config cofiguration, this class uses following Config values:

		/// 	- database.database - path to SQLite3 database file, database file is created automatically

		/// 	- service.prefix - prefix for tables created by createDatabase method

		SQLite3Backend(Config *config);

		/// Destructor.

		~SQLite3Backend();

		/// Connects to the database and creates it if it's needed. This method call createDatabase() function

		/// automatically.

		/// \return true if database is opened successfully.

		bool connect();

		/// Creates database structure.

		/// \see connect()

		/// \return true if database structure has been created successfully. Note that it returns True also if database structure

		/// already exists.

		bool createDatabase();

		/// Stores user into database.

		/// \param user user struct containing all information about user which have to be stored

		void setUser(const UserInfo &user);

		/// Gets user data from database and stores them into user reference.

		/// \param barejid barejid of user

		/// \param user UserInfo object where user data will be stored

		/// \return true if user has been found in database

		bool getUser(const std::string &barejid, UserInfo &user);

		/// Changes users online state variable in database.

		/// \param id id of user - UserInfo.id

		/// \param online online state

		void setUserOnline(long id, bool online);

		/// Removes user and all connected data from database.

		/// \param id id of user - UserInfo.id

		/// \return true if user has been found in database and removed

		bool removeUser(long id);

		/// Returns JIDs of all buddies in user's roster.

		/// \param id id of user - UserInfo.id

		/// \param roster string list used to store user's roster

		/// \return true if user has been found in database and roster has been fetched

		bool getBuddies(long id, std::list<BuddyInfo> &roster);

		long addBuddy(long userId, const BuddyInfo &buddyInfo);

		void updateBuddy(long userId, const BuddyInfo &buddyInfo);

		void removeBuddy(long id) {}

		void getUserSetting(long userId, const std::string &variable, int &type, std::string &value);

		void beginTransaction();

		void commitTransaction();

	private:

		bool exec(const std::string &query);

		sqlite3 *m_db;

		Config *m_config;

		std::string m_prefix;

		// statements

		sqlite3_stmt *m_setUser;

		sqlite3_stmt *m_getUser;

		sqlite3_stmt *m_getUserSetting;

		sqlite3_stmt *m_setUserSetting;

		sqlite3_stmt *m_removeUser;

		sqlite3_stmt *m_removeUserBuddies;

		sqlite3_stmt *m_removeUserSettings;

		sqlite3_stmt *m_removeUserBuddiesSettings;

		sqlite3_stmt *m_addBuddy;

		sqlite3_stmt *m_updateBuddy;

		sqlite3_stmt *m_getBuddies;

		sqlite3_stmt *m_getBuddiesSettings;

};

}

/**

 * libtransport -- C++ library for easy XMPP Transports development

 *

 * Copyright (C) 2011, Jan Kaluza <hanzz.k@gmail.com>

 *

 * This program is free software; you can redistribute it and/or modify

 * it under the terms of the GNU General Public License as published by

 * the Free Software Foundation; either version 2 of the License, or

 * (at your option) any later version.

 *

 * This program is distributed in the hope that it will be useful,

 * but WITHOUT ANY WARRANTY; without even the implied warranty of

 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

 * GNU General Public License for more details.

 *

 * You should have received a copy of the GNU General Public License

 * along with this program; if not, write to the Free Software

 * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02111-1301  USA

 */

#include "transport/sqlite3backend.h"

#include <boost/bind.hpp>

#define SQLITE_DB_VERSION 3

#define CHECK_DB_RESPONSE(stmt) \

	if(stmt) { \

		sqlite3_exec(m_db, "ROLLBACK;", NULL, NULL, NULL); \

		return 0; \

	}

// Prepare the SQL statement

#define PREP_STMT(sql, str) \

	if(sqlite3_prepare_v2(m_db, std::string(str).c_str(), -1, &sql, NULL)) { \

		onStorageError(str, (sqlite3_errmsg(m_db) == NULL ? "" : sqlite3_errmsg(m_db))); \

		return false; \

	}

// Finalize the prepared statement

#define FINALIZE_STMT(prep) \

	if(prep != NULL) { \

		sqlite3_finalize(prep); \

	}

#define BEGIN(STATEMENT) 	sqlite3_reset(m_addBuddy);\

							int STATEMENT##_id = 1;\

							int STATEMENT##_id_get = -1;\

							(void)STATEMENT##_id_get;

#define BIND_INT(STATEMENT, VARIABLE) sqlite3_bind_int(STATEMENT, STATEMENT##_id++, VARIABLE)

#define BIND_STR(STATEMENT, VARIABLE) sqlite3_bind_text(STATEMENT, STATEMENT##_id++, VARIABLE.c_str(), -1, SQLITE_STATIC)

#define GET_INT(STATEMENT)	sqlite3_column_int(STATEMENT, STATEMENT##_id_get++)

#define GET_STR(STATEMENT)	(const char *) sqlite3_column_text(STATEMENT, STATEMENT##_id_get++)

#define EXECUTE_STATEMENT(STATEMENT, NAME) 	if(sqlite3_step(STATEMENT) != SQLITE_DONE) {\

		onStorageError(NAME, (sqlite3_errmsg(m_db) == NULL ? "" : sqlite3_errmsg(m_db)));\

			}

using namespace boost;

namespace Transport {

SQLite3Backend::SQLite3Backend(Config *config) {

	m_config = config;

	m_db = NULL;

	m_prefix = CONFIG_STRING(m_config, "database.prefix");

}

SQLite3Backend::~SQLite3Backend(){

	if (m_db) {

		// Would be nice to use this:

		//

		//   sqlite3_stmt *pStmt;

		//   while((pStmt = sqlite3_next_stmt(db, 0)) != 0 ) {

		//    sqlite3_finalize(pStmt);

		//   }

		//

		// But requires SQLite3 >= 3.6.0 beta

		FINALIZE_STMT(m_setUser);

		FINALIZE_STMT(m_getUser);

		FINALIZE_STMT(m_removeUser);

		FINALIZE_STMT(m_removeUserBuddies);

		FINALIZE_STMT(m_removeUserSettings);

		FINALIZE_STMT(m_removeUserBuddiesSettings);

		FINALIZE_STMT(m_addBuddy);

		FINALIZE_STMT(m_updateBuddy);

		FINALIZE_STMT(m_getBuddies);

		FINALIZE_STMT(m_getBuddiesSettings);

		FINALIZE_STMT(m_getUserSetting);

		FINALIZE_STMT(m_setUserSetting);

		sqlite3_close(m_db);

	}

}

bool SQLite3Backend::connect() {

	if (sqlite3_open(CONFIG_STRING(m_config, "database.database").c_str(), &m_db)) {

		sqlite3_close(m_db);

		return false;

	}

	if (createDatabase() == false)

		return false;

	PREP_STMT(m_setUser, "INSERT INTO " + m_prefix + "users (jid, uin, password, language, encoding, last_login, vip) VALUES (?, ?, ?, ?, ?, DATETIME('NOW'), ?)");

	PREP_STMT(m_getUser, "SELECT id, jid, uin, password, encoding, language, vip FROM " + m_prefix + "users WHERE jid=?");

	PREP_STMT(m_removeUser, "DELETE FROM " + m_prefix + "users WHERE id=?");

	PREP_STMT(m_removeUserBuddies, "DELETE FROM " + m_prefix + "buddies WHERE user_id=?");

	PREP_STMT(m_removeUserSettings, "DELETE FROM " + m_prefix + "users_settings WHERE user_id=?");

	PREP_STMT(m_removeUserBuddiesSettings, "DELETE FROM " + m_prefix + "buddies_settings WHERE user_id=?");

	PREP_STMT(m_addBuddy, "INSERT INTO " + m_prefix + "buddies (user_id, uin, subscription, groups, nickname, flags) VALUES (?, ?, ?, ?, ?, ?)");

	PREP_STMT(m_updateBuddy, "UPDATE " + m_prefix + "buddies SET groups=?, nickname=?, flags=?, subscription=? WHERE user_id=? AND uin=?");

	PREP_STMT(m_getBuddies, "SELECT id uin, subscription, nickname, groups, flags FROM " + m_prefix + "buddies WHERE user_id=? ORDER BY id ASC");

	PREP_STMT(m_getBuddiesSettings, "SELECT buddy_id, type, var, value FROM " + m_prefix + "buddies_settings WHERE user_id=? ORDER BY buddy_id ASC");

	PREP_STMT(m_getUserSetting, "SELECT type, value FROM " + m_prefix + "users_settings WHERE user_id=? AND var=?");

	PREP_STMT(m_setUserSetting, "INSERT INTO " + m_prefix + "users_settings (user_id, var, type, value) VALUES (?,?,?,?)");

	return true;

}

bool SQLite3Backend::createDatabase() {

	int not_exist = exec("CREATE TABLE " + m_prefix + "buddies ("

				"  id INTEGER PRIMARY KEY NOT NULL,"

				"  user_id int(10) NOT NULL,"

				"  uin varchar(255) NOT NULL,"

				"  subscription varchar(20) NOT NULL,"

				"  nickname varchar(255) NOT NULL,"

				"  groups varchar(255) NOT NULL,"

				"  flags int(4) NOT NULL DEFAULT '0'"

				");");

	if (not_exist) {

		exec("CREATE UNIQUE INDEX IF NOT EXISTS user_id ON " + m_prefix + "buddies (user_id, uin);");

		exec("CREATE TABLE IF NOT EXISTS " + m_prefix + "buddies_settings ("

					"  user_id int(10) NOT NULL,"

					"  buddy_id int(10) NOT NULL,"

					"  var varchar(50) NOT NULL,"

					"  type int(4) NOT NULL,"

					"  value varchar(255) NOT NULL,"

					"  PRIMARY KEY (buddy_id, var)"

					");");

		exec("CREATE INDEX IF NOT EXISTS user_id02 ON " + m_prefix + "buddies_settings (user_id);");

		exec("CREATE TABLE IF NOT EXISTS " + m_prefix + "users ("

					"  id INTEGER PRIMARY KEY NOT NULL,"

					"  jid varchar(255) NOT NULL,"

					"  uin varchar(4095) NOT NULL,"

					"  password varchar(255) NOT NULL,"

					"  language varchar(25) NOT NULL,"

					"  encoding varchar(50) NOT NULL DEFAULT 'utf8',"

					"  last_login datetime,"

					"  vip int(1) NOT NULL DEFAULT '0',"

					"  online int(1) NOT NULL DEFAULT '0'"

					");");

		exec("CREATE UNIQUE INDEX IF NOT EXISTS jid ON " + m_prefix + "users (jid);");

		exec("CREATE TABLE " + m_prefix + "users_settings ("

					"  user_id int(10) NOT NULL,"

					"  var varchar(50) NOT NULL,"

					"  type int(4) NOT NULL,"

					"  value varchar(4095) NOT NULL,"

					"  PRIMARY KEY (user_id, var)"

					");");

		exec("CREATE INDEX IF NOT EXISTS user_id03 ON " + m_prefix + "users_settings (user_id);");

		exec("CREATE TABLE IF NOT EXISTS " + m_prefix + "db_version ("

			"  ver INTEGER NOT NULL DEFAULT '3'"

			");");

		exec("REPLACE INTO " + m_prefix + "db_version (ver) values(3)");

	}

	return true;

}

bool SQLite3Backend::exec(const std::string &query) {

	char *errMsg = 0;

	int rc = sqlite3_exec(m_db, query.c_str(), NULL, 0, &errMsg);

	if (rc != SQLITE_OK) {

		onStorageError(query, errMsg);

		sqlite3_free(errMsg);

		return false;

	}

	return true;

}

void SQLite3Backend::setUser(const UserInfo &user) {

	sqlite3_reset(m_setUser);

	sqlite3_bind_text(m_setUser, 1, user.jid.c_str(), -1, SQLITE_STATIC);

	sqlite3_bind_text(m_setUser, 2, user.uin.c_str(), -1, SQLITE_STATIC);

	sqlite3_bind_text(m_setUser, 3, user.password.c_str(), -1, SQLITE_STATIC);

	sqlite3_bind_text(m_setUser, 4, user.language.c_str(), -1, SQLITE_STATIC);

	sqlite3_bind_text(m_setUser, 5, user.encoding.c_str(), -1, SQLITE_STATIC);

	sqlite3_bind_int (m_setUser, 6, user.vip);

	if(sqlite3_step(m_setUser) != SQLITE_DONE) {

		onStorageError("setUser query", (sqlite3_errmsg(m_db) == NULL ? "" : sqlite3_errmsg(m_db)));

	}

}

bool SQLite3Backend::getUser(const std::string &barejid, UserInfo &user) {

// 	SELECT id, jid, uin, password, encoding, language, vip FROM " + m_prefix + "users WHERE jid=?

	sqlite3_reset(m_getUser);

	sqlite3_bind_text(m_getUser, 1, barejid.c_str(), -1, SQLITE_TRANSIENT);

	int ret;

	while((ret = sqlite3_step(m_getUser)) == SQLITE_ROW) {

		user.id = sqlite3_column_int(m_getUser, 0);

		user.jid = (const char *) sqlite3_column_text(m_getUser, 1);

		user.uin = (const char *) sqlite3_column_text(m_getUser, 2);

		if (buddy_id == b.id) {

			std::cout << "Adding buddy info " << key << "\n";

			b.settings[key] = var;

			buddy_id = -1;

		}

		while(buddy_id == -1 && (ret = sqlite3_step(m_getBuddiesSettings)) == SQLITE_ROW) {

			buddy_id = GET_INT(m_getBuddiesSettings);

			var.type = GET_INT(m_getBuddiesSettings);

			key = GET_STR(m_getBuddiesSettings);

			std::string val = GET_STR(m_getBuddiesSettings);

			switch (var.type) {

				case TYPE_BOOLEAN:

					var.b = atoi(val.c_str());

					break;

				case TYPE_STRING:

					var.s = val;

					break;

				default:

					break;

			}

			if (buddy_id == b.id) {

				std::cout << "Adding buddy info " << key << "=" << val << "\n";

				b.settings[key] = var;

				buddy_id = -1;

			}

		}

		if (ret != SQLITE_DONE) {

			onStorageError("getBuddiesSettings query", (sqlite3_errmsg(m_db) == NULL ? "" : sqlite3_errmsg(m_db)));

			return false;

		}

		roster.push_back(b);

	}

	if (ret != SQLITE_DONE) {

		onStorageError("getBuddies query", (sqlite3_errmsg(m_db) == NULL ? "" : sqlite3_errmsg(m_db)));

		return false;

	}

	return true;

}

bool SQLite3Backend::removeUser(long id) {

	sqlite3_reset(m_removeUser);

	sqlite3_bind_int(m_removeUser, 1, id);

	if(sqlite3_step(m_removeUser) != SQLITE_DONE) {

		onStorageError("removeUser query", (sqlite3_errmsg(m_db) == NULL ? "" : sqlite3_errmsg(m_db)));

		return false;

	}

	sqlite3_reset(m_removeUserSettings);

	sqlite3_bind_int(m_removeUserSettings, 1, id);

	if(sqlite3_step(m_removeUserSettings) != SQLITE_DONE) {

		onStorageError("removeUserSettings query", (sqlite3_errmsg(m_db) == NULL ? "" : sqlite3_errmsg(m_db)));

		return false;

	}

	sqlite3_reset(m_removeUserBuddies);

	sqlite3_bind_int(m_removeUserBuddies, 1, id);

	if(sqlite3_step(m_removeUserBuddies) != SQLITE_DONE) {

		onStorageError("removeUserBuddies query", (sqlite3_errmsg(m_db) == NULL ? "" : sqlite3_errmsg(m_db)));

		return false;

	}

	sqlite3_reset(m_removeUserBuddiesSettings);

	sqlite3_bind_int(m_removeUserBuddiesSettings, 1, id);

	if(sqlite3_step(m_removeUserBuddiesSettings) != SQLITE_DONE) {

		onStorageError("removeUserBuddiesSettings query", (sqlite3_errmsg(m_db) == NULL ? "" : sqlite3_errmsg(m_db)));

		return false;

	}

	return true;

}

void SQLite3Backend::getUserSetting(long id, const std::string &variable, int &type, std::string &value) {

	BEGIN(m_getUserSetting);

	BIND_INT(m_getUserSetting, id);

	BIND_STR(m_getUserSetting, variable);

	if(sqlite3_step(m_setUser) != SQLITE_ROW) {

		BEGIN(m_setUserSetting);

		BIND_INT(m_setUserSetting, id);

		BIND_STR(m_setUserSetting, variable);

		BIND_INT(m_setUserSetting, type);

		BIND_STR(m_setUserSetting, value);

		EXECUTE_STATEMENT(m_setUserSetting, "m_setUserSetting");

	}

	else {

		type = GET_INT(m_getUserSetting);

		value = GET_STR(m_getUserSetting);

	}

}

void SQLite3Backend::beginTransaction() {

	exec("BEGIN TRANSACTION;");

}

void SQLite3Backend::commitTransaction() {

	exec("COMMIT TRANSACTION;");

}

}