/**
 * @file LLSyntaxId
 * @author Ima Mechanique
 * @brief Handles downloading, saving, and checking of LSL keyword/syntax files
 *		for each region.
 *
 * $LicenseInfo:firstyear=2013&license=viewerlgpl$
 * Second Life Viewer Source Code
 * Copyright (C) 2013, Linden Research, Inc.
 *
 * This library is free software; you can redistribute it and/or
 * modify it under the terms of the GNU Lesser General Public
 * License as published by the Free Software Foundation;
 * version 2.1 of the License only.
 *
 * This library 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
 * Lesser General Public License for more details.
 *
 * You should have received a copy of the GNU Lesser General Public
 * License along with this library; if not, write to the Free Software
 * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA
 *
 * Linden Research, Inc., 945 Battery Street, San Francisco, CA  94111  USA
 * $/LicenseInfo$
 */

#include "llviewerprecompiledheaders.h"

#include "llagent.h"
#include "llappviewer.h"
#include "llhttpclient.h"
#include "llsdserialize.h"
#include "llsyntaxid.h"

//-----------------------------------------------------------------------------
// fetchKeywordsFileResponder
//-----------------------------------------------------------------------------
fetchKeywordsFileResponder::fetchKeywordsFileResponder(std::string filespec)
{
	mFileSpec = filespec;
	LL_INFOS("SyntaxLSL")
			<< "Instantiating with file saving to: '" << filespec << "'"
			<< LL_ENDL;
}

void fetchKeywordsFileResponder::errorWithContent(U32 status,
												  const std::string& reason,
												  const LLSD& content)
{
	LLSyntaxIdLSL::sLoadFailed = true;
	LL_ERRS("SyntaxLSL")
			<< "fetchKeywordsFileResponder error [status:"
			<< status << "]: " << content
			<< LL_ENDL;
}

void fetchKeywordsFileResponder::result(const LLSD& content_ref)
{
	// Continue only if a valid LLSD object was returned.
	if (content_ref.isMap())
	{
		LL_DEBUGS("SyntaxLSL")
				<< "content_ref isMap so assuming valid XML." << LL_ENDL;

		if (LLSyntaxIdLSL::isSupportedVersion(content_ref))
		{
			LL_INFOS("SyntaxLSL")
					<< "Supported verson of syntax file." << LL_ENDL;

			LLSyntaxIdLSL::setKeywordsXml(content_ref);
			LLSyntaxIdLSL::sInitialised = true;
			LLSyntaxIdLSL::sLoaded = true;
			LLSyntaxIdLSL::sLoadFailed = false;

			cacheFile(content_ref);
		}
		else
		{
			LLSyntaxIdLSL::sLoaded = false;
			LLSyntaxIdLSL::sLoadFailed = true;
			LL_WARNS("SyntaxLSL")
					<< "Unknown or unsupported version of syntax file." << LL_ENDL;
		}
	}
	else
	{
		LLSyntaxIdLSL::sLoaded = false;
		LLSyntaxIdLSL::sLoadFailed = true;
		LL_ERRS("SyntaxLSL")
				<< "Syntax file '" << mFileSpec << "' contains invalid LLSD!" << LL_ENDL;
	}
}

void fetchKeywordsFileResponder::cacheFile(const LLSD& content_ref)
{
	std::stringstream str;
	LLSDSerialize::toPrettyXML(content_ref, str);
	const std::string xml = str.str();

	// save the str to disc, usually to the cache.
	llofstream file(mFileSpec, std::ios_base::out);
	file.write(xml.c_str(), str.str().size());
	file.close();

	LL_INFOS("SyntaxLSL")
			<< "Syntax file received, saving as: '" << mFileSpec << "'" << LL_ENDL;
}


//-----------------------------------------------------------------------------
// LLSyntaxIdLSL
//-----------------------------------------------------------------------------
const std::string LLSyntaxIdLSL::CAPABILITY_NAME = "LSLSyntax";
const std::string LLSyntaxIdLSL::FILENAME_DEFAULT = "keywords_lsl_default.xml";
const std::string LLSyntaxIdLSL::SIMULATOR_FEATURE = "LSLSyntaxId";

bool LLSyntaxIdLSL::sInitialised;
LLSD LLSyntaxIdLSL::sKeywordsXml;
bool LLSyntaxIdLSL::sLoaded;
bool LLSyntaxIdLSL::sLoadFailed;
bool LLSyntaxIdLSL::sVersionChanged;

/**
 * @brief LLSyntaxIdLSL constructor
 */
LLSyntaxIdLSL::LLSyntaxIdLSL(std::string filenameDefault, std::string simFeatureName, std::string capabilityName) :
	mFilePath(LL_PATH_APP_SETTINGS)
{
	mCapabilityName = capabilityName;
	mFileNameCurrent = filenameDefault;
	mFileNameDefault = filenameDefault;
	mSimulatorFeature = simFeatureName;
	mSyntaxIdCurrent = LLUUID();
}

