// 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:

// Dial Up States

// 

//

/**

 @file Nd_dlupstates.cpp 

*/

#include "Nd_dlupStates.h"

#include <comms-infras/eventlogger.h>

#include <csdprog.h>

#include "ND_DBACC.H"

CDlUpInit* CDlUpInit::NewL(MAgentStateMachineEnv& aSMObserver, MNetdialEnv& aNdEnv)

/**

Dial Up Init State

2 phased constructor for CDlUpInit, first phase.

@param aSMObserver a reference to state machine observer.

@param aNdEnv a reference to the Netdial which defines a set of utility functions.

@exception Leaves if ConstructL() leaves, or not enough memory is available.

@return a new CDlUpInit object.

*/

	{

	CDlUpInit* r=new(ELeave) CDlUpInit(aSMObserver, aNdEnv);

	CleanupStack::PushL(r);

	r->ConstructL();

	CleanupStack::Pop();

	return r;

	}

CDlUpInit::CDlUpInit(MAgentStateMachineEnv& aSMObserver, MNetdialEnv& aNdEnv)

	: CAgentStateBase(aSMObserver),iNdEnv(&aNdEnv)

/**

Private constructor for CDlUpInit, used in the first phase of construction.

@param aSMObserver a reference to the database accessor.

@param aNdEnv a reference to the Netdial which defines a set of utility functions.

*/

	{}

void CDlUpInit::ConstructL()

/**

Instantiate Member variable.

Call base class CNdCallBackStateBase::ConstructL().

@exception Leaves if CNdCallBackStateBase::ConstructL() leaves, or not enough memory is available.

*/

	{}

CDlUpInit::~CDlUpInit()

/**

Destructor.

Cancel active request.

*/

	{

	Cancel();

	}

void CDlUpInit::StartState()

/**

Starts dialup init state.

If connection is reconnect and used script is not NULL, delete script.

Call JumpToRunl() with KErrNone.

*/

	{

	if (((iNdEnv->BaseEnv())->IsReconnect()) && (iNdEnv->Script()!=NULL))

			{

			iNdEnv->DeleteScript();

			}

	JumpToRunl(KErrNone);

	}

CAgentStateBase* CDlUpInit::NextStateL(TBool aContinue)

/**

Changes to from init state to next state.

If connection is not continued, create disconnect state.

Else create dialling state.

@exception Leaves if NewL() leaves.

@return a new CDlUpDisconnect or CDlUpDialling object.

*/

	{

	if(!aContinue)

		{

		return CDlUpDisconnect::NewL(*iSMObserver,*iNdEnv);

		}

	else

		{

		return CDlUpDialling::NewL(*iSMObserver,*iNdEnv);

		}

	}

void CDlUpInit::DoCancel()

/**

Cancels active requests.

*/

	{

	}

void CDlUpInit::RunL()

/**

Dial up init completed.

Call CompleteState() with KErrNone.

*/

	{

	__ASSERT_DEBUG(iStatus==KErrNone, User::Invariant());

	(iNdEnv->BaseEnv())->CompleteState(KErrNone);

	}

CDlUpDialling* CDlUpDialling::NewL(MAgentStateMachineEnv& aSMObserver, MNetdialEnv& aNdEnv)

/**

Dial Up Dialling State

2 phased constructor for CDlUpDialling, first phase.

@param aSMObserver a reference to state machine observer.

@param aNdEnv a reference to the Netdial which defines a set of utility functions.

@exception Leaves if ConstructL() leaves, or not enough memory is available.

@return a new CDlUpDialling object.

*/

	{

	CDlUpDialling* r=new(ELeave) CDlUpDialling(aSMObserver,aNdEnv);

	CleanupStack::PushL(r);

	r->ConstructL();

	CleanupStack::Pop();

	return r;

	}

CDlUpDialling::CDlUpDialling(MAgentStateMachineEnv& aSMObserver, MNetdialEnv& aNdEnv)

	: CAgentStateBase(aSMObserver),iNdEnv(&aNdEnv)

/**

Private constructor for CDlUpDialling, used in the first phase of construction.

@param aSMObserver a reference to the database accessor.

@param aNdEnv a reference to the Netdial which defines a set of utility functions.

*/

	{}

void CDlUpDialling::ConstructL()

