/******************************************************************************
 * Icinga 2                                                                   *
 * Copyright (C) 2012-2015 Icinga Development Team (http://www.icinga.org)    *
 *                                                                            *
 * 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 St, Fifth Floor, Boston, MA 02110-1301, USA.             *
 ******************************************************************************/

#include "remote/filterutility.hpp"
#include "remote/httputility.hpp"
#include "config/configcompiler.hpp"
#include "config/expression.hpp"
#include "base/json.hpp"
#include "base/configtype.hpp"
#include "base/logger.hpp"
#include <boost/foreach.hpp>
#include <boost/algorithm/string.hpp>

using namespace icinga;

Type::Ptr FilterUtility::TypeFromPluralName(const String& pluralName)
{
	String uname = pluralName;
	boost::algorithm::to_lower(uname);

	BOOST_FOREACH(const ConfigType::Ptr& dtype, ConfigType::GetTypes()) {
		Type::Ptr type = Type::GetByName(dtype->GetName());
		ASSERT(type);

		String pname = type->GetPluralName();
		boost::algorithm::to_lower(pname);

		if (uname == pname)
			return type;
	}

	return Type::Ptr();
}

ConfigObject::Ptr FilterUtility::GetObjectByTypeAndName(const String& type, const String& name)
{
	ConfigType::Ptr dtype = ConfigType::GetByName(type);
	ASSERT(dtype);

	return dtype->GetObject(name);
}

std::vector<ConfigObject::Ptr> FilterUtility::GetFilterTargets(const QueryDescription& qd, const Dictionary::Ptr& query)
{
	std::vector<ConfigObject::Ptr> result;

	BOOST_FOREACH(const Type::Ptr& type, qd.Types) {
		String attr = type->GetName();
		boost::algorithm::to_lower(attr);

		if (query->Contains(attr)) {
			String name = HttpUtility::GetLastParameter(query, attr);
			ConfigObject::Ptr obj = GetObjectByTypeAndName(type->GetName(), name);
			if (!obj)
				BOOST_THROW_EXCEPTION(std::invalid_argument("Object does not exist."));
			result.push_back(obj);
		}

		attr = type->GetPluralName();
		boost::algorithm::to_lower(attr);

		if (query->Contains(attr)) {
			Array::Ptr names = query->Get(attr);
			if (names) {
				ObjectLock olock(names);
				BOOST_FOREACH(const String& name, names) {
					ConfigObject::Ptr obj = GetObjectByTypeAndName(type->GetName(), name);
					if (!obj)
						BOOST_THROW_EXCEPTION(std::invalid_argument("Object does not exist."));
					result.push_back(obj);
				}
			}
		}
	}

	if (query->Contains("filter") || result.empty()) {
		if (!query->Contains("type"))
			BOOST_THROW_EXCEPTION(std::invalid_argument("Type must be specified when using a filter."));

		String filter;
		if (!query->Contains("filter"))
			filter = "true";
		else
			filter = HttpUtility::GetLastParameter(query, "filter");

		String type = HttpUtility::GetLastParameter(query, "type");

		Log(LogInformation, "FilterUtility", filter);

		Type::Ptr utype = Type::GetByName(type);

		if (!utype)
			BOOST_THROW_EXCEPTION(std::invalid_argument("Invalid type specified."));

		if (qd.Types.find(utype) == qd.Types.end())
			BOOST_THROW_EXCEPTION(std::invalid_argument("Invalid type specified for this query."));

		ConfigType::Ptr dtype = ConfigType::GetByName(type);
		ASSERT(dtype);

		Expression *ufilter = ConfigCompiler::CompileText("<API query>", filter);
		ScriptFrame frame;
		frame.Sandboxed = true;

		Dictionary::Ptr filter_vars = query->Get("filter_vars");
		if (filter_vars) {
			ObjectLock olock(filter_vars);
			BOOST_FOREACH(const Dictionary::Pair& kv, filter_vars) {
				frame.Locals->Set(kv.first, kv.second);
			}
		}

		String varName = utype->GetName();
		boost::algorithm::to_lower(varName);

		try {
			BOOST_FOREACH(const ConfigObject::Ptr& object, dtype->GetObjects()) {
				frame.Locals->Set(varName, object);

				if (Convert::ToBool(ufilter->Evaluate(frame)))
					result.push_back(object);
			}
		} catch (const std::exception& ex) {
			delete ufilter;
			throw;
		}

		delete ufilter;
	}

	return result;
}