// Copyright (c) 2004-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:

// ???01 : Start

// Move to own file something like 

// "\messaging\terstframework\testactionutils\src\CmtfTestActionUtilsImapScripts.cpp"

// 

//

/**

 @file

*/

#include "CMtfTestActionUtilsImapScripts.h"

#include <imapset.h>

#include <smtpset.h>

#include <iapprefs.h>

#include "CMtfTestActionUtilsConfigFileParser.h"

#include "CMtfTestActionUtilsConfigFileMachineName.h"

#include "CMtfTestCase.h"

#include "CMtfTestActionParameters.h"

// Imap Settings 

_LIT(KCfgImapServerAddress, "ImapServerAddress"); //*

_LIT(KEmailAddressExtension, "EmailAddressExtension");

_LIT(KCfgImapLoginName, "ImapLoginName"); //*

_LIT(KCfgImapPassword, "ImapPassword"); //*

_LIT(KCfgImapPort, "ImapPort"); //*

_LIT(KCfgImapSecureSockets, "ImapSecureSockets"); //*

_LIT(KCfgImapSSLWrapper, "ImapSSLWrapper"); //*

//_LIT(KCfgImapVersion, "ImapVersion"); // Does not actually exists is hardcoded. 

_LIT(KCfgImapFolderPath, "ImapFolderPath");   //* errors question. 

_LIT(KCfgImapPathSeperator, "ImapPathSeperator"); //*

_LIT(KCfgImapMaxEmailSize, "ImapMaxEmailSize"); //*

_LIT(KCfgImapGetMailOptions, "ImapGetMailOptions"); //*

_LIT(KCfgImapInboxSynchronisationLimit, "ImapInboxSynchronisationLimit"); //*

_LIT(KCfgImapMailboxSynchronisationLimit, "ImapMailSynchronisationLimit"); //*

_LIT(KCfgImapAutoSendOnConnect, "ImapAutoSendOnConnect" ); //* 

_LIT(KCfgImapDeleteEmailsWhenDisconnecting, "ImapDeleteEmailsWhenDisconnecting" ); //*

_LIT(KCfgImapAcknowledgeReceipts, "ImapAcknowledgeReceipts" ); //*

_LIT(KCfgImapDisconnectedUserMode, "ImapDisconnectedUserMode" ); //*

_LIT(KCfgImapSynchronise, "ImapSynchronise" ); //* Constants Added

_LIT(KCfgImapSubscribe, "ImapSubscribe" ); //* Constants Added.

_LIT(KCfgImapUpdatingSeenFlags, "ImapUpdatingSeenFlags" ); //*

_LIT(KCfgImapSyncRate, "ImapSyncRate" ); //*

_LIT(KCfgImapFetchSize, "ImapFetchSize" ); //*

_LIT(KCfgImapIdle, "ImapIdle" ); //*

_LIT(KCfgImapIdleTimeout, "ImapIdleTimeout" ); //*

_LIT(KCfgImapPartialMailOptions, "ImapPartialMailOptions" ); //*

_LIT(KCfgImapBodyTextSizeLimit, "ImapBodyTextSizeLimit" ); //*

_LIT(KCfgImapAttachmentSizeLimit, "ImapAttachmentSizeLimit" ); //*

_LIT(KCfgImapIapList , "ImapIapList" );

// SMTP settings

_LIT(KCfgSmtpServerAddress, "SmtpServerAddress");  //*

_LIT(KCfgSmtpEmailAddress, "SmtpEmailAddress");  //*

_LIT(KCfgSmtpBodyEncoding, "SmtpBodyEncoding");  //*

_LIT(KCfgSmtpReceiptAddress, "SmtpReceiptAddress");  //*

_LIT(KCfgSmtpRequestReceipts, "SmtpRequestReceipts");  //*

_LIT(KCfgSmtpSendMessageOption, "SmtpSendMessageOption");  //* Constants Added

_LIT(KCfgSmtpSetPort, "SmtpSetPort");  //*

_LIT(KCfgSmtpEmailAlias, "SmtpEmailAlias");  //*

_LIT(KCfgSmtpDefaultMsgCharSet, "SmtpMsgCharSet");  //*