/**

Instantiate Member variable.

Call base class CNdCallBackStateBase::ConstructL().

@exception Leaves if CNdCallBackStateBase::ConstructL() leaves, or not enough memory is available.

*/

	{}

CDlUpDialling::~CDlUpDialling()

/**

Destructor.

Cancel active request.

*/

	{

	Cancel();

	}

void CDlUpDialling::StartState()

/**

Starts dialup dialling state.

Call UpdateProgress() with EStartingDialling and KErrNone.

If reconnect, trap and start reconnect by calling StartReconnectL() from ETel server processor.

Else trap and start dial up by calling StartDialUpL() from ETel server processor.

If trap error, call JumpToRunl() with the trap error and return.

Else set state active.

*/

	{

	TInt err=KErrNone;

	iSMObserver->UpdateProgress(ECsdStartingDialling,KErrNone);

	// Either start reconnection or dial up

	if ((iNdEnv->BaseEnv())->IsReconnect())

		{

		TRAP(err,(iNdEnv->TelServPrc())->StartReconnectL(*this));

		}	

	else

		{

		TRAP(err,(iNdEnv->TelServPrc())->StartDialUpL(*this));

		}

	// JumpToRunl with leave error if ETel server processor calls leave.

	if(err!=KErrNone)

		{

		JumpToRunl(err);

		return;

		}

	// Else continue connection, set state active and wait for completition.

	else

		{

		iStatus=KRequestPending;

		SetActive();

		}

	}

CAgentStateBase* CDlUpDialling::NextStateL(TBool aContinue)

/**

Changes to from dialling state to next state.

If connection is not continued or iStatus is not KErrNone, create Disconnect state.

Else create Open Data Port (BCA), Scan Script (non-BCA) state.

@exception Leaves if NewL() leaves.

@return a new CDlUpDisconnect or CDlUpOpenDataPort (BCA) / CDlUpScanScript (non-BCA) object.

*/

	{ 

	if((!aContinue)||(iStatus!=KErrNone))

		{

		return CDlUpDisconnect::NewL(*iSMObserver,*iNdEnv);

		}

	else

		{

#ifdef SYMBIAN_NETWORKING_CSDAGENT_BCA_SUPPORT

		if (iNdEnv->UseScript())

			{			

		return CDlUpOpenDataPort::NewL(*iSMObserver, *iNdEnv);

			}

		else

			{

			return CDlUpOpen::NewL(*iSMObserver,*iNdEnv);

			}			

#else

		return CDlUpOpenDataPort::NewL(*iSMObserver, *iNdEnv);

#endif

		}

	}

void CDlUpDialling::TelFunctionComplete(TInt aError)

	{

	TRequestStatus* status=&iStatus;

	User::RequestComplete(status,aError);

	}

void CDlUpDialling::DoCancel()

/**

Cancels active requests.

*/

	{

	// if a log event creation is ongoing, we want to let it go and the log event should reflect the reality

	// a call has been made and custumer will be charged for it

	//iNdEnv->Logger()->Cancel();

	if((iNdEnv->TelServPrc())!=NULL)

		(iNdEnv->TelServPrc())->Cancel();

	if (iStatus == KRequestPending)

		{

		TelFunctionComplete(KErrCancel);

		}

	}

void CDlUpDialling::RunL()

