/*

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

*

*/

#include "TCmdTerminateProcess.h"

#include "SIPConstants.h"

#include <flogger.h>

#include <f32file.h>

/**

 * INPUT:

 *   Headers:		-

 *   Parameters:	Process

 *   IDs:			-

 *

 * OUTPUT:

 *   Parameters:	-

 *   IDs:			-

 */

_LIT(KFileDir, "Sip");

_LIT(KFileName, "Tester.txt");

// Literals used for action name

_LIT8( KIsRunning, "running" );

_LIT8( KTerminate, "terminate" );

void TCmdTerminateProcess::ExecuteL()

	{

	// -- Setup ---------------------------------------------------------------

	TPtrC8 action = ExtractTextL( KParamActionName );

    // Get action name pattern for the process to be found

    TPtrC8 processPattern = ExtractTextL( KParamProcess );

    TFullName procName;

    procName.Copy(processPattern);  

	// -- Execution -----------------------------------------------------------

    if( !action.CompareC( KTerminate ) ) 

		{

		TerminateProcessL(procName);

		}

    else if( !action.CompareC( KIsRunning ) )

    	{

    	if(IsProcessRunning(procName))

    		{

    		AddBooleanResponseL(_L8("IsRunning"), ETrue);

    		} 

    	else

			{

			AddBooleanResponseL(_L8("IsRunning"), EFalse);

			}

    	}

    else {}

	// -- Response creation ---------------------------------------------------

	}

TBool TCmdTerminateProcess::Match( const TTcIdentifier& aId )

	{

	return TTcSIPCommandBase::Match( aId, _L8("TerminateProcess") );

	}

TTcCommandBase* TCmdTerminateProcess::CreateL( MTcTestContext& aContext )

	{

	return new( ELeave ) TCmdTerminateProcess( aContext );

	}

void TCmdTerminateProcess::TerminateProcessL(const TDesC& aName)

	{

#if ( !defined(EKA2) && ( defined(__WINS__) || defined(__WINSCW__) ) ) 

	// WINS doesn't have a concept of process (in EKA1)

	RThread process;

	TFindThread processFinder (aName);

#else

	RProcess process;

	TFindProcess processFinder (aName);

#endif

	// Find the process

	TFullName processName;

	while ( processFinder.Next( processName ) == KErrNone )

		{

		User::InfoPrint(_L("Found"));

		RFileLogger::Write (KFileDir,KFileName,EFileLoggingModeAppend,processName);

		User::LeaveIfError( process.Open( processFinder ) );

			// ..and terminate it

		// process.Terminate( KErrNone );

		process.Kill( KErrNone );

		process.Close();

		AddTextResponseL( KParamClientInfo, _L8("Process terminated") );

		}

	}

TBool TCmdTerminateProcess::IsProcessRunning(const TDesC& aName)

	{

	TBool Ret(EFalse);

	TFullName result;

	TFindProcess find(aName);

	TInt count = 0;

  	while(find.Next(result) == KErrNone)

    {

		++count;

		if(count >= 1)

			{

			Ret = ETrue;

			break;

			}

    }

    return Ret;

	}

/*

This should be

      _LIT(KProcess,"A[");

Match expects wildcards. The 0 means it only considers it found if it is

the start of the string.

>         TInt perr = User::LeaveIfError (processHandle.Open

> (processFinder,EOwnerThread));

>         RProcess processHandle;

>          if ( perr == KErrNone ) processHandle.Kill(0);

>         CleanupClosePushL (processHandle);

The CleanupClosePushL should be immediatly after the Open - least chance

of a leaving statment being added before it is on the cleanup stack.

>         CleanupStack::PopAndDestroy (&processHandle);

*/