/*
===========================================================================
oastat - a program for parsing log files and write the result to a database
Copyright (C) 2012 Poul Sander

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, see http://www.gnu.org/licenses/

Source information and contacts persons can be found at
https://github.com/sago007/oastat/
===========================================================================
*/

#define VERSION "0.2 BETA"

#include <iostream>
#include <fstream>
#include <vector>
#include <gcrypt.h>
#include <stdio.h>
#include <deque>
#include <boost/format.hpp>
#include <boost/program_options.hpp>

#include "db/database.hpp"
#ifdef USECPPDB
#include "db/Db2CppDb.hpp"
#endif

#include "db/Db2Xml.hpp"

#include "oastatstruct.h"
#include "oss2db/struct2db.h"
#include "local.h"
#include "oss2db/kill2db.h"
#include "oss2db/init2db.h"
#include "oss2db/shutdown2db.h"
#include "oss2db/userinfo2db.h"
#include "oss2db/Disconnect2Db.h"
#include "oss2db/Accuracy2Db.hpp"
#include "oss2db/Award2Db.h"
#include "oss2db/Ctf2Db.hpp"
#include "oss2db/Ctf1f2Db.hpp"
#include "oss2db/Point2Db.hpp"
#include "oss2db/Elimination2Db.hpp"
#include "oss2db/CtfElimination2Db.hpp"
#include "oss2db/Harvester2Db.hpp"
#include "oss2db/Challenge2Db.hpp"
#include "oss2db/Warmup2Db.hpp"

std::vector<std::string> clientIdMap;

static int processStdIn(std::istream &in_p,std::vector<std::shared_ptr<Struct2Db> > &commands);



/**
 * This function adds objects that are inherited from the Struct2Db class
 * to the vector commands.
 *
 * @param[in] db The database object. May not be freed once given as an argument to this function
 */
static void addCommands(std::shared_ptr<Database> &db,std::vector<std::shared_ptr<Struct2Db> > &commands)
{
	if (!db) {
		throw std::runtime_error("db was uninizialized in addCommands");
	}

	//Add new commands here
	commands.push_back(std::shared_ptr<Struct2Db>(new Kill2Db() ) );
	commands.push_back(std::shared_ptr<Struct2Db>(new Init2Db() ) );
	commands.push_back(std::shared_ptr<Struct2Db>(new Shutdown2Db() ) );
	commands.push_back(std::shared_ptr<Struct2Db>(new Userinfo2Db()) );
	commands.push_back(std::shared_ptr<Struct2Db>(new Disconnect2Db()) );
	commands.push_back(std::shared_ptr<Struct2Db>(new Award2Db()) );
	commands.push_back(std::shared_ptr<Struct2Db>(new Ctf2Db()) );
	commands.push_back(std::shared_ptr<Struct2Db>(new Point2Db()) );
	commands.push_back(std::shared_ptr<Struct2Db>(new Ctf1f2Db()) );
	commands.push_back(std::shared_ptr<Struct2Db>(new Elimination2Db()) );
	commands.push_back(std::shared_ptr<Struct2Db>(new CtfElimination2Db()) );
	commands.push_back(std::shared_ptr<Struct2Db>(new Harvester2Db()) );
	commands.push_back(std::shared_ptr<Struct2Db>(new Challenge2Db()) );
	commands.push_back(std::shared_ptr<Struct2Db>(new Warmup2Db()) );
	commands.push_back(std::shared_ptr<Struct2Db>(new Accuracy2Db()) );
	//Add more commands just above here

	for (unsigned int i=0; i<commands.size(); i++) {
		commands.at(i)->setDb(db);
	}
}



static int processStdIn(std::istream &in_p, std::vector<std::shared_ptr<Struct2Db> > &commands)
{
	bool done = true;
	OaStatStruct *startstruct = nullptr;
	do {
		std::string line = "";
		OaStatStruct oss;
		std::deque<OaStatStruct> osslist;
		try {
			while ( std::getline(in_p,line) ) {
				oss.clear();
				oss.parseLine(line);
				osslist.push_back(oss);
				if (oss.command=="InitGame") {
					startstruct = &osslist.back();
				}
				if (oss.command=="Warmup" && startstruct) {
					//Workaround to stop warmup
					//If we spot a warmup command we add a cvar to the start struct
					//Warmup is a attribute that affect he whole game
					startstruct->restOfLine += "\\isWarmup\\1";
				}
				if (oss.command=="ShutdownGame") {
					while(!osslist.empty()) {
						oss = osslist.front();
						osslist.pop_front();
						for(unsigned int i=0; i<commands.size(); i++) {
							if(commands.at(i)->canProcess(oss)) {
								commands.at(i)->process(oss);
							}
						}
					}
					startstruct = NULL;
				}
			}
		} catch (std::exception &e2) {
			/*
			 If there is an error write it in the log and try again continue
			 */
			osslist.clear();
			std::cerr << "oastat: Crashed (NEAR FATAL EXCEPTION) at line: \"" << line << "\"\n"<<
			     "oastat:   Error is: " << e2.what() << "\n";
			done = false;
		}
	} while (!done);
	return 0;
}

