// Copyright (c) 2002-2009 Nokia Corporation and/or its subsidiary(-ies).

// All rights reserved.

// This component and the accompanying materials are made available

// under the terms of "Eclipse Public License v1.0"

// which accompanies this distribution, and is available

// at the URL "http://www.eclipse.org/legal/epl-v10.html".

//

// Initial Contributors:

// Nokia Corporation - initial contribution.

//

// Contributors:

//

// Description:

//

#include "chttpheaderreader.h"

#include <inetprottextutils.h>

#include <tinternetdate.h>

#include <http/rhttpsession.h>

#include "CHeaderField.h"

CHttpHeaderReader::CHttpHeaderReader(RStringPool aStrPool)

	: iStrPool(aStrPool), iStringTable(RHTTPSession::GetTable())

	{

	}

/** Generic Decoding function that splits headers into parts on a character separator */

void CHttpHeaderReader::DecodeGenericL(RHeaderField& aHeader, const TDesC8& aSeparator) const

	{

	TPtrC8 rawData;

	aHeader.RawDataL(rawData);

	TInt remaining = rawData.Length();

	TPtrC8 token;

	TInt tokensFound =0;

	while (remaining > 0)

		{

		remaining -= InetProtTextUtils::ExtractNextTokenFromList(rawData, token, aSeparator);

		SetNewFStringPartL(aHeader, tokensFound, token);

		++tokensFound;

		if(remaining > 0)

			{

			remaining -= InetProtTextUtils::ExtractNextTokenFromList(rawData, token, aSeparator);

			SetNewFStringPartL(aHeader, tokensFound, token);

			++tokensFound;

			}

		}

	}

// Helper to DoUserAgentL(), etc., which take token lists with arbitrary separators

void CHttpHeaderReader::DecodeTokenListHeaderL(RHeaderField& aHeader, const TDesC8& aSep) const

	{

	TPtrC8 rawData;

	TPtrC8 token;

	aHeader.RawDataL(rawData);

	TUint remaining = rawData.Length();

	TInt tokensFound=0;

	while (remaining > 0)

		{

		remaining -= InetProtTextUtils::ExtractNextTokenFromList(rawData, token, aSep);

		InetProtTextUtils::RemoveWhiteSpace(token, InetProtTextUtils::ERemoveBoth);

		SetNewFStringPartL(aHeader, tokensFound, token);

		tokensFound++;

		if(remaining > 0)

			{

			remaining -= InetProtTextUtils::ExtractNextTokenFromList(rawData, token, aSep);

			InetProtTextUtils::RemoveWhiteSpace(token, InetProtTextUtils::ERemoveBoth);

			SetNewFStringPartL(aHeader, tokensFound, token);

			tokensFound++;

			}

		}

	}

void CHttpHeaderReader::DecodeGenericNumberL(RHeaderField& aHeader) const

	{

	TPtrC8 buffer;

	aHeader.RawDataL(buffer);

	TInt number = KErrNotFound;

	TInt decimalPos = buffer.Locate('.');

	if(decimalPos == 0)

		{

		// first character is decimal. So, set the value as zero.

		SetNewIntegerPartL(aHeader, 0, 0);

		}

	else

	   	{

		// Search for '\n' separator. In the case when a duplicate header has been received,

		// only use the fist instance of the valid data.

		TInt newLinePos = buffer.Locate('\n');

		if (newLinePos != KErrNotFound)

			{

			buffer.Set(buffer.Left(newLinePos));

			}

		TInt value = KErrNotFound;

		TInt ret = InetProtTextUtils::ConvertDescriptorToInt(buffer, value);

		if ( ret > KErrNone ) 

			{

			// Extract an integer.  Do not permit terminators other than WS or EOL.

			InetProtTextUtils::ExtractIntegerValueL(buffer, number, EFalse);	

			}

		SetNewIntegerPartL(aHeader, 0, number); // part 0, i.e. the first (and only) part

	   	}

	}