/**

Dialling completed (should not complete if connection cancelled).

If there is an error then signal it by calling ConnectionComplete() with EFinishedDialling and iStatus.Int().

Call UpdateProgress() with ECsdFinishedDialling and KErrNone.

Call PreventConnectionRetries() to stop new connections.

Call CompleteState() with KErrNone.

Dialling is always asynchronous, so should not complete if cancelled.

*/

	{

	if(iStatus!=KErrNone)

		{

		if (iNdEnv->Script()!=NULL)

			iNdEnv->Script()->CloseScript();

		iSMObserver->ConnectionComplete(ECsdFinishedDialling,iStatus.Int());

		return;

		}

	iSMObserver->UpdateProgress(ECsdFinishedDialling,KErrNone);

	iSMObserver->PreventConnectionRetries();

	// request asynch creation of logevent and go to next state

	TBuf<KCommsDbSvrMaxFieldLength> remoteParty;

	(iNdEnv->NetDialDb())->GetRemoteParty(remoteParty);

	TDialString telNum;

	TRAPD(ret, (iNdEnv->NetDialDb())->DoDiallingResolutionL(telNum,EForDisplay));

#ifdef SYMBIAN_NETWORKING_CSDAGENT_BCA_SUPPORT	

	iNdEnv->GetUseScriptL();

	if (!iNdEnv->UseScript())

		{

		// We need to do this stuff now because it will not be done later in the login script setup

		RCall::TCommPort commPort;

		iNdEnv->TelServPrc()->GetCommPortL(commPort); //This updates Nifman's record and is needed by ppp

 		iSMObserver->ServiceStarted();

		}

#endif // SYMBIAN_NETWORKING_CSDAGENT_BCA_SUPPORT		

	// JumpToRunl if error

	if(ret==KErrNone)

		{

		// no logging if problem in finding telephone number

		iNdEnv->Logger()->LogDataAddEvent(R_LOG_CON_CONNECTED, remoteParty,R_LOG_DIR_OUT,telNum,KLogDataEventTypeUid);

		}

	// go to next state without waiting for logevent creation being completed.

	(iNdEnv->BaseEnv())->CompleteState(KErrNone);

	}

TInt CDlUpDialling::RunError(TInt aError)

/**

	Handles errors

*/

	{

	iSMObserver->ConnectionComplete(ECsdScannedScript,aError);

	return KErrNone;

	}

CDlUpScanScript* CDlUpScanScript::NewL(MAgentStateMachineEnv& aSMObserver, MNetdialEnv& aNdEnv)

/**

Dial Up Scan Script State

2 phased constructor for CDlUpScanScript, first phase.

@param aSMObserver a reference to state machine observer.

@param aNdEnv a reference to the Netdial which defines a set of utility functions.

@exception Leaves if ConstructL() leaves, or not enough memory is available.

@return a new CDlUpScanScript object.

*/

	{

	CDlUpScanScript* r=new(ELeave) CDlUpScanScript(aSMObserver,aNdEnv);

	CleanupStack::PushL(r);

	r->ConstructL();

	CleanupStack::Pop();

	return r;

	}

CDlUpScanScript::CDlUpScanScript(MAgentStateMachineEnv& aSMObserver, MNetdialEnv& aNdEnv)

	: CAgentStateBase(aSMObserver),iNdEnv(&aNdEnv)

/**

Private constructor for CDlUpDialling, used in the first phase of construction.

@param aSMObserver a reference to the database accessor.

@param aNdEnv a reference to the Netdial which defines a set of utility functions.

*/

	{}

void CDlUpScanScript::ConstructL()

/**

Instantiate Member variable.

Call base class CNdCallBackStateBase::ConstructL().

@exception Leaves if CNdCallBackStateBase::ConstructL() leaves, or not enough memory is available.

*/

	{}

CDlUpScanScript::~CDlUpScanScript()

/**

Destructor.

Cancel active request.

*/

	{

	Cancel();

	}

void CDlUpScanScript::StartState()

/**

Starts Dialup Scan Script state, scans "login" script for READ command.

Call UpdateProgress() with ECsdScanningScript and KErrNone.

Setup script by calling SetUpScriptL().

If SetUpScriptL leaves, call JumpToRunl() with leave error.

If script is used, start scannin script and set state active.

Else call JumpToRunl() with KErrNone.

*/

	{

	if (iNdEnv->UseScript())

		{

		(iNdEnv->Script())->Scan(*this);

		iStatus=KRequestPending;

		SetActive();

		}

	else

		{

		JumpToRunl(KErrNone);

		}

	}

CAgentStateBase* CDlUpScanScript::NextStateL(TBool aContinue)

/**

Changes to from Scan Script state to next state.

If connection is not continued or iStatus is not KErrNone, create Close Data Port (BCA) / Hangup (non-BCA) state.

Else create get login info state.

@exception Leaves if NewL() leaves.

@return a new CDlUpCloseDataPort (BCA) / CDlUpHangUp (non-BCA) or CDlUpGetLoginInfo object.

*/

	{ 

	if((!aContinue)||(iStatus!=KErrNone))

		{

		return CDlUpCloseDataPort::NewL(*iSMObserver,*iNdEnv, iStatus.Int());

		}

	else

		{

		return CDlUpGetLoginInfo::NewL(*iSMObserver,*iNdEnv);

		}

	}

