/*

* Copyright (c) 2002 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:  Policy Management DM Adapter

*

*/

/*

./PolicyMgmt ---+--> PolicySets -+-> <X> * -+-> Policies ----> <X> * --+--> Policy

				|				 			|

				|				 			|-> PolicySets --> <X> * --+--> PolicySet

				|				 			|		

				|				 			|-> ID

				|							|				 								

				|							|-> Data

				|							|

				|				 			|-> Description

				|

				|--> Policies  -+-> <X> * --+-> ID

				|							|				 	

				|							|-> Data

				|							|

				|				 			|-> Description							

				|				 			|

				|				 			|-> Rules --> <X> * --+--> Rule

				|							 	

				|--> Rules  -+----> <X> * --+-> ID

				|							|				 	

				|							|-> Data

				|							|

				|				 			|-> Description							

				|							

				|--> Delivery -+-> Sink 

							   |

				               |--> LastStatus							 			

./PolicyMgmt/PolicySets/DynamicSets/X 							mapping contains the ElementID

./PolicyMgmt/PolicySets/DynamicSets/X/Policies/X 				mapping contains itself

./PolicyMgmt/PolicySets/DynamicSets/X/Policies/X/Policy 		mapping contains the data (URL to policy)

./PolicyMgmt/PolicySets/DynamicSets/X/PolicySets/X 				mapping contains itself

./PolicyMgmt/PolicySets/DynamicSets/X/PolicySets/X/PolicySet 	mapping contains the data (URL to policy set)

./PolicyMgmt/Policies/X 										mapping contains the ElementID

./PolicyMgmt/PolicySets/MetaSet 								mapping contains the data (URL to policy set)								

./PolicyMgmt/PolicySets/Settings 								mapping contains the data (URL to policy set)

*/

#include <badesca.h>

#include <fbs.h>

#include <tconvbase64.h>

#include "nsmldmuri.h"

#include "pmadapter.h"

#include <implementationproxy.h> // For TImplementationProxy definition

#include <f32file.h>

#include <centralrepository.h>

#include "PMUtilInternalCRKeys.h"

#ifdef __TARM_SYMBIAN_CONVERGENCY

#include <dmtreenode.h>

#include <devman.h>

#include <e32property.h>

_LIT8( KSinkLeaf, "/PolicyMgmt/Delivery/Sink" ); 

const TUid KUidSmlSyncAgentCategory = { 0x10009F46 }; // temporary

const TUint KHttpsServerCertificateKey = 1234; // temporary

#else

_LIT8( KSinkLeaf, "PolicyMgmt/Delivery/Sink" ); 

#endif

#include "debug.h"

//#define __TEST_NO_ENGINE__ // causes Policy engine errors to be ignored

_LIT( KTestFileName, "c:\\test.txt" );

const TInt KFeatchLeafObjectBufferSize = 32;

const TInt KFeatchChildUriListBufferSize = 128;

const TInt KFeatchLeafObjectSize = 128;

const TInt KMaxLengthOf32bitInteger = 10; //10 = max length of 32bit integer

#define __LO_TEST__		// Large object test node "TEST"

// ------------------------------------------------------------------------------------------------

// CPmAdapter* CPmAdapter::NewL( )

// ------------------------------------------------------------------------------------------------

CPmAdapter* CPmAdapter::NewL( MSmlDmCallback* aDmCallback )

	{

	RDEBUG("CPmAdapter::NewL(): begin");

	CPmAdapter* self = NewLC( aDmCallback );

	CleanupStack::Pop( self );

	RDEBUG("CPmAdapter::NewL(): end");

	return self;

	}

// ------------------------------------------------------------------------------------------------

// CPmAdapter* CPmAdapter::NewLC( )

// ------------------------------------------------------------------------------------------------

CPmAdapter* CPmAdapter::NewLC( MSmlDmCallback* aDmCallback )

	{

	CPmAdapter* self = new ( ELeave ) CPmAdapter(aDmCallback);

	CleanupStack::PushL( self );

	self->ConstructL();

	return self;

	}

// ------------------------------------------------------------------------------------------------

// CPmAdapter::CPmAdapter()

// ------------------------------------------------------------------------------------------------

CPmAdapter::CPmAdapter(TAny* aEcomArguments) : CSmlDmAdapter(aEcomArguments)

	{

	}

// ------------------------------------------------------------------------------------------------

// CPmAdapter::ConstructL()