LLSyntaxIdLSL::LLSyntaxIdLSL() :
	mFilePath(LL_PATH_APP_SETTINGS)
{
	mCapabilityName = CAPABILITY_NAME;
	mFileNameCurrent = FILENAME_DEFAULT;
	mFileNameDefault = FILENAME_DEFAULT;
	mSimulatorFeature = SIMULATOR_FEATURE;
	mSyntaxIdCurrent = LLUUID();
}

std::string LLSyntaxIdLSL::buildFileNameNew()
{
	mFileNameNew = mSyntaxIdNew.isNull() ? mFileNameDefault : "keywords_lsl_" + mSyntaxIdNew.asString() + ".llsd.xml";
	return mFileNameNew;
}

std::string LLSyntaxIdLSL::buildFullFileSpec()
{
	ELLPath path = mSyntaxIdNew.isNull() ? LL_PATH_APP_SETTINGS : LL_PATH_CACHE;
	buildFileNameNew();
	mFullFileSpec = gDirUtilp->getExpandedFilename(path, mFileNameNew);
	return mFullFileSpec;
}

//-----------------------------------------------------------------------------
// checkSyntaxIdChange()
//-----------------------------------------------------------------------------
bool LLSyntaxIdLSL::checkSyntaxIdChanged()
{
	sVersionChanged = false;
	LLViewerRegion* region = gAgent.getRegion();

	if (region)
	{
		if (!region->capabilitiesReceived())
		{   // Shouldn't be possible, but experience shows that it may be needed.
			sLoadFailed = true;
			LL_ERRS("SyntaxLSL")
				<< "Region '" << region->getName()
				<< "' has not received capabilities yet! Cannot process SyntaxId."
				<< LL_ENDL;
		}
		else
		{
			LLSD simFeatures;
			region->getSimulatorFeatures(simFeatures);

			// Does the sim have the required feature
			if (simFeatures.has(mSimulatorFeature))
			{
				// get and check the hash
				mSyntaxIdNew = simFeatures[mSimulatorFeature].asUUID();
				mCapabilityURL = region->getCapability(mCapabilityName);
				if (mSyntaxIdCurrent != mSyntaxIdNew)
				{
					LL_INFOS("SyntaxLSL")
							<< "It has LSLSyntaxId capability, and the new hash is '"
							<< mSyntaxIdNew.asString() << "'" << LL_ENDL;

					sVersionChanged = true;
				}
				else
				{
					LL_INFOS("SyntaxLSL")
							<< "It has the same LSLSyntaxId! Leaving hash as '"
							<< mSyntaxIdCurrent.asString() << "'" << LL_ENDL;
				}
			}
			else
			{
				if ( mSyntaxIdCurrent.isNull() && isInitialised())
				{
					LL_INFOS("SyntaxLSL")
							<< "It does not have LSLSyntaxId capability, remaining with default keywords file!"
							<< LL_ENDL;
				}
				else
				{
					// The hash is set to NULL_KEY to indicate use of default keywords file
					mSyntaxIdNew = LLUUID();
					LL_INFOS("SyntaxLSL")
							<< "It does not have LSLSyntaxId capability, using default keywords file!"
							<< LL_ENDL;
					sVersionChanged = true;
				}
			}
		}
	}
	return sVersionChanged;
}

/**
 * @brief LLSyntaxIdLSL::fetching
 * If the XML has not loaded yet and it hasn't failed, then we're still fetching it.
 * @return bool Whether the file fetch is still in process.
 */
bool LLSyntaxIdLSL::fetching()
{
	return !(sLoaded || sLoadFailed);
}

//-----------------------------------------------------------------------------
// fetchKeywordsFile
//-----------------------------------------------------------------------------
void LLSyntaxIdLSL::fetchKeywordsFile()
{
	LLHTTPClient::get(mCapabilityURL,
					  new fetchKeywordsFileResponder(mFullFileSpec),
					  LLSD(), 30.f
					  );
	LL_INFOS("SyntaxLSL")
			<< "LSLSyntaxId capability URL is: " << mCapabilityURL
			<< ". Filename to use is: '" << mFullFileSpec << "'."
			<< LL_ENDL;
}