CHeaderFieldPart* CHttpHeaderReader::SetNewIntegerPartL(RHeaderField& aHeader, TInt aPartIndex, TInt aValue) const

	{

	THTTPHdrVal partVal(aValue);

	CHeaderFieldPart* part = SetNewPartL(aHeader, aPartIndex, partVal);

	return part;

	}

CHeaderFieldPart* CHttpHeaderReader::SetNewDatePartL(RHeaderField& aHeader, TInt aPartIndex, TDateTime& aDate) const

	{

	THTTPHdrVal partVal(aDate);

	CHeaderFieldPart* part = SetNewPartL(aHeader, aPartIndex, partVal);

	return part;

	}

CHeaderFieldPart* CHttpHeaderReader::SetNewFStringPartL(RHeaderField& aHeader, TInt aPartIndex, TPtrC8 aValue) const

	{

	RStringF partStr = iStrPool.OpenFStringL(aValue);

	CleanupClosePushL(partStr);

	THTTPHdrVal partVal(partStr);

	CHeaderFieldPart* part = SetNewPartL(aHeader, aPartIndex, partVal);

	CleanupStack::PopAndDestroy(&partStr);

	return part;

	}

CHeaderFieldPart* CHttpHeaderReader::SetNewStringPartL(RHeaderField& aHeader, TInt aPartIndex, TPtrC8 aValue) const

	{

	RString partStr = iStrPool.OpenStringL(aValue);

	CleanupClosePushL(partStr);

	THTTPHdrVal partVal(partStr);

	CHeaderFieldPart* part = SetNewPartL(aHeader, aPartIndex, partVal);

	CleanupStack::PopAndDestroy(&partStr);

	return part;

	}

CHeaderFieldPart* CHttpHeaderReader::SetNewPartL(RHeaderField& aHeader, TInt aPartIndex, THTTPHdrVal& aPartVal) const

	{

	CHeaderFieldPart* part = CHeaderFieldPart::NewL(aPartVal);

	CleanupStack::PushL(part);

	aHeader.SetPartL(part, aPartIndex);

	CleanupStack::Pop(part);

	return part;

	}

void CHttpHeaderReader::SetParamNameAndValueL(CHeaderFieldPart& aHeaderPart, const TDesC8& aParam, TBool aQuotedValueAllowed) const

 	{

	// Extract the name and value of the parameter. 

	TPtrC8 paramName;

	TPtrC8 paramValue;

	TInt equalPos = aParam.Locate('=');

	if (equalPos == KErrNotFound)

		{

		// If there is no value then set an empty parameter

		paramName.Set(aParam);

		paramValue.Set(KNullDesC8);

		}

	else

		{

		paramName.Set(aParam.Left(equalPos));

		InetProtTextUtils::RemoveWhiteSpace(paramName, InetProtTextUtils::ERemoveBoth);		

		paramValue.Set(aParam.Right(aParam.Length() - (equalPos+1)));

		InetProtTextUtils::RemoveWhiteSpace(paramValue, InetProtTextUtils::ERemoveBoth);		

		}

	TPtrC8 unquotedParamValue;

	if (aQuotedValueAllowed && paramValue.Length() > 0 && paramValue[0] == '"')

		{

		InetProtTextUtils::ExtractQuotedStringL(paramValue, unquotedParamValue);

		}				

	else

		{

		unquotedParamValue.Set(paramValue);

		}

	SetNewFStringParamL(aHeaderPart, paramName, unquotedParamValue);

	}

CHeaderFieldParam* CHttpHeaderReader::SetNewFStringParamL(CHeaderFieldPart& aHeaderPart, TPtrC8 aParamName, TPtrC8 aParamValue) const

	{

	RStringF paramNameStr = iStrPool.OpenFStringL(aParamName);

	CleanupClosePushL(paramNameStr);

	RStringF paramValStr = iStrPool.OpenFStringL(aParamValue);

	CleanupClosePushL(paramValStr);

	THTTPHdrVal paramVal(paramValStr);

	CHeaderFieldParam* param = CHeaderFieldParam::NewL(paramNameStr, paramVal);

	CleanupStack::PushL(param);

	aHeaderPart.AddParamL(param);

	CleanupStack::Pop(param);

	CleanupStack::PopAndDestroy(2, &paramNameStr); // and paramValStr

	return param;

	}