// ------------------------------------------------------------------------------------------------

void CPmAdapter::ConstructL()

	{

	RDEBUG("CPmAdapter::ConstructL(): begin");

#ifndef __TEST_NO_ENGINE__

	RDEBUG("CPmAdapter::ConstructL()	-> connecting RPolicyEngine ... ");

	TInt err = iEngine.Connect();

	User::LeaveIfError( err );

	RDEBUG("CPmAdapter::ConstructL()	-> connecting RPolicyEngine ... DONE!");

	RDEBUG("CPmAdapter::ConstructL()	-> opening RPolicyManagement ... ");

	User::LeaveIfError( iManagement.Open( iEngine ) );

	RDEBUG("CPmAdapter::ConstructL()	-> opening RPolicyManagement ... DONE!");

	CheckAndAddCertL();

#else

#endif

	RDEBUG("CPmAdapter::ConstructL(): end");

	}

// ------------------------------------------------------------------------------------------------

// CPmAdapter::CheckAndAddCertL()

// ------------------------------------------------------------------------------------------------

void CPmAdapter::CheckAndAddCertL()

	{

	RDEBUG("CPmAdapter::CheckAndAddCertL()");

	TInt errx = KErrNone;

#ifdef __TARM_SYMBIAN_CONVERGENCY

	// nothing	

#else	

	CRepository *re = NULL;

	TRAP( errx, re = CRepository::NewL ( KCRUidPolicyManagementUtilInternalKeys ) );

#endif	

	if (errx == KErrNone )

		{

		TCertInfo info ;

		TPckg<TCertInfo> pcert( info );

		TInt len( 0 );

#ifdef __TARM_SYMBIAN_CONVERGENCY

		errx = RProperty::Get( KUidSmlSyncAgentCategory, KHttpsServerCertificateKey, pcert );

		len = pcert.Length();

#else		

		errx = re->Get( KSyncMLSessionCertificate, pcert, len ) ;

#endif	

		if ( errx == KErrNone )

			{

			if ( len > 0 )

				{

				RDEBUG_3("CPmAdapter::CheckAndAddCertL() : Got reposotry key len %d: %S", pcert.Length(), &pcert );

				TInt err( iManagement.AddSessionTrust( info ) );

				if ( err == KErrNone )

					{

					RDEBUG("CPmAdapter::CheckAndAddCertL() : Trust added!" );

					}

				else

					{

					RDEBUG_2("CPmAdapter::CheckAndAddCertL() : WARNING Failed to add trust %d", err );

					}

				}

			else

				{

				RDEBUG("CPmAdapter::CheckAndAddCertL() : WARNING certificate length is 0 or less - it doesnt exist" );	

				}

			}

		else

			{

			if ( errx != KErrNotFound )

				{

				RDEBUG_2("CPmAdapter::CheckAndAddCertL() : ERROR Failed to get repository key %d", errx );

				}

			else

				{

				RDEBUG_2("CPmAdapter::CheckAndAddCertL() : WARNING certificate key not found: %d", errx );	

				}

			}

#ifdef __TARM_SYMBIAN_CONVERGENCY

		// nothing

#else				

		delete re ;

#endif		

		}

	else

		{

		RDEBUG_2("CPmAdapter::CheckAndAddCertL() : WARNING could not create repository: %d", errx );	

		}

	}

// ------------------------------------------------------------------------------------------------

// CPmAdapter::~CPmAdapter()

// ------------------------------------------------------------------------------------------------

CPmAdapter::~CPmAdapter()

	{

	RDEBUG("CPmAdapter::~CPmAdapter()");

	delete iLastStatus ;

	iManagement.Close();

	iEngine.Close();

	iAtomiced.ResetAndDestroy();

	}

// ------------------------------------------------------------------------------------------------

//  CPmAdapter::DDFVersionL( CBufBase& aDDFVersion )

// ------------------------------------------------------------------------------------------------

void CPmAdapter::DDFVersionL( CBufBase& aDDFVersion )

	{

	aDDFVersion.InsertL( 0, KNSmlPMDDFVersion );

	}

// ------------------------------------------------------------------------------------------------

//  CPmAdapter::DDFStructureL( MSmlDmDDFObject& aDDF )

// ------------------------------------------------------------------------------------------------