void CDlUpScanScript::DoCancel()

/**

Cancels active requests.

*/

	{

	if (iNdEnv->Script()!=NULL)

		{

		(iNdEnv->Script())->Cancel();

		}

	if (iStatus == KRequestPending)

		{

		ScriptFunctionComplete(KErrCancel);

		}

	}

void CDlUpScanScript::RunL()

/**

Scan completed  (should not complete if connection cancelled).

If there is an error then signal it by calling ConnectionComplete() with EScannedScript and iStatus.Int().

Call UpdateProgress() with ECsdScannedScript and KErrNone.

Call CompleteState() with KErrNone.

*/

	{

	if(iStatus!=KErrNone)

		{

		if (iNdEnv->Script()!=NULL)

			iNdEnv->Script()->CloseScript();

		iSMObserver->ConnectionComplete(ECsdScannedScript,iStatus.Int());

		return;

		}

	iSMObserver->UpdateProgress(ECsdScannedScript,KErrNone);

	(iNdEnv->BaseEnv())->CompleteState(KErrNone);

	}

void CDlUpScanScript::ScriptFunctionComplete(TInt aError)

	{

	TRequestStatus* status=&iStatus;

	User::RequestComplete(status,aError);

	}

CDlUpGetLoginInfo* CDlUpGetLoginInfo::NewL(MAgentStateMachineEnv& aSMObserver, MNetdialEnv& aNdEnv)

/**

Dial Up Get Login Info State

2 phased constructor for CDlUpGetLoginInfo, first phase.

@param aSMObserver a reference to state machine observer.

@param aNdEnv a reference to the Netdial which defines a set of utility functions.

@exception Leaves if ConstructL() leaves, or not enough memory is available.

@return a new CDlUpGetLoginInfo object.

*/

	{

	CDlUpGetLoginInfo* r=new(ELeave) CDlUpGetLoginInfo(aSMObserver,aNdEnv);

	CleanupStack::PushL(r);

	r->ConstructL();

	CleanupStack::Pop();

	return r;

	}

CDlUpGetLoginInfo::CDlUpGetLoginInfo(MAgentStateMachineEnv& aSMObserver, MNetdialEnv& aNdEnv)

	: CGetLoginInfo(aSMObserver,aNdEnv)

/**

Private constructor for CDlUpGetLoginInfo, used in the first phase of construction.

@param aSMObserver a reference to the database accessor.

@param aNdEnv a reference to the Netdial which defines a set of utility functions.

*/

	{}

void CDlUpGetLoginInfo::ConstructL()

/**

Instantiate Member variable.

*/

	{}

CDlUpGetLoginInfo::~CDlUpGetLoginInfo()

/**

Destructor.

Cancel active request.

*/

	{

	}

CAgentStateBase* CDlUpGetLoginInfo::NextStateL(TBool aContinue)

/**

Changes to from get login info state to next state.

If connection is not continued or iStatus is not KErrNone, create Hangup state.

Else create login state.

@exception Leaves if NewL() leaves.

@return a new CDlUpCloseDataPort (BCA) / CDlUpHangUp (non-BCA) or CDlUpLogin object.

*/

	{ 

	if((!aContinue)||(iStatus!=KErrNone))

		{

		TInt err = iStatus.Int();

		if (!aContinue && err == KErrNone)

			{

			// Ensure that CDlUpCloseDataPort receives an error in the case where aContinue==EFalse and iStatus==KErrNone.

			// If not, CDlUpCloseDataPort will carry on as if we are doing a normal startup, advance to CDlUpOpen, and cause

			// a NIFMAN panic (ConnectComplete(), state is EDisconnecting).  Note that the aContinue flag does not seem to be

			// propagated between states, so even though it may be EFalse here (indicating a connection cancellation), in

			// CDlUpCloseDataPort it seems to revert back to ETrue.

			err = KErrCancel;

			}

		return CDlUpCloseDataPort::NewL(*iSMObserver,*iNdEnv, err);

		}

	else //succesful run of state

		{

		return CDlUpLogin::NewL(*iSMObserver,*iNdEnv);

		}

	}