// Copyright (c) 1997-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:
// Protocol (PAP) - RFC 1334.
// 
//

/**
 @file
 @brief Source file for the implementation of Password Authentication
 @internalComponent 
*/

#include "ppppap.h"
#include "PppProg.h"
#include "PPPAUTH.H"
#include "PPPConfig.h"


//
CPppPap::CPppPap()
	{
	}

CPppPap::~CPppPap()
	{
	if (iPppLcp != 0)
		TimerDelete();
	}

void CPppPap::InitL(CPppLcp* aLcp)
	{
	CPppAuthentication::InitL(aLcp);
	TimerConstructL(KPppFsmTimerPriority);
	Register();
	}

void CPppPap::AuthenticateComplete(TInt aStatus)
	{
	ASSERT(iPppLcp != 0);

	if (aStatus==KErrNone)
		{
		//ignore Error, if fails it will time out 
		//and try again anyway.
		TRAP_IGNORE(SendAuthRequestL(ETrue));
		}
	else
		DoFail(aStatus);
	}

void CPppPap::LowerLayerUp()
	{
	ASSERT(iPppLcp != 0);

	if (iFlags & KPppApIsClient)
		{
		if (IsAuthenticateRequestDone())
			{
			//ignore Error, if fails it will time out 
			//and try again anyway.
			TRAP_IGNORE(SendAuthRequestL(ETrue));
			}
		else
			AuthenticateRequest();
		}
	}

void CPppPap::LowerLayerDown(TInt /*aStatus*/)
	{
	ASSERT(iPppLcp != 0);

	TimerCancel();
	}

void CPppPap::TimerComplete(TInt /*aStatus*/)
	{
	ASSERT(iPppLcp != 0);

	if (iTryCount>0)
		{
		//ignore Error, if fails it will time out 
		//and try again anyway.
		TRAP_IGNORE(SendAuthRequestL());
		}
	}

void CPppPap::SendAuthRequestL(TBool aNewRequest)
	{
    const CCredentialsConfig* credentials = iPppLcp->GetCredentials();
#ifdef _UNICODE
	const TDesC& username = credentials->GetUserName();
	HBufC8& user = *HBufC8::NewLC(username.Length());
	user.Des().Copy(username);

	const TDesC& password = credentials->GetPassword();
	HBufC8& pass = *HBufC8::NewLC(password.Length());
 	pass.Des().Copy(password);
#else
	TPtrC8 user(credentials->GetUserName()), pass(credentials->GetPassword());
#endif

	RMBufPacket pkt;
	RMBufPktInfo* info = NULL;
	TInt len = 4+user.Length()+1+pass.Length()+1;
	TRAPD(err, pkt.AllocL(len));
	if (err!=KErrNone)
		return;
	TRAP(err, info = pkt.NewInfoL());
	if (err!=KErrNone)
		{
		pkt.Free();
		return;
		}
	TUint8* ptr = pkt.First()->Ptr();
	*ptr++ = KPppPapRequest;
	if (aNewRequest)
		{
		iTryCount = KPppPapRetries;
		if (++iCurrentId==0)
			++iCurrentId;
		}
	*ptr++ = iCurrentId;
	BigEndian::Put16(ptr, (TUint16)len);
	ptr += 2;
	*ptr++ = (TUint8)user.Length();	
	Mem::Copy(ptr, (TUint8*)user.Ptr(), user.Length());
	ptr += user.Length();
	*ptr++ = (TUint8)pass.Length();	
	Mem::Copy(ptr, (TUint8*)pass.Ptr(), pass.Length());
	ptr += pass.Length();
	info->iLength = len;	
	TPppAddr::Cast((info->iDstAddr)).SetProtocol(iPppId);
	pkt.Pack();
	SendFrame(pkt);
	TimerCancel();
	TimerAfter(KPppPapWaitTime*1000);
	--iTryCount;

#ifdef _UNICODE
	CleanupStack::PopAndDestroy(&pass);
	CleanupStack::PopAndDestroy(&user);
#endif
	}


TBool CPppPap::RecvFrame(RMBufChain& aPacket)
	{
	ASSERT(iPppLcp != 0);

	RMBufPacket pkt;
	pkt.Assign(aPacket);
	pkt.Unpack();
	RMBufPktInfo* info = pkt.Info();

	TUint8 op;
	TUint8 id;
	TInt len;

	if (IsInactive())
		{
		pkt.Free();
		return EFalse;
		}
	
	// Extract and drop LCP header
	pkt.Align(4);
	TUint8* ptr = pkt.First()->Ptr();
	op = *ptr++;
	id = *ptr++;
	len = BigEndian::Get16(ptr);
	
	// Check packet length is OK
	if (info->iLength<len)
		{
		// Too short!
		pkt.Free();
		return EFalse;
		}
	else if (info->iLength>len)
		pkt.TrimEnd(len);
	
	pkt.TrimStart(4);

	switch (op)
		{
	case KPppPapRequest:
		{
		TInt n;
		TPtrC8 user;
		TPtrC8 pass;
		n = *ptr++;
		user.Set(ptr, n);  ptr += n;
		n = *ptr++;
		pass.Set(ptr, n);  ptr += n;
		}
	case KPppPapAck:
		if (id==iCurrentId)
			{
			TimerCancel();
			DoSucceed();
			if(iPppLcp->CallbackEnabled() && iPppLcp->CallbackRequestType() != ECallbackIETFRequestTypeMSCBCP)
				{
				iPppLcp->CallbackGrantedAndAuthenticated();
				iPppLcp->TerminateLink(MNifIfNotify::ECallBack);	// all done, shut it all down
				}
			}
		break;
	case KPppPapNak:
		if (id==iCurrentId)
			{
			TimerCancel();
			DoFail(KErrIfAuthenticationFailure);
			}
		break;
		}
	pkt.Free();
	return EFalse;
	}