CHeaderFieldParam* CHttpHeaderReader::SetNewStringParamL(CHeaderFieldPart& aHeaderPart, TPtrC8 aParamName, TPtrC8 aParamValue) const

	{

	RStringF paramNameStr = iStrPool.OpenFStringL(aParamName);

	CleanupClosePushL(paramNameStr);

	RString paramValStr = iStrPool.OpenStringL(aParamValue);

	CleanupClosePushL(paramValStr);

	THTTPHdrVal paramVal(paramValStr);

	CHeaderFieldParam* param = CHeaderFieldParam::NewL(paramNameStr, paramVal);

	CleanupStack::PushL(param);

	aHeaderPart.AddParamL(param);

	CleanupStack::Pop(param);

	CleanupStack::PopAndDestroy(2, &paramNameStr); // and paramValStr

	return param;

	}

CHeaderFieldParam* CHttpHeaderReader::SetNewIntegerParamL(CHeaderFieldPart& aHeaderPart, TPtrC8 aParamName, TPtrC8 aParamValue) const

    {

	RStringF paramNameStr = iStrPool.OpenFStringL(aParamName);

	CleanupClosePushL(paramNameStr);

	TInt intParamVal;

	InetProtTextUtils::ConvertDescriptorToInt(aParamValue, intParamVal);

	THTTPHdrVal paramVal(intParamVal);

	CHeaderFieldParam* param = CHeaderFieldParam::NewL(paramNameStr, paramVal);

	CleanupStack::PushL(param);

	aHeaderPart.AddParamL(param);

	CleanupStack::Pop(param);

	CleanupStack::PopAndDestroy(&paramNameStr);

	return param;

   } 

void CHttpHeaderReader::DecodeDateL(RHeaderField& aHeader) const

	{

	// RFC2616, section 14.18

	// Date  = "Date" ":" HTTP-date

	//

	// An example is

	// Date: Tue, 15 Nov 1994 08:12:31 GMT

	TPtrC8 buffer;

	aHeader.RawDataL(buffer);

    // Search for '\n' separator. In the case when a duplicate header has been received,

	// only use the fist instance of the valid data.

	TInt newLinePos = buffer.Locate('\n');

	if (newLinePos != KErrNotFound)

		{

		buffer.Set(buffer.Left(newLinePos));

		}

	TInternetDate date;

	date.SetDateL(buffer);

	TDateTime dateTime = date.DateTime();

	SetNewDatePartL(aHeader, 0, dateTime); // part 0, i.e. the first (and only) part

	}

TInt CHttpHeaderReader::GetParamNameAndValueL(TPtrC8& aBuffer, TPtrC8& aName, TPtrC8& aValue, TInt aErrorCode) const

	{

	TInt bytesConsumed=0;

	TInt equalsPos = (aBuffer.Locate('=') );

	if (equalsPos==KErrNotFound)

		User::Leave(aErrorCode);

	aName.Set(aBuffer.Left(equalsPos));

	InetProtTextUtils::RemoveWhiteSpace(aName, InetProtTextUtils::ERemoveBoth);

	TPtrC8 value(aBuffer.Mid(equalsPos+1));

	InetProtTextUtils::RemoveWhiteSpace(value, InetProtTextUtils::ERemoveBoth);

	// Obtain the parameter value. It is a string which

	// may or may not be quoted. 

	if (value.Length()==0)

		User::Leave(aErrorCode);

	if (value[0] == '"')

		{

		bytesConsumed += InetProtTextUtils::ExtractQuotedStringL(value, aValue);

		}

	else

		{

		aValue.Set(value);

		}

	return bytesConsumed;

	}