void CPmAdapter::DDFStructureL( MSmlDmDDFObject& aDDF )

	{

	RDEBUG( "CPmAdapter::DDFStructureL(): begin" );

	TSmlDmAccessTypes accessTypesGet;

	accessTypesGet.SetGet();

	/*

	Node: ./PolicyMgmt

	Management object is recognized by node next to root named PolicyMgmt.

	Support: Mandatory

	Occurs: One

	Format: Node

	Access Types: Get

	Values:  N/A

	*/

	MSmlDmDDFObject& pmNode = aDDF.AddChildObjectL( KNSmlPMNodeName );

	FillNodeInfoL(pmNode, accessTypesGet, MSmlDmDDFObject::EOne, MSmlDmDDFObject::EPermanent,

		MSmlDmDDFObject::ENode, KNSmlPMDescription );

#ifdef __LO_TEST__

	TSmlDmAccessTypes accessTypesGetReplace;

	accessTypesGetReplace.SetGet();

	/*

	Node: ./PolicyMgmt/TEST

	Management object is recognized by node next to root named PolicyMgmt.

	Support: Mandatory

	Occurs: One

	Format: Node

	Access Types: Get, Replace

	Values:  N/A

	*/

	MSmlDmDDFObject& testNode = pmNode.AddChildObjectL( KTestNodeName() );

	FillNodeInfoL( testNode, accessTypesGetReplace, MSmlDmDDFObject::EOne, 

		MSmlDmDDFObject::EPermanent,

		MSmlDmDDFObject::EChr, KNSmlPMDescription );

#endif

	/*

	Node: ./PolicyMgmt/PolicySets

	This node is root for all policy sets. 

	The return value is as usual with Nodes (i.e. the list of names of child nodes in practice.)

	Status: Required

	Occurs: One

	Format: Node

	Access Types: Get

	Values: N/A

	*/

	MSmlDmDDFObject& policySetsNode = pmNode.AddChildObjectL( KNSmlPMPolicySetsNodeName );

	FillNodeInfoL( policySetsNode, accessTypesGet, MSmlDmDDFObject::EOne, MSmlDmDDFObject::EPermanent,

		MSmlDmDDFObject::ENode, KNSmlPMPolicySetsNodeDescription );

	/*

	Node: ./PolicyMgmt/PolicySets/<X>

	This dynamic node is placeholder for policy sets. 

	Policy set consists of other policy set references, policy references, id, description and data. Add command requires policy set data (XACML) in data parameter.

	Support: Mandatory	

	Occurs: ZeroOrMore 

	Format: Node

	Access Types: Get

	Values:  N/A

	*/

	MSmlDmDDFObject& dynamicSetsDynaNode = policySetsNode.AddChildObjectGroupL();

	FillNodeInfoL( dynamicSetsDynaNode, accessTypesGet, MSmlDmDDFObject::EZeroOrMore, 

		MSmlDmDDFObject::EDynamic,

		MSmlDmDDFObject::ENode, KNSmlPMDynamicSetsDynamicNodeDescription );

	/*

	Node: ./PolicyMgmt/PolicySets/<X>/Policies

	This node is root for policy references inside a policy set.

	Support: Mandatory

	Occurs: One 

	Format: Node

	Access Types: Get

	Values:  N/A

	*/

	MSmlDmDDFObject& dynamicSetsPoliciesNode = 

		dynamicSetsDynaNode.AddChildObjectL( KNSmlPMPolicySetPoliciesNodeName );

	FillNodeInfoL( dynamicSetsPoliciesNode, accessTypesGet, MSmlDmDDFObject::EOne, 

		MSmlDmDDFObject::EPermanent,

		MSmlDmDDFObject::ENode, KNSmlPMPolicySetPoliciesNodeDescription );

	/*

	Node: ./PolicyMgmt/PolicySets/<X>/Policies/<X>

	This dynamic node is placeholder for policy references.

	Support: Mandatory

	Occurs: ZeroOrMore 

	Format: Node

	Access Types: Get

	Values:  N/A

	*/

	MSmlDmDDFObject& dynamicSetsPoliciesDynaNode = 

		dynamicSetsPoliciesNode.AddChildObjectGroupL();//( KNSmlPMDynamicNode() );

	FillNodeInfoL( dynamicSetsPoliciesDynaNode, accessTypesGet, 

		MSmlDmDDFObject::EZeroOrMore, MSmlDmDDFObject::EDynamic,

		MSmlDmDDFObject::ENode, KNSmlPMPolicySetPoliciesDynamicNodeDescription );

	/*

	Node: ./PolicyMgmt/PolicySets/<X>/Policies/<X>/Policy

	This leaf holds a URI reference to actual policy in the management tree.

	Support: Mandatory

	Occurs: One 

	Format: Chr

	Access Types: Get

	Values:  Valid url to policy ids in PolicyMgmt/Policies/<X>/

		Example value refers to policy 3sdxA, which is random imaginary policy node name.

		./PolicyMgmt/Policies/3sdxA/

	*/

	MSmlDmDDFObject& dynamicSetsPoliciesPolicyNode = 

		dynamicSetsPoliciesDynaNode.AddChildObjectL( KNSmlPMPolicySetPoliciesPolicyNodeName );

	FillNodeInfoL( dynamicSetsPoliciesPolicyNode, accessTypesGet, 

		MSmlDmDDFObject::EOne, MSmlDmDDFObject::EPermanent,

		MSmlDmDDFObject::EChr, KNSmlPMPolicySetPoliciesPolicyNodeDescription );

	/*

	Node: ./PolicyMgmt/PolicySets/<X>/PolicySets

	This node is root for policy set references inside a policy set.

	Support: Mandatory

	Occurs: One 

	Format: Node

	Access Types: Get

	Values:  N/A

	*/

	MSmlDmDDFObject& dynamicSetsPolicySetsNode = 

		dynamicSetsDynaNode.AddChildObjectL( KNSmlPMPolicySetPolicySetsNodeName );

	FillNodeInfoL( dynamicSetsPolicySetsNode, accessTypesGet, 

		MSmlDmDDFObject::EOne, MSmlDmDDFObject::EPermanent,

		MSmlDmDDFObject::ENode, KNSmlPMPolicySetPolicySetsNodeDescription );

	/*

	Node: ./PolicyMgmt/PolicySets/<X>/PolicySets/<X>

	This dynamic node is placeholder for policy set references.

	Support: Mandatory

	Occurs: ZeroOrMore 

	Format: Node

	Access Types: Get

	Values:  N/A

	*/

	MSmlDmDDFObject& dynamicSetsPolicySetsDynaNode = 

		dynamicSetsPolicySetsNode.AddChildObjectGroupL();// KNSmlPMDynamicNode );

	FillNodeInfoL( dynamicSetsPolicySetsDynaNode, accessTypesGet, 

		MSmlDmDDFObject::EZeroOrMore, MSmlDmDDFObject::EDynamic,

		MSmlDmDDFObject::ENode, KNSmlPMPolicySetPolicySetsDynamicNodeDescription );

	/*

	Node: ./PolicyMgmt/PolicySets/<X>/PolicySets/<X>/PolicySet

	This is URI of actual policy set in the management tree, i.e. PolicyMgmt/PolicySets/<X>.

	Support: Mandatory

	Occurs: One 

	Format: chr

	Access Types: Get

	Values:  Valid url to policy set ids in ./PolicyMgmt/PolicySets/<X>/

		Example value references to policy set SetX10:

		./PolicyMgmt/PolicySets/SetX10/

	*/

	MSmlDmDDFObject& dynamicSetsPolicySetsPolicySetNode = 

		dynamicSetsPolicySetsDynaNode.AddChildObjectL( 

			KNSmlPMPolicySetPolicySetsPolicySetNodeName );

	FillNodeInfoL( dynamicSetsPolicySetsPolicySetNode, accessTypesGet, 

		MSmlDmDDFObject::EOne, MSmlDmDDFObject::EPermanent,

		MSmlDmDDFObject::EChr, KNSmlPMPolicySetPolicySetsPolicySetNodeDescription );

	/*

	Node: ./PolicyMgmt/PolicySets/<X>/ID

	ID of the policy set from the original XACML file. 

	Support: Mandatory

	Occurs: One

	Format: Chr

	Access Types: Get

	Values:  N/A

	*/

	MSmlDmDDFObject& policySetIdNode = 

		dynamicSetsDynaNode.AddChildObjectL( KNSmlPMPolicySetIDNodeName );

	FillNodeInfoL( policySetIdNode, accessTypesGet, 

		MSmlDmDDFObject::EOne, MSmlDmDDFObject::EPermanent,

		MSmlDmDDFObject::EChr, KNSmlPMPolicySetIDNodeDescription );

	/*

	Node: ./PolicyMgmt/PolicySets/<X>/Data

	Data of the policy set in XACML format.

	Support: Mandatory

	Occurs: One

	Format: Xml

	Access Types: Get

	Values:  N/A

	*/

	MSmlDmDDFObject& policySetDataNode = 

		dynamicSetsDynaNode.AddChildObjectL( KNSmlPMPolicySetDataNodeName );

	FillNodeInfoL( policySetDataNode, accessTypesGet, 

		MSmlDmDDFObject::EOne, MSmlDmDDFObject::EPermanent,

		MSmlDmDDFObject::EXml, KNSmlPMPolicySetDataNodeDescription );

	/*

	Node: ./PolicyMgmt/PolicySets/<X>/Description

	Description of policy set from the original XACML file is reflected in this leaf.

	Support: Optional

	Occurs: One

	Format: Chr

	Access Types: Get

	Values:  N/A

	*/

	MSmlDmDDFObject& policySetDescNode = 

		dynamicSetsDynaNode.AddChildObjectL( KNSmlPMPolicySetDescriptionNodeName );

	FillNodeInfoL( policySetDescNode, accessTypesGet, 

		MSmlDmDDFObject::EOne, MSmlDmDDFObject::EPermanent,

		MSmlDmDDFObject::EChr, KNSmlPMPolicySetDescriptionNodeDescription );

	/*

	Node: ./PolicyMgmt/Policies

	This node is root for all policies in system.

	Support: Mandatory

	Occurs: One

	Format: Node

	Access Types: Get

	Values: N/A

	*/

	MSmlDmDDFObject& policiesNode = pmNode.AddChildObjectL( KNSmlPMPoliciesNodeName );

	FillNodeInfoL( policiesNode, accessTypesGet, 

		MSmlDmDDFObject::EOne, MSmlDmDDFObject::EPermanent,

		MSmlDmDDFObject::ENode, KNSmlPMPoliciesNodeDescription );

	/*

	Node: ./PolicyMgmt/Policies/<X>

	This dynamic node is placeholder for policies. Policy consists of id, description and data.

	Support: Mandatory

	Occurs: One

	Format: Chr

	Access Types: Get

	Values: N/A

	*/

	MSmlDmDDFObject& policiesDynaNode = policiesNode.AddChildObjectGroupL();// KNSmlPMDynamicNode );

	FillNodeInfoL( policiesDynaNode, accessTypesGet, 

		MSmlDmDDFObject::EZeroOrMore, MSmlDmDDFObject::EDynamic,

		MSmlDmDDFObject::ENode, KNSmlPMPoliciesDynaNodeDescription );

	/*

	Node: ./PolicyMgmt/Policies/<X>/ID

	This leaf node holds the ID of the policy.

	Support: Mandatory

	Occurs: One

	Format: Chr

	Access Types: Get

	Values: N/A

	*/

	MSmlDmDDFObject& policiesIDNode = 

		policiesDynaNode.AddChildObjectL( KNSmlPMPoliciesIDNodeName );

	FillNodeInfoL( policiesIDNode, accessTypesGet, 

		MSmlDmDDFObject::EOne, MSmlDmDDFObject::EPermanent,

		MSmlDmDDFObject::EChr, KNSmlPMPoliciesIDNodeDescription );

	/*

	Node: ./PolicyMgmt/Policies/<X>/Data

	This leaf node gives access to the data of the policy in XACML format.

	Status: Optional

	Occurs: One

	Format: Chr

	Access Types: Get

	Values: N/A

	*/

	MSmlDmDDFObject& policiesDataNode = 

		policiesDynaNode.AddChildObjectL( KNSmlPMPoliciesDataNodeName );

	FillNodeInfoL( policiesDataNode, accessTypesGet, 

		MSmlDmDDFObject::EOne, MSmlDmDDFObject::EPermanent,

		MSmlDmDDFObject::EChr, KNSmlPMPoliciesDataNodeDescription );

	/*

	Node: ./PolicyMgmt/Policies/<X>/Description

	Description of policy from the original XACML file is reflected in this leaf.

	Status: Optional

	Occurs: One

	Format: Chr

	Access Types: Get

	Values: N/A

	*/

	MSmlDmDDFObject& policiesDescNode = 

		policiesDynaNode.AddChildObjectL( KNSmlPMPoliciesDescNodeName );

	FillNodeInfoL( policiesDescNode, accessTypesGet, 

		MSmlDmDDFObject::EOne, MSmlDmDDFObject::EPermanent,