/**
 * Hashes the user id so they cannot be recovered from the db.
 *
 * @param unhashedID - The unhashed id
 * @return the hashed id
 */
std::string getHashedId(const std::string& unhashedID)
{
	int msg_len = unhashedID.length();
	int hash_len = gcry_md_get_algo_dlen( GCRY_MD_SHA1 );
	std::vector<unsigned char> hash_binary(hash_len);
	std::vector<char> hash_hex(hash_len*2+1);
	char *out = &hash_hex.at(0);
	char *p = out;

	gcry_md_hash_buffer( GCRY_MD_SHA1, &hash_binary[0], unhashedID.c_str(), msg_len );
	for ( int i = 0; i < hash_len; i++, p += 2 ) {
		snprintf ( p, 3, "%02x", hash_binary[i] );
	}

	std::string hashedID = &hash_hex.at(0);

	return  hashedID; //Replace with md5 at some point
}

int main (int argc, const char* argv[])
{
	try {
		std::string dbargs = "";
		std::string backend = "Xml";
		bool doIntegrationTest = false;
		std::vector<std::shared_ptr<Struct2Db> > commands;
		/////////////
		boost::format f("%1%/.openarena/baseoa/games.log");
		f % getenv("HOME");
		std::string filename = f.str();
		////////////
		boost::program_options::options_description desc("Allowed options");
		desc.add_options()
		("help,h", "Print basic usage information to stdout and quits")
		("backend", boost::program_options::value<std::string>(), "The DB backend to use")
		("dbargs", boost::program_options::value<std::string>(), "Arguments passed to the DB backend")
		("filename,f", boost::program_options::value<std::string>(), "Filename to read. Providing a blank string will read from stdin")
		("config,c", boost::program_options::value<std::vector<std::string> >(), "Read a config file with the values. Can be given multiple times")
		("integration-test", "Perform integration test")
		;
		boost::program_options::variables_map vm;
		boost::program_options::store(boost::program_options::parse_command_line(argc, argv, desc), vm);
		boost::program_options::notify(vm);
		if (vm.count("config")) {
			std::vector<std::string> config_filenames = vm["config"].as<std::vector<std::string> >();
			for ( const std::string& s : config_filenames) {
				std::ifstream config_file(s);
				store(parse_config_file(config_file, desc), vm);
				notify(vm);
			}
		}
		if (vm.count("help")) {
			std::cout << desc << "n";
			std::cout << "Examples: \n";
			std::cout << argv[0] << " -f \"~/.openarena/baseoa/games.log\" --backend \"CppDb\" --dbarg \"mysql:database=oastat;username=openarena\"\n";
			std::cout << argv[0] << " -f \"~/.openarena/baseoa/games.log\" --backend \"CppDb\" --dbarg \"pgsql:database=oastat;username=openarena\"\n";
			std::cout << argv[0] << " -f %APPDATA%/OpenArena/baseoa/games.log --backend \"CppDb\" --dbarg \"sqlite3:db=defoastat.db3\"\n";
			std::cout << "\n";
			std::cout << "Look at https://github.com/sago007/oastat for more help and more details\n";
			return 1;
		}
		if (vm.count("backend")) {
			backend = vm["backend"].as<std::string>();
		}
		if (vm.count("dbargs")) {
			dbargs = vm["dbargs"].as<std::string>();
		}
		if (vm.count("filename")) {
			filename = vm["filename"].as<std::string>();
		}
		if (vm.count("integration-test")) {
			doIntegrationTest = true;
		}
		std::shared_ptr<Database> db;

#if USECPPDB
		if (backend == "CppDb") {
			std::cout << "Using CppDb\n";
			if (dbargs.length()<1) {
				db = std::shared_ptr<Database>(new Db2CppDb() );
			} else {
				db = std::shared_ptr<Database>(new Db2CppDb(dbargs) );
			}
		}
#endif
		if (backend == "Xml") {
			std::cout << "Using XML\n";
			if (dbargs.length()<1) {
				db = std::shared_ptr<Database>(new Db2Xml() );
			} else {
				db = std::shared_ptr<Database>(new Db2Xml(dbargs) );
			}
		}

		if (!db) {
			std::string error("Failed to find backend: ");
			error += backend;
			throw std::runtime_error(error);
		}

		addCommands(db,commands);

		if (doIntegrationTest) {
			OaStatStruct oss_test;
			oss_test.setTimeStamp("2013-12-08 20:42:30");
			db->startGame(1,"oasago2","baseoa-mod","testserver",oss_test);
			db->addGenericTeamEvent(5,2,0,"sometype","","",3,4);
			std::cerr << "Test called\n";
			return 0;
		}

		if (filename.length()>0) {
			{
				std::ifstream in(filename.c_str(), std::ifstream::in);
				processStdIn(in,commands);
			}
		} else {
			processStdIn(std::cin, commands);
		}

	} catch (std::exception &e) {
		std::cerr << "Crashed: " << e.what() << "\n";
		return 2;
	}

	return 0;
}