_LIT(KCfgSmtpSetReplyToAddress, "SmtpSetReplyToAddress");  //*

_LIT(KCfgSmtpSetAddVCardToEmail, "SmtpSetAddVCardToEmail"); //*

_LIT(KCfgSmtpSetAddSignatureToEmail, "SmtpSetAddSignatureToEmail");  //*

_LIT(KCfgSmtpSetSendCopyToSelf, "SmtpSetSendCopyToSelf");  //* 

_LIT(KCfgSmtpSetLoginName, "SmtpSetLoginName");  //*

_LIT(KCfgSmtpSetPassword, "SmtpSetPassword");  //*

_LIT(KCfgSmtpSetSMTPAuth, "SmtpSetSMTPAuth");  //*

_LIT(KCfgSmtpSetInboxLoginDetails, "SmtpSetInboxLoginDetails");  //*

_LIT(KCfgSmtpSecureSockets, "SmtpSetSecureSockets");  //*

_LIT(KCfgSmtpSSLWrapper, "SmtpSetSSLWrapper");  //*

_LIT(KCfgSmtpIapList , "SmtpIapList" );

void CMtfTestActionUtilsImapScripts::ReadIAPAndAddL( CMtfTestCase& aTestCase, 

	CMtfTestActionUtilsConfigFileParser* aScriptFileParser , 

	const TDesC& aParamListName , CImIAPPreferences& aIapPref )

	{

	TPtrC stringPtr; 	

	TPtrC baseString; 

	if( aScriptFileParser->GetFieldAsString(aParamListName, stringPtr ) == KErrNone )

		{

		TInt start=0;

		TInt end=stringPtr.Length();

		while ( GetString( stringPtr , start, end , baseString ) )

			{

			_ReadIAPAndAddL( aTestCase, aScriptFileParser, baseString, aIapPref );

			}

		}		

	}

TBool CMtfTestActionUtilsImapScripts::GetString( const TDesC& aStringPtr , TInt& aStart, TInt aEnd , TPtrC& aBaseString )

	{

	TBool ret=EFalse;

	if (aStart==aEnd)

		{

		return EFalse;				

		}

	TInt currPos=aStart;

	// strip out any starting spaces.

	while (currPos<aEnd )

		{

		if ( aStringPtr[currPos] == ' ' || aStringPtr[currPos] == '\t' )

			{			

			currPos++;	

			}

		else

			{			

			break;	

			}

		}

	TInt startTmp=currPos;

	while (currPos<aEnd )

		{

		if ( aStringPtr[currPos] == ' ' || aStringPtr[currPos] == '\t' )

			{			

			break;

			}

		else

			{

			currPos++;

			ret=ETrue;

			}

		}

	if (ret)

		{	// We have a string.

		aBaseString.Set( aStringPtr.Mid( startTmp, currPos-startTmp) ); 

		}

	aStart=currPos;

	return ret;

	}

void CMtfTestActionUtilsImapScripts::_ReadIAPAndAddL( CMtfTestCase& aTestCase, 

	CMtfTestActionUtilsConfigFileParser* aScriptFileParser , 

	const TDesC& aFieldName , CImIAPPreferences& aIapPref )

	{

	TPtrC stringPtr; 

	TInt intTmp;

	TImIAPChoice iapChoice;

	iapChoice.iIAP = 0;

	iapChoice.iDialogPref = ECommDbDialogPrefUnknown;

	TInt index=0;

	TBool modified=EFalse;

	HBufC* buf = HBufC::NewLC(100);

	buf->Des() = aFieldName;

	buf->Des().Append( _L("_ImapIAP") );

	if(aScriptFileParser->GetFieldAsInteger(buf->Des(), intTmp) == KErrNone)

		{

		iapChoice.iIAP = intTmp;

		modified=ETrue;

		}

	buf->Des() = aFieldName;

	buf->Des().Append( _L("_ImapCommDbDialogPref") );

	if(aScriptFileParser->GetFieldAsString(buf->Des(), stringPtr) == KErrNone)

		{

		TCommDbDialogPref setCommDbDialogPref = ObtainValueParameterL<TCommDbDialogPref>(aTestCase, stringPtr);

		iapChoice.iDialogPref= setCommDbDialogPref;

		modified=ETrue;

		}

	buf->Des() = aFieldName;

	buf->Des().Append( _L("_ImapIAPIndex") );

	if(aScriptFileParser->GetFieldAsInteger(buf->Des(), intTmp) == KErrNone)

		{

		index = intTmp;

		modified=ETrue;

		}

	if (modified)

		{ // Note only want to set the values if they are specified. Otherwise leave well alone.

		  // Really should specify iapChoice.iIAP and iapChoice.iDialogPref at the same time.

		aIapPref.AddIAPL(iapChoice ,index );

		}

	CleanupStack::PopAndDestroy(buf);

	}

