--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/telephonyprotocols/csdagt/script/SSCREXEC.CPP	Tue Feb 02 01:41:59 2010 +0200
@@ -0,0 +1,766 @@
+// Copyright (c) 2003-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:
+// NetDial Script Executor
+// 
+//
+
+/**
+ @file Sscrexec.cpp 
+*/
+
+#include "SSCREXEC.H"
+#include "SIO.H"
+#include "SLOGGER.H"
+#include "ND_SCR.H"
+
+_LIT(KPPPProtocolName,"PPP.");
+
+const TInt KNumErrorVariables=9;
+//const TInt KMaxReadFromPctLength=256;
+//const TInt KMaxReadFromPctLength8=2*KMaxReadFromPctLength;
+
+const SErrorVariable ErrorVariables[KNumErrorVariables]=
+	{
+	{KErrExitScriptTimeOutString,KErrExitScriptTimeOut},
+	{KErrExitLoginFailString,KErrExitLoginFail},
+	{KErrExitNoModemString,KErrExitNoModem},
+	{KErrExitModemErrorString,KErrExitModemError},
+	{KErrExitNoAnswerString,KErrEtelNoAnswer},
+	{KErrExitNoCarrierString,KErrEtelNoCarrier},
+	{KErrExitNoDialToneString,KErrEtelNoDialTone},
+	{KErrExitBusyString,KErrEtelBusyDetected},
+	{KErrExitModemInitErrorString,KErrEtelInitialisationFailure},
+	};
+
+// CScriptExecutor definitons 
+CScriptExecutor* CScriptExecutor::NewL(CNetDialScript* aScript,const TDesC& aCommChannel, TInt aScriptLength)
+
+/**
+2 phased constructor for CScriptExecutor, first phase.
+
+@param aScript a pointer to used script.
+@param aCommPort a reference to COMM port.
+@param aScriptLength is lenght for used script.
+@exception Leaves if ConstructL() leaves, or not enough memory is available.
+@return a new CScriptExecutor object.
+*/
+	{
+	CScriptExecutor* p=new(ELeave) CScriptExecutor(aScript);
+	CleanupStack::PushL(p);
+	p->ConstructL(aCommChannel, aScriptLength);
+	CleanupStack::Pop();
+	return p;
+	}
+
+CScriptExecutor::CScriptExecutor(CNetDialScript* aScript) 
+	: CActive(EPriorityStandard), iScript(aScript), iInitializationFlag(EFalse),iServerRetransmitLoginPromptStatus(EFirstWaitCommand)
+/**
+Constructor for CScriptExecutor, used in the first phase of construction.
+
+@param aScript a pointer to used script.
+*/
+	{}
+
+void CScriptExecutor::ConstructL(const TDesC& aCommChannel, TInt aScriptLength)
+/**
+Instantiate member variables.
+
+@param aCommPort a reference to COMM port.
+@param aScriptLength is script lenght.
+*/
+	{
+	CActiveScheduler::Add(this);
+
+	iScriptIO=CScriptIO::NewL(this, aCommChannel);
+
+// create script reader if script length is greater than zero	
+	if (aScriptLength>0)
+		{
+		iScriptReader=CScriptReader::NewL(aScriptLength);
+		TScriptStatus scriptStatus=iScriptReader->ScriptStatus();
+		iVarMan=CScriptVarMan::NewL();
+		iCharConv=CScriptCharacterConverter::NewL();
+		iLabelMan=CScriptLabelMan::NewL();
+// Construct Command Managers
+		iWaitCommand=CWaitCommand::NewL(scriptStatus,iScriptReader,iVarMan,iCharConv,iScriptIO,iLabelMan, this);
+		iCommands[0]=iWaitCommand;
+		iCommands[1]=CSendCommand::NewL(scriptStatus,iScriptReader,iVarMan,iCharConv,iScriptIO);
+		iReadCommand=CReadPCTCommand::NewL(scriptStatus,iScriptReader,iVarMan,iCharConv,this);
+		iCommands[2]=iReadCommand;
+		iLoopCommand=CLoopCommand::NewL(scriptStatus,iScriptReader,iVarMan,iCharConv);
+		iCommands[3]=iLoopCommand;
+		iCommands[4]=CExitCommand::NewL(scriptStatus,iScriptReader,iVarMan,iCharConv);
+		iGotoCommand=CGotoCommand::NewL(scriptStatus,iScriptReader,iVarMan,iCharConv,iLabelMan);
+		iCommands[5]=iGotoCommand;
+		iCommands[6]=CSetCommand::NewL(scriptStatus,iScriptReader,iVarMan,iCharConv);
+		iCommands[7]=CDTRCommand::NewL(scriptStatus,iScriptReader,iVarMan,iCharConv,iScriptIO);
+		iCommands[8]=CCharMapCommand::NewL(scriptStatus,iScriptReader,iVarMan,iCharConv);
+// Add Error Variables
+		__ASSERT_DEBUG((sizeof(ErrorVariables)/sizeof(SErrorVariable))==KNumErrorVariables,NetDialPanic(ENumOfVariablesIncorrect));
+		TInt i;
+		for (i=0; i<KNumErrorVariables; i++)
+			iVarMan->AddVariableL(TPtrC(ErrorVariables[i].iString),ErrorVariables[i].iValue);
+		}
+	else
+		{
+		iScriptReader=NULL;
+		iVarMan=NULL;
+		iCharConv=NULL;
+		iLabelMan=NULL;
+		iWaitCommand=NULL;
+		iReadCommand=NULL;
+		iGotoCommand=NULL;
+		iLoopCommand=NULL;
+		TInt i;
+		for (i=0; i<KNumCommands; i++)
+			iCommands[i]=NULL;
+		}
+
+// PCT stuff
+	iReadFound=EFalse;
+	iReadReq=0;
+	iReadFromPctPending=EFalse;
+	iDataToWrite.SetLength(0);
+	}
+	
+CScriptExecutor::~CScriptExecutor()
+/**
+Destructor.
+Cancels active requests and deletes members.
+*/
+	{
+	Cancel();
+	delete iDummySearchArray;
+	delete iScriptIO;
+	delete iScriptReader;
+	delete iVarMan;
+	delete iCharConv;
+	delete iLabelMan;
+	for(TInt i=0;i<KNumCommands	;i++)
+		delete iCommands[i];
+	}
+
+void CScriptExecutor::SetLoginParams(const TDesC& aLoginName,const TDesC& aLoginPass)
+/**
+Sets login parameters.
+
+@param aLoginName a reference to login name.
+@param aLoginPass a reference to login password.
+*/
+	{
+	iLoginName.Copy(aLoginName);
+	iLoginPass.Copy(aLoginPass);
+	}
+
+void CScriptExecutor::SetScript(const TDesC& aScript)
+/**
+Sets script.
+
+@param aScript a reference to login name.
+*/
+	{
+	__ASSERT_DEBUG(iLastCommand==NULL, NetDialPanic(ELastCommandNotNull));
+	__ASSERT_DEBUG(iScriptReader!=NULL, NetDialPanic(ENullScriptReader));
+
+	__FLOG_STMT(_LIT8(logString,"Script:\tBeginning");)
+	__FLOG_STATIC(KNetDialLogFolder(),KNetDialLogFile(),logString());
+	iScriptReader->SetScript(aScript);
+	iLoopCommand->Loop(EFalse);
+	}
+
+void CScriptExecutor::ScanScriptL()
+/**
+Scans script for READ command.
+*/
+	{
+	__FLOG_STMT(_LIT8(logString1,"Script:\tScanning");)
+	__FLOG_STATIC(KNetDialLogFolder(),KNetDialLogFile(),logString1());
+
+	__ASSERT_DEBUG(iScriptReader!=NULL, NetDialPanic(ENullScriptReader));
+
+	iReadFound=EFalse;
+	TInt ret=KErrNone;
+	iScriptReader->SetLoggingOff();
+	while (ret!=KErrScriptCompleted)
+		{
+		TRAP(ret,(iReadFound=iReadCommand->CheckReadL()));
+		if (iReadFound || ret!=KErrNone)
+			break;
+		ret=iScriptReader->GetNextLine();
+		}
+
+	if (iReadFound)
+		{
+		__FLOG_STMT(_LIT8(logString2,"Script:\tFound Read");)
+		__FLOG_STATIC(KNetDialLogFolder(),KNetDialLogFile(),logString2());
+		}
+	else
+		{
+		__FLOG_STMT(_LIT8(logString3,"Script:\tDid Not Find Read");)
+		__FLOG_STATIC(KNetDialLogFolder(),KNetDialLogFile(),logString3());
+		}
+
+	User::LeaveIfError(iScriptReader->Reset());
+	}
+
+void CScriptExecutor::RunScript()
+/**
+Runs script.
+*/
+	{
+	iScriptIO->Start();
+	iStatus=KRequestPending;
+	SetActive();
+	}
+
+void CScriptExecutor::ProcessScript()
+/**
+Processes script line by line
+*/
+	{
+	TRAPD(ret,ProcessNextLinesL());
+	if(ret!=KErrNone)
+		{
+		CompletedScript(ret);
+		}
+	}
+
+void CScriptExecutor::ProcessNextLinesL()
+/**
+If read/write not pending clear previous command.  Toggle skip mode if necessary then 
+either parse label or jump to beginning of loop or parse command as necessary.
+*/
+	{
+	__ASSERT_DEBUG(iScriptReader!=NULL, NetDialPanic(ENullScriptReader));
+
+	while(!(iScriptIO->RWPending())&& !(iReadFromPctPending))
+		{
+		CleanupLastCommand();
+		iGotoCommand->ServiceSkipReqs();
+		if(iGotoCommand->ParseLabelL())
+			continue;
+		if(iLoopCommand->CheckLoopL())
+			continue;
+		
+		TInt i;
+		for(i=0;i<KNumCommands;i++)
+			{
+			if(iCommands[i]->ParseL())
+				{
+				iLastCommand=iCommands[i];
+				break;
+				}
+			}
+		if(iLastCommand==NULL)
+			User::Leave(KErrIllegalCommand);
+		}
+	}
+
+void CScriptExecutor::CompletedWrite(TInt aStatus)
+/**
+Stops script if aStatus is an error, otherwise continue to process.
+
+@param aStatus is status passed from caller.
+*/
+	{
+	if((aStatus==KErrTimedOut)&&(iInitializationFlag))
+		CompletedScript(KErrExitNoModem);
+	else if((aStatus==KErrNone)||(aStatus==KErrTimedOut))
+		{
+		if (iDataToWrite.Length()>0 && !iScriptIO->WritePending())
+			{
+			iScriptIO->Write(iDataToWrite);
+			iDataToWrite.SetLength(0);
+			}
+		else
+			{
+			iInitializationFlag=EFalse;
+			if(iServerRetransmitLoginPromptStatus == ESendingCR)
+				{
+				// The previous WAIT for a login prompt timed out and we sent 
+				// a 0x0d to encourage the server to resend the login
+				// So wait for the login prompt again
+				iServerRetransmitLoginPromptStatus = ESecondWaitCommand;
+				TRAPD(ret, iDummySearchArray=new(ELeave) CLabelSearchArray(1));
+				if(ret != KErrNone)
+					{
+					iServerRetransmitLoginPromptStatus = EDeactivated;
+					ProcessScript();
+					}
+				else iScriptIO->Read(iDummySearchArray, iRetransmitLoginTimeOut);
+				}
+			else ProcessScript();
+			}
+		}
+	else	
+		CompletedScript(aStatus);
+	}
+
+void CScriptExecutor::CompletedReadL(TInt aStatus,TInt aIndex)
+/**
+Stops script if there is an error, or otherwise continue to process or jump to 
+label as ncessary.  Ignore comms line fail errors.
+
+@param aStatus is passed from caller.
+@param aIndex is index for label.
+*/
+	{
+	__ASSERT_DEBUG(iScriptReader!=NULL, NetDialPanic(ENullScriptReader));
+
+	if(iServerRetransmitLoginPromptStatus == ESecondWaitCommand)
+		{
+		// We must have sent a 0x0d to try and force the server to retransmit the 
+		// login prompt
+		// Delete the dummy search array and stop the RetransmitLogin mechanism since
+		// irrespective of the outcome of the read, we're not going to send any more 0x0d
+		delete iDummySearchArray;
+		iDummySearchArray=NULL;
+		iServerRetransmitLoginPromptStatus=EDeactivated;
+		}
+
+	if(iInitializationFlag)
+		{
+		iInitializationFlag=EFalse;
+		ProcessScript();
+		}
+	else
+		{
+		switch(aStatus)
+			{
+		case KErrNone:
+				{
+				iServerRetransmitLoginPromptStatus=EDeactivated;
+				TPtrC label=iWaitCommand->LabelFromIndexL(aIndex);
+				iGotoCommand->Goto(label);
+				}
+			ProcessScript();
+			break;
+		case KErrTimedOut:
+			// If the very first WAIT script command fails it's possible that the
+			// server sent the login prompt before MM.TSY had finished with
+			// the serial port
+			// If so, we can send a 0x0d (Carriage Return) to wake it up 
+			// and re-transmit the login prompt
+			if(iServerRetransmitLoginPromptStatus == EFirstWaitCommand)
+				{
+				// Transmit a 0x0d to the server
+				iServerRetransmitLoginPromptStatus=ESendingCR;
+				TBuf8<1> CarriageReturn;
+				CarriageReturn.SetLength(1);
+				CarriageReturn[0]=0x0d;
+				TPtrC8 CR(CarriageReturn);
+				iScriptIO->Write(CR);
+				break;
+				}
+			iServerRetransmitLoginPromptStatus=EDeactivated;
+			ProcessScript();
+			break;
+		case KErrCommsLineFail:
+			iServerRetransmitLoginPromptStatus=EDeactivated;
+			ProcessScript();
+			break;
+		default:
+			iServerRetransmitLoginPromptStatus=EDeactivated;
+			CompletedScript(aStatus);
+			break;
+			}
+		}
+	}
+
+void CScriptExecutor::CompletedScript(TInt aStatus)
+/**
+If aStatus is not an error, check that not still looking for a label.
+Convert internal error to public error and finish.
+
+@param aStatus is passed from caller.
+*/
+	{
+	// Safety check - this method may be called from multiple locations,
+	// possibly resulting in more than one call for the same event.
+	if (iStatus==KRequestPending)
+		{
+		__ASSERT_DEBUG(iScriptReader!=NULL, NetDialPanic(ENullScriptReader));
+
+		if(aStatus==KErrScriptCompleted)
+			aStatus=KErrNone;
+	
+		TInt error=aStatus;
+
+		__FLOG_STMT(_LIT8(logString,"Script:\tScript Completed With Error %d");)
+		__FLOG_STATIC1(KNetDialLogFolder(),KNetDialLogFile(),TRefByValue<const TDesC8>(logString()),error);
+
+		ConvertScriptError(error);
+		PctCancelAndClose();
+
+		CleanupLastCommand();
+		iLoopCommand->Loop(EFalse);
+	
+		iScriptIO->Cancel();
+
+		TRequestStatus* statusPtr=&iStatus;
+		User::RequestComplete(statusPtr,error);
+		}
+	}
+
+void CScriptExecutor::DoCancel()
+/**
+Cancel read/write, and callbacks and cleanup last command
+*/
+	{
+	if(iServerRetransmitLoginPromptStatus == ESecondWaitCommand)
+		{
+		delete iDummySearchArray;
+		iDummySearchArray=NULL;
+		iServerRetransmitLoginPromptStatus=EDeactivated;
+		}
+
+	CleanupLastCommand();
+	iScriptIO->Cancel();
+	PctCancelAndClose();
+	
+	TRequestStatus* statusPtr=&iStatus;
+	User::RequestComplete(statusPtr,KErrCancel);
+	iScript->ScriptOperationComplete(KErrCancel);
+	}
+
+void CScriptExecutor::Disconnect()
+/**
+Disconect.
+*/
+	{
+	iScriptIO->Disconnect();
+	}
+
+void CScriptExecutor::ReConfigureAndCancelCommPort(TRequestStatus& aStatus)
+/**
+Call ReConfigureAndCancelPort() from script IO handler.
+*/
+	{
+	iScriptIO->ReConfigureAndCancelPort(aStatus);
+	}
+
+
+void CScriptExecutor::CloseScript()
+/**
+Close script.
+*/
+	{
+	__FLOG_STMT(_LIT8(logString,"Script:\tClosing");)
+	__FLOG_STATIC(KNetDialLogFolder(),KNetDialLogFile(),logString());
+	if (iScriptReader!=NULL)
+		iScriptReader->Reset();		// ignore error
+	}
+
+void CScriptExecutor::Close()
+/**
+Cleanup last command, close script file, and delete all variables and labels from lists.
+*/
+	{
+	CleanupLastCommand();
+
+	if (iLoopCommand!=NULL)
+		iLoopCommand->Loop(EFalse);
+
+	PctCancelAndClose();
+	CloseScript();
+
+	if (iVarMan!=NULL)
+		iVarMan->DeleteAll();
+	if (iLabelMan!=NULL)
+		iLabelMan->DeleteAll();
+	}
+
+void CScriptExecutor::SetRetransmittedLoginTimeout(TReal& aRetransmitLoginTimeOut)
+/**
+Remember the timeout used on the wait statement that is currently executing
+
+@param aRetransmitLoginTimeOut is passed from CWaitCommand.
+*/
+	{
+	iRetransmitLoginTimeOut = aRetransmitLoginTimeOut;
+	if(iServerRetransmitLoginPromptStatus == EFirstWaitCommand)
+		{
+		// This is the first time we are going to wait for anything
+		// If we wait too long, the TCP/IP stack will time out so better not
+		// wait more than say 30 seconds the first time around
+		if(aRetransmitLoginTimeOut > 30)
+			aRetransmitLoginTimeOut = 30;
+		}
+	}
+
+TInt CScriptExecutor::WritePct(const TDesC8& aBuffer)
+/**
+CScriptIO calls to write incoming data to PCT. Convert the 8 bit data to
+default character set and pass up to the dialog server.
+
+@param aBuffer a reference to buffer to be written.
+@return error code from WritePct() or leave code if ConvertFromDefaultL() leaves.
+*/
+	{
+	__ASSERT_DEBUG(aBuffer.Length()<=KRxBufferSize, User::Invariant());
+	TBuf<KRxBufferSize> convertedBuf;
+	TRAPD(ret, iCharConv->ConvertFromDefaultL(aBuffer,convertedBuf));
+	if (ret == KErrNone)
+		{
+		return iScript->WritePct(convertedBuf);
+		}
+	else
+		{
+		return ret;
+		}
+	}
+
+void CScriptExecutor::SetReadPctBuffer()
+/**
+This is for the test dialog server only because we can't type in the value.
+*/
+	{
+	iReadBuffer.SetLength(0);
+	iReadReq++;
+	if (iReadReq==1)
+		iReadBuffer.Copy(iLoginName.Left(Min(iLoginName.Length(),3)));
+	else if (iReadReq==2)
+		{
+		if (iLoginName.Length()>3)
+			iReadBuffer.Copy(iLoginName.Right(iLoginName.Length()-3));
+		iReadBuffer.Append('.');
+		}
+	else if (iReadReq==3)
+		iReadBuffer.Copy(iLoginPass.Left(Min(iLoginPass.Length(),3)));
+	else if (iReadReq==4)
+		{
+		if (iLoginPass.Length()>3)
+			iReadBuffer.Copy(iLoginPass.Right(iLoginPass.Length()-3));
+		iReadBuffer.Append('.');
+		}
+	else if (iReadReq==5)
+		iReadBuffer.Copy(KPPPProtocolName);
+	else
+		iReadBuffer.Zero();
+	}	
+
+void CScriptExecutor::ReadPct()
+/**
+Read PCT.
+*/
+	{
+	SetReadPctBuffer();
+	iScript->ReadPct(iReadBuffer);
+	iScriptIO->ReadEcho();
+	iReadFromPctPending=ETrue;
+	}
+
+void CScriptExecutor::ReadPctComplete(TInt aStatus)
+/**
+Data recived from PCT to be written to port. For unicode - need to know the
+character set it should be sent in and convert to this from  UNICODE (or whatever 
+PCT uses).  Pass to the Script IO as 8 bit.
+
+@param aStatus passed from caller.
+*/
+	{
+	__ASSERT_ALWAYS(iReadFromPctPending, NetDialPanic(EIllegalReadPctComplete));
+
+	if (aStatus==KErrCancel)	// means that NetDial has called Cancel() or ClosePct() while read request outstanding
+		{
+		iReadFromPctPending=EFalse;
+		return;
+		}
+	
+	if (aStatus!=KErrNone)		// something other than KErrCancel
+		{
+		iScriptIO->ReadEchoCancel();
+		iReadFromPctPending=EFalse;
+		CompletedScript(aStatus);
+		return;
+		}
+		
+	HBufC8* buf=NULL;
+	TRAPD(ret,buf=iCharConv->ConvertL(iReadBuffer,iReadCommand->CharSet()));
+	if(ret!=KErrNone)
+		{
+		iScriptIO->ReadEchoCancel();
+		iReadFromPctPending=EFalse;
+		CompletedScript(ret);
+		return;
+		}
+	TPtr8 eightBitBuf(buf->Des());
+#ifdef __FLOG_ACTIVE
+	_LIT(logString,"Script:\tRead %S from PCT");
+	TBuf16<KLogBufferSize> temp;
+	temp.Copy(eightBitBuf.Left(Min(eightBitBuf.Length(),KLogBufferSize)));
+	__FLOG_STATIC1(KNetDialLogFolder(),KNetDialLogFile(),TRefByValue<const TDesC>(logString()),&temp);
+#endif
+	TInt end=iReadBuffer.Locate(KCarriageReturn);
+	TInt spaceInBuffer=iDataToWrite.MaxLength()-iDataToWrite.Length();
+	
+	if (end<0)
+		iDataToWrite.Append(eightBitBuf.Left(Min(spaceInBuffer,eightBitBuf.Length())));
+	else
+		iDataToWrite.Append(eightBitBuf.Left(Min(spaceInBuffer,end+1)));
+
+	if (!iScriptIO->WritePending())
+		{
+		iScriptIO->Write(iDataToWrite);
+		iDataToWrite.SetLength(0);	// clear buffer so we know it's been sent
+		}	
+
+	if (end<0)
+		{
+		SetReadPctBuffer();
+		iScript->ReadPct(iReadBuffer);
+		}
+	else
+		{
+		iScriptIO->ReadEchoCancel();
+		iReadFromPctPending=EFalse;
+		}
+
+	delete buf;
+	}
+
+void CScriptExecutor::DestroyPctNotificationReceived(TInt aStatus)
+/**
+PCT destroyed. Assume KErrNone means destroyed by user / someone else and
+otherwise we destroyed it.
+
+@param aStatus is passed from caller.
+*/
+	{
+	if (aStatus==KErrNone)		// user cancelled
+		{
+		iScriptIO->Cancel();
+		iScript->CancelDialogServer();			// cancels any outstanding reads
+		CompletedScript(KErrCancel);	// this will close the PCT
+		}	
+	else
+		iScript->ClosePct();			// NetDial is in charge of closing the PCT whatever happens
+
+	}
+
+void CScriptExecutor::PctCancelAndClose()
+/**
+Cancel any outstanding requests and cancel the active object waiting on the 
+destroy notification) and close the pct
+*/
+	{
+	iScript->CancelDialogServer();
+	iScript->ClosePct();
+	}
+
+void CScriptExecutor::SetVariableL(const TDesC& aName, const TDesC& aContent)
+/**
+Add variable with name aName and content aContent to list
+
+@param aName a reference to variable name.
+@param aContent a reference to content.
+*/
+	{
+	iVarMan->AddVariableL(aName,aContent);
+	}
+
+void CScriptExecutor::ConfigureCommPort(TRequestStatus& aStatus, const TCommConfig& aConfiguration)
+/**
+Configure COMM port.
+
+@param aConfiguration a reference to confiquration
+@return error code from ConfigurePort().
+*/
+	{
+	iScriptIO->ConfigurePort(aStatus, aConfiguration);
+	}
+
+void CScriptExecutor::DropSignals(TRequestStatus& aStatus)
+/**
+Drop signals on COMM port.
+*/
+	{
+	iScriptIO->DropSignals(aStatus);
+	}
+
+void CScriptExecutor::CancelConfigureCommPort()
+/**
+Cancel Configure COMM port.
+*/
+	{
+	iScriptIO->CancelConfigurePort();
+	}
+
+void CScriptExecutor::DropDTR(TRequestStatus* aStatusPtr)
+/**
+Drop DTR.
+*/
+	{
+	iScriptIO->DropDTR(aStatusPtr);
+	}
+
+void CScriptExecutor::CreateChannel(TRequestStatus& aStatus)
+	{
+	ASSERT(iScriptIO);
+	iScriptIO->CreateChannel(aStatus);
+	}
+
+void CScriptExecutor::CancelCreateChannel()
+	{
+	ASSERT(iScriptIO);
+	iScriptIO->CancelCreateChannel();
+	}
+
+void CScriptExecutor::ShutdownChannel(TRequestStatus& aStatus)
+	{
+	ASSERT(iScriptIO);
+	iScriptIO->ShutdownChannel(aStatus);
+	}
+
+TInt CScriptExecutor::GetExcessData(TDes8& aBuffer)
+/**
+Get excess data.
+
+@param aBuffer a reference to excess data.
+*/
+	{
+	return iScriptIO->GetExcessData(aBuffer);
+	}
+
+void CScriptExecutor::ConvertScriptError(TInt& aError) const
+/**
+Convert internal errors to KErrExitScriptError.
+
+@param a reference to error code. New value is passed back by using it.
+*/
+	{
+	if(aError<KNetdialInternalErrorBase)	
+		aError=KErrExitScriptError;
+	}	
+
+void CScriptExecutor::CleanupLastCommand()
+/**
+Cleanup last command.
+*/
+	{
+	if(iLastCommand!=NULL)
+		{
+		iLastCommand->Cleanup();
+		iLastCommand=NULL;
+		}
+	}
+
+void CScriptExecutor::RunL()
+/**
+Complete script operation.
+*/
+	{
+	iScript->ScriptOperationComplete(iStatus.Int());
+	}
+