/** 
 * @file llremoteparcelrequest.cpp
 * @author Sam Kolb
 * @brief Get information about a parcel you aren't standing in to display
 * landmark/teleport information.
 *
 * $LicenseInfo:firstyear=2007&license=viewerlgpl$
 * Second Life Viewer Source Code
 * Copyright (C) 2010, 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 "message.h"

#include "llpanel.h"
#include "llsdserialize.h"
#include "llurlentry.h"
#include "llviewerregion.h"
#include "llview.h"
#include "llsdutil.h"
#include "llsdutil_math.h"
#include "llregionhandle.h"
#include "llagent.h"
#include "llremoteparcelrequest.h"
#include "llcorehttputil.h"

void LLRemoteParcelInfoProcessor::addObserver(const LLUUID& parcel_id, LLRemoteParcelInfoObserver* observer)
{
	observer_multimap_t::iterator it;
	observer_multimap_t::iterator start = mObservers.lower_bound(parcel_id);
	observer_multimap_t::iterator end = mObservers.upper_bound(parcel_id);

	// Check if the observer is already in observers list for this UUID
	for(it = start; it != end; ++it)
	{
		if (it->second.get() == observer)
		{
			return;
		}
	}

	mObservers.insert(std::make_pair(parcel_id, observer->getObserverHandle()));
}

void LLRemoteParcelInfoProcessor::removeObserver(const LLUUID& parcel_id, LLRemoteParcelInfoObserver* observer)
{
	if (!observer)
	{
		return;
	}

	observer_multimap_t::iterator it;
	observer_multimap_t::iterator start = mObservers.lower_bound(parcel_id);
	observer_multimap_t::iterator end = mObservers.upper_bound(parcel_id);

	for(it = start; it != end; ++it)
	{
		if (it->second.get() == observer)
		{
			mObservers.erase(it);
			break;
		}
	}
}

//static
void LLRemoteParcelInfoProcessor::processParcelInfoReply(LLMessageSystem* msg, void**)
{
	LLParcelData parcel_data;

	msg->getUUIDFast	(_PREHASH_Data, _PREHASH_ParcelID, parcel_data.parcel_id);
	msg->getUUIDFast	(_PREHASH_Data, _PREHASH_OwnerID, parcel_data.owner_id);
	msg->getStringFast	(_PREHASH_Data, _PREHASH_Name, parcel_data.name);
	msg->getStringFast	(_PREHASH_Data, _PREHASH_Desc, parcel_data.desc);
	msg->getS32Fast		(_PREHASH_Data, _PREHASH_ActualArea, parcel_data.actual_area);
	msg->getS32Fast		(_PREHASH_Data, _PREHASH_BillableArea, parcel_data.billable_area);
	msg->getU8Fast		(_PREHASH_Data, _PREHASH_Flags, parcel_data.flags);
	msg->getF32Fast		(_PREHASH_Data, _PREHASH_GlobalX, parcel_data.global_x);
	msg->getF32Fast		(_PREHASH_Data, _PREHASH_GlobalY, parcel_data.global_y);
	msg->getF32Fast		(_PREHASH_Data, _PREHASH_GlobalZ, parcel_data.global_z);
	msg->getStringFast	(_PREHASH_Data, _PREHASH_SimName, parcel_data.sim_name);
	msg->getUUIDFast	(_PREHASH_Data, _PREHASH_SnapshotID, parcel_data.snapshot_id);
	msg->getF32Fast		(_PREHASH_Data, _PREHASH_Dwell, parcel_data.dwell);
	msg->getS32Fast		(_PREHASH_Data, _PREHASH_SalePrice, parcel_data.sale_price);
	msg->getS32Fast		(_PREHASH_Data, _PREHASH_AuctionID, parcel_data.auction_id);

	LLRemoteParcelInfoProcessor::observer_multimap_t & observers = LLRemoteParcelInfoProcessor::getInstance()->mObservers;

	typedef std::vector<observer_multimap_t::iterator> deadlist_t;
	deadlist_t dead_iters;

	observer_multimap_t::iterator oi = observers.lower_bound(parcel_data.parcel_id);
	observer_multimap_t::iterator end = observers.upper_bound(parcel_data.parcel_id);

	while (oi != end)
	{
		// increment the loop iterator now since it may become invalid below
		observer_multimap_t::iterator cur_oi = oi++;

		LLRemoteParcelInfoObserver * observer = cur_oi->second.get();
		if(observer)
		{
			// may invalidate cur_oi if the observer removes itself 
			observer->processParcelInfo(parcel_data);
		}
		else
		{
			// the handle points to an expired observer, so don't keep it
			// around anymore
			dead_iters.push_back(cur_oi);
		}
	}

	deadlist_t::iterator i;
	deadlist_t::iterator end_dead = dead_iters.end();
	for(i = dead_iters.begin(); i != end_dead; ++i)
	{
		observers.erase(*i);
	}

	LLUrlEntryParcel::LLParcelData url_data;
	url_data.parcel_id = parcel_data.parcel_id;
	url_data.name = parcel_data.name;
	url_data.sim_name = parcel_data.sim_name;
	url_data.global_x = parcel_data.global_x;
	url_data.global_y = parcel_data.global_y;
	url_data.global_z = parcel_data.global_z;

	// Pass the parcel data to LLUrlEntryParcel to render
	// human readable parcel name.
	LLUrlEntryParcel::processParcelInfo(url_data);
}

void LLRemoteParcelInfoProcessor::sendParcelInfoRequest(const LLUUID& parcel_id)
{
	LLMessageSystem *msg = gMessageSystem;

	msg->newMessageFast(_PREHASH_ParcelInfoRequest);
	msg->nextBlockFast(_PREHASH_AgentData);
	msg->addUUIDFast(_PREHASH_AgentID, gAgent.getID() );
	msg->addUUIDFast(_PREHASH_SessionID, gAgent.getSessionID());
	msg->nextBlockFast(_PREHASH_Data);
	msg->addUUIDFast(_PREHASH_ParcelID, parcel_id);
	gAgent.sendReliableMessage();
}

bool LLRemoteParcelInfoProcessor::requestRegionParcelInfo(const std::string &url, 
    const LLUUID &regionId, const LLVector3 &regionPos, const LLVector3d&globalPos,
    LLHandle<LLRemoteParcelInfoObserver> observerHandle)
{

    if (!url.empty())
    {
        LLCoros::instance().launch("LLRemoteParcelInfoProcessor::regionParcelInfoCoro",
            boost::bind(&LLRemoteParcelInfoProcessor::regionParcelInfoCoro, this, url,
            regionId, regionPos, globalPos, observerHandle));
        return true;
    }

    return false;
}

void LLRemoteParcelInfoProcessor::regionParcelInfoCoro(std::string url, 
    LLUUID regionId, LLVector3 posRegion, LLVector3d posGlobal, 
    LLHandle<LLRemoteParcelInfoObserver> observerHandle)
{
    LLCore::HttpRequest::policy_t httpPolicy(LLCore::HttpRequest::DEFAULT_POLICY_ID);
    LLCoreHttpUtil::HttpCoroutineAdapter::ptr_t
        httpAdapter(std::make_shared<LLCoreHttpUtil::HttpCoroutineAdapter>("RemoteParcelRequest", httpPolicy));
    LLCore::HttpRequest::ptr_t httpRequest(std::make_shared<LLCore::HttpRequest>());

    LLSD bodyData;

    bodyData["location"] = ll_sd_from_vector3(posRegion);
    if (!regionId.isNull())
    {
        bodyData["region_id"] = regionId;
    }
    if (!posGlobal.isExactlyZero())
    {
        U64 regionHandle = to_region_handle(posGlobal);
        bodyData["region_handle"] = ll_sd_from_U64(regionHandle);
    }

    LLSD result = httpAdapter->postAndSuspend(httpRequest, url, bodyData);

    LLSD httpResults = result[LLCoreHttpUtil::HttpCoroutineAdapter::HTTP_RESULTS];
    LLCore::HttpStatus status = LLCoreHttpUtil::HttpCoroutineAdapter::getStatusFromLLSD(httpResults);

    LLRemoteParcelInfoObserver* observer = observerHandle.get();
    // Panel inspecting the information may be closed and destroyed
    // before this response is received.
    if (!observer)
        return;

    if (!status)
    {
        observer->setErrorStatus(status.getStatus(), status.getMessage());
    }
    else 
    {
        LLUUID parcel_id = result["parcel_id"];
        observer->setParcelID(parcel_id);
    }

}