void CMtfTestActionUtilsImapScripts::ReadImapSettingsFromConfigurationFileL(CMtfTestCase& aTestCase, const TDesC& aSettingsFile, 

											CImImap4Settings& aImapSet, CImIAPPreferences& aImapIapPref, 

											CImSmtpSettings& aSmtpSet, CImIAPPreferences& aSmtpIapPref)

	{

	CMtfTestActionUtilsConfigFileParser* scriptFileParser = CMtfTestActionUtilsConfigFileParser::NewL(aSettingsFile);

	CleanupStack::PushL(scriptFileParser);

	TPtrC8 string8Ptr; 

	TPtrC stringPtr; 

	TInt intTmp;

	// Read in CImImap4Settings.

	if(scriptFileParser->GetFieldAsString(KCfgImapServerAddress, stringPtr) == KErrNone)

		{

		aImapSet.SetServerAddressL(stringPtr);

		}

	CMtfTestActionUtilsConfigFileMachineName* machineNameFile = NULL;

	TPtrC emailAddressExtension;

	if (scriptFileParser->GetFieldAsString(KEmailAddressExtension, emailAddressExtension) == KErrNone)

		{

		machineNameFile = CMtfTestActionUtilsConfigFileMachineName::NewLC(emailAddressExtension);

		}

	else

		{

		machineNameFile = CMtfTestActionUtilsConfigFileMachineName::NewLC(stringPtr);

		}

	TPtrC8 machineName(machineNameFile->MachineName());

	if(scriptFileParser->GetFieldAsString8(KCfgImapLoginName, string8Ptr) == KErrNone)

		{

		aImapSet.SetLoginNameL(string8Ptr);

		}

	else

		{

		aImapSet.SetLoginNameL(machineName);

		}

	if(scriptFileParser->GetFieldAsString8(KCfgImapPassword, string8Ptr) == KErrNone)

		{

		aImapSet.SetPasswordL(string8Ptr);

		}

	else

		{

		aImapSet.SetPasswordL(machineName);

		}

	if(scriptFileParser->GetFieldAsInteger(KCfgImapPort, intTmp) == KErrNone)

		{

		aImapSet.SetPort(intTmp);

		}

	if(scriptFileParser->GetFieldAsInteger(KCfgImapSecureSockets, intTmp) == KErrNone)

		{		

		aImapSet.SetSecureSockets( (TBool) intTmp );

		}

	if(scriptFileParser->GetFieldAsInteger(KCfgImapSSLWrapper, intTmp ) == KErrNone)

		{		

		aImapSet.SetSSLWrapper( (TBool) intTmp );

		}

	// Note  CImImap4Settings::SetVersion() although in the documentation does not actually exist.

	if(scriptFileParser->GetFieldAsString8(KCfgImapFolderPath, string8Ptr) == KErrNone)

		{

		aImapSet.SetFolderPathL(string8Ptr);

		}

	if(scriptFileParser->GetFieldAsString8(KCfgImapPathSeperator, string8Ptr) == KErrNone)

		{

			if ( string8Ptr.Length() == 1  )

				{

				aImapSet.SetPathSeparator( string8Ptr[0] );			

				}

			else

				{	// Path seperator must be a single char.

				aTestCase.ERR_PRINTF1(_L("Path seperator must be a single char"));

				aTestCase.SetTestStepResult(EFail);

				}

		}

	if(scriptFileParser->GetFieldAsInteger(KCfgImapMaxEmailSize, intTmp) == KErrNone)

		{

		aImapSet.SetMaxEmailSize(intTmp);

		}

	//???? Check input of constants works.	

	if(scriptFileParser->GetFieldAsString(KCfgImapGetMailOptions, stringPtr) == KErrNone)

		{

		TImap4GetMailOptions setGetMailOptions = ObtainValueParameterL<TImap4GetMailOptions>(aTestCase, stringPtr);

		aImapSet.SetGetMailOptions(setGetMailOptions);

		}

	if(scriptFileParser->GetFieldAsInteger(KCfgImapInboxSynchronisationLimit, intTmp) == KErrNone)

		{

		aImapSet.SetInboxSynchronisationLimit(intTmp);

		}

	if(scriptFileParser->GetFieldAsInteger(KCfgImapMailboxSynchronisationLimit, intTmp) == KErrNone)

		{

		aImapSet.SetMailboxSynchronisationLimit(intTmp);

		}

	if(scriptFileParser->GetFieldAsInteger(KCfgImapAutoSendOnConnect, intTmp) == KErrNone)

		{		

		aImapSet.SetAutoSendOnConnect( (TBool) intTmp );

		}

	if(scriptFileParser->GetFieldAsInteger(KCfgImapDeleteEmailsWhenDisconnecting, intTmp) == KErrNone)

		{		

		aImapSet.SetDeleteEmailsWhenDisconnecting( (TBool) intTmp );

		}

	if(scriptFileParser->GetFieldAsInteger(KCfgImapAcknowledgeReceipts, intTmp) == KErrNone)

		{		

		aImapSet.SetAcknowledgeReceipts( (TBool) intTmp );

		}

	if(scriptFileParser->GetFieldAsInteger(KCfgImapDisconnectedUserMode, intTmp) == KErrNone)

		{		

		aImapSet.SetDisconnectedUserMode( (TBool) intTmp );

		}

	if(scriptFileParser->GetFieldAsString(KCfgImapSynchronise, stringPtr) == KErrNone)

		{

		TFolderSyncType setFolderSyncType = ObtainValueParameterL<TFolderSyncType>(aTestCase, stringPtr);

		aImapSet.SetSynchronise(setFolderSyncType);

		}

	if(scriptFileParser->GetFieldAsString(KCfgImapSubscribe, stringPtr) == KErrNone)

		{

		TFolderSubscribeType setFolderSubscribeType = ObtainValueParameterL<TFolderSubscribeType>(aTestCase, stringPtr);

		aImapSet.SetSubscribe(setFolderSubscribeType);

		}

	if(scriptFileParser->GetFieldAsInteger(KCfgImapUpdatingSeenFlags, intTmp) == KErrNone)

		{		

		aImapSet.SetUpdatingSeenFlags( (TBool) intTmp );

		}

	if(scriptFileParser->GetFieldAsInteger(KCfgImapSyncRate, intTmp) == KErrNone)

		{

		aImapSet.SetSyncRateL(intTmp);

		}

	if(scriptFileParser->GetFieldAsInteger(KCfgImapFetchSize, intTmp) == KErrNone)

		{

		aImapSet.SetFetchSizeL(intTmp);

		}

	if(scriptFileParser->GetFieldAsInteger(KCfgImapIdle, intTmp) == KErrNone)

		{		

		aImapSet.SetImapIdle( (TBool) intTmp );

		}

	if(scriptFileParser->GetFieldAsInteger(KCfgImapIdleTimeout, intTmp) == KErrNone)

		{

		aImapSet.SetImapIdleTimeoutL(intTmp);

		}

	if(scriptFileParser->GetFieldAsString(KCfgImapPartialMailOptions, stringPtr) == KErrNone)

		{

		TImImap4PartialMailOptions setImap4PartialMailOptions = ObtainValueParameterL<TImImap4PartialMailOptions>(aTestCase, stringPtr);

		aImapSet.SetPartialMailOptionsL(setImap4PartialMailOptions);

		}

	if(scriptFileParser->GetFieldAsInteger(KCfgImapBodyTextSizeLimit, intTmp) == KErrNone)

		{

		aImapSet.SetBodyTextSizeLimitL(intTmp);

		}

	if(scriptFileParser->GetFieldAsInteger(KCfgImapAttachmentSizeLimit, intTmp) == KErrNone)

		{

		aImapSet.SetAttachmentSizeLimitL(intTmp);

		}

	scriptFileParser->GetFieldAsString(KCfgImapIapList, stringPtr);

	ReadIAPAndAddL( aTestCase, scriptFileParser, KCfgImapIapList, aImapIapPref );

	// Read in CImSmtpSettings.

	if(scriptFileParser->GetFieldAsString(KCfgSmtpServerAddress, stringPtr) == KErrNone)

		{

		aSmtpSet.SetServerAddressL(stringPtr);

		}

	TPtrC emailAddr(machineNameFile->MachineNameEmail());

	if(scriptFileParser->GetFieldAsString(KCfgSmtpEmailAddress, stringPtr) == KErrNone)

		{

		aSmtpSet.SetEmailAddressL(stringPtr);

		}

	else

		{

		aSmtpSet.SetEmailAddressL(emailAddr);

		}

	if(scriptFileParser->GetFieldAsString(KCfgSmtpBodyEncoding, stringPtr) == KErrNone)

		{

		TMsgOutboxBodyEncoding setGetMailOptions = ObtainValueParameterL<TMsgOutboxBodyEncoding>(aTestCase, stringPtr);

		aSmtpSet.SetBodyEncoding(setGetMailOptions);

		}

	if(scriptFileParser->GetFieldAsString(KCfgSmtpReceiptAddress, stringPtr) == KErrNone)

		{

		aSmtpSet.SetReceiptAddressL(stringPtr);

		}

	else

		{

		aSmtpSet.SetReceiptAddressL(emailAddr);

		}

	if(scriptFileParser->GetFieldAsInteger(KCfgSmtpRequestReceipts, intTmp) == KErrNone)

		{		

		aSmtpSet.SetRequestReceipts( (TBool) intTmp );

		}

	if(scriptFileParser->GetFieldAsString(KCfgSmtpSendMessageOption, stringPtr) == KErrNone)

		{

		TImSMTPSendMessageOption setSendMessageOption = ObtainValueParameterL<TImSMTPSendMessageOption>(aTestCase, stringPtr);

		aSmtpSet.SetSendMessageOption(setSendMessageOption);

		}

	if(scriptFileParser->GetFieldAsInteger(KCfgSmtpSetPort, intTmp) == KErrNone)

		{

		aSmtpSet.SetPort(intTmp);

		}

	if(scriptFileParser->GetFieldAsString(KCfgSmtpEmailAlias, stringPtr) == KErrNone)

		{

		aSmtpSet.SetEmailAliasL(stringPtr);

		}

	if(scriptFileParser->GetFieldAsInteger(KCfgSmtpDefaultMsgCharSet, intTmp) == KErrNone)

		{

		TUid tmp = { intTmp };

		aSmtpSet.SetDefaultMsgCharSet( tmp );

		}

	// CImSmtpSettings::SetVersion() does not exist.

	if(scriptFileParser->GetFieldAsString(KCfgSmtpSetReplyToAddress, stringPtr) == KErrNone)

		{

		aSmtpSet.SetReplyToAddressL(stringPtr);

		}

	else

		{

		aSmtpSet.SetReplyToAddressL(emailAddr);

		}

	if(scriptFileParser->GetFieldAsInteger(KCfgSmtpSetAddVCardToEmail, intTmp) == KErrNone)

		{		

		aSmtpSet.SetAddVCardToEmail( (TBool) intTmp );

		}

	if(scriptFileParser->GetFieldAsInteger(KCfgSmtpSetAddSignatureToEmail, intTmp) == KErrNone)

		{		

		aSmtpSet.SetAddSignatureToEmail( (TBool) intTmp );

		}

	if(scriptFileParser->GetFieldAsString(KCfgSmtpSetSendCopyToSelf, stringPtr) == KErrNone)

		{

		TImSMTPSendCopyToSelf setSMTPSendCopyToSelf = ObtainValueParameterL<TImSMTPSendCopyToSelf>(aTestCase, stringPtr);

		aSmtpSet.SetSendCopyToSelf(setSMTPSendCopyToSelf);

		}