//-----------------------------------------------------------------------------
// initialise
//-----------------------------------------------------------------------------
void LLSyntaxIdLSL::initialise()
{
	mFileNameNew = mFileNameCurrent;
	mSyntaxIdNew = mSyntaxIdCurrent;

	if (checkSyntaxIdChanged())
	{
		sKeywordsXml = LLSD();
		sLoaded = sLoadFailed = false;

		if (mSyntaxIdNew.isNull())
		{ // Need to open the default
			loadDefaultKeywordsIntoLLSD();
		}
		else if (!mCapabilityURL.empty() )
		{
			LL_INFOS("SyntaxLSL")
					<< "LSL version has changed, getting appropriate file."
					<< LL_ENDL;

			// Need a full spec regardless of file source, so build it now.
			buildFullFileSpec();
			if ( !mSyntaxIdNew.isNull())
			{
				if ( !gDirUtilp->fileExists(mFullFileSpec) )
				{ // Does not exist, so fetch it from the capability
					LL_INFOS("SyntaxLSL")
							<< "File is not cached, we will try to download it!"
							<< LL_ENDL;
					fetchKeywordsFile();
				}
				else
				{
					LL_INFOS("SyntaxLSL")
							<< "File is cached, no need to download!"
							<< LL_ENDL;
					loadKeywordsIntoLLSD();
				}
			}
			else
			{ // Need to open the default
				loadDefaultKeywordsIntoLLSD();
			}
		}
		else
		{
			sLoadFailed = true;
			LL_ERRS("SyntaxLSL")
					<< "LSLSyntaxId capability URL is empty!!" << LL_ENDL;
			loadDefaultKeywordsIntoLLSD();
		}
	}
	else if (!isInitialised())
	{
		loadDefaultKeywordsIntoLLSD();
	}

	mFileNameCurrent = mFileNameNew;
	mSyntaxIdCurrent = mSyntaxIdNew;
}

//-----------------------------------------------------------------------------
// isSupportedVersion
//-----------------------------------------------------------------------------
bool LLSyntaxIdLSL::isSupportedVersion(const LLSD& content)
{
	bool isValid = false;
	/*
	 * If the schema used to store LSL keywords and hints changes, this value is incremented
	 * Note that it should _not_ be changed if the keywords and hints _content_ changes.
	 */
	const U32         LLSD_SYNTAX_LSL_VERSION_EXPECTED = 2;
	const std::string LLSD_SYNTAX_LSL_VERSION_KEY("llsd-lsl-syntax-version");

	if (content.has(LLSD_SYNTAX_LSL_VERSION_KEY))
	{
		LL_INFOS("SyntaxLSL")
				<< "Syntax file version: " << content[LLSD_SYNTAX_LSL_VERSION_KEY].asString() << LL_ENDL;

		if (content[LLSD_SYNTAX_LSL_VERSION_KEY].asInteger() == LLSD_SYNTAX_LSL_VERSION_EXPECTED)
		{
			isValid = true;
		}
	}
	else
	{
		LL_WARNS("SyntaxLSL") << "No version key available!" << LL_ENDL;
	}

	return isValid;
}

//-----------------------------------------------------------------------------
// loadDefaultKeywordsIntoLLSD()
//-----------------------------------------------------------------------------
void LLSyntaxIdLSL::loadDefaultKeywordsIntoLLSD()
{
	LL_INFOS("SyntaxLSL")
			<< "LSLSyntaxId is null so we will use the default file!" << LL_ENDL;
	mSyntaxIdNew = LLUUID();
	buildFullFileSpec();
	loadKeywordsIntoLLSD();
}

//-----------------------------------------------------------------------------
// loadKeywordsFileIntoLLSD
//-----------------------------------------------------------------------------
/**
 * @brief	Load xml serialised LLSD
 * @desc	Opens the specified filespec and attempts to deserialise the
 *			contained data to the specified LLSD object. indicate success/failure with
 *			sLoaded/sLoadFailed members.
 */
void LLSyntaxIdLSL::loadKeywordsIntoLLSD()
{
	LL_INFOS("SyntaxLSL")
			<< "Trying to open cached or default keyword file ;-)"
			<< LL_ENDL;

	// Is this the right thing to do, or should we leave the old content
	// even if it isn't entirely accurate anymore?
	sKeywordsXml = LLSD().emptyMap();

	LLSD content;
	llifstream file;
	file.open(mFullFileSpec);
	if (file.is_open())
	{
		sLoaded = (bool)LLSDSerialize::fromXML(content, file);
		if (!sLoaded)
		{
			LL_ERRS("SyntaxLSL")
					<< "Unable to deserialise file: "
					<< mFullFileSpec << LL_ENDL;
		}
		else
		{
			if (isSupportedVersion(content))
			{
				sKeywordsXml = content;
				sLoaded = true;
				sInitialised = true;
				LL_INFOS("SyntaxLSL")
						<< "Deserialised file: " << mFullFileSpec << LL_ENDL;
			}
			else
			{
				sLoaded = false;
				LL_WARNS("SyntaxLSL")
					<< "Unknown or unsupported version of syntax file." << LL_ENDL;
			}
		}
	}
	else
	{
		LL_ERRS("SyntaxLSL") << "Unable to open file: " << mFullFileSpec << LL_ENDL;
	}
	sLoadFailed = !sLoaded;
}