// Copyright (c) 2001-2009 Nokia Corporation and/or its subsidiary(-ies).

// All rights reserved.

// This component and the accompanying materials are made available

// under the terms of the License "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:

// Perl.cpp: allows running of a perl script and waiting for its completion.

//

#include "stdafx.h"

#include "usbio.h"											// USBIO Dev Kit

#ifdef _DEBUG

#undef THIS_FILE

static char THIS_FILE[]=__FILE__;

#define new DEBUG_NEW

#endif

// define the CreateProcess strings for Perl

#define APPNAME "C:\\Apps\\Perl\\Bin\\Perl.exe"

#define APPTITLE "Perl Script"

#define WAIT_SLEEP 1000			// checks for for perl script completion every second		

#define EXIT_WAIT 900			// exits if not complete within 15 minutes

DWORD PerlScript(char * scriptName)

{

    STARTUPINFO si;

    PROCESS_INFORMATION pi;

	DWORD exitCode = STILL_ACTIVE;

    ZeroMemory( &si, sizeof(si) );

    si.cb = sizeof(si);

    ZeroMemory( &pi, sizeof(pi) );

	if (!CreateProcess (APPNAME,scriptName,NULL,NULL,FALSE,0,NULL,NULL,&si,&pi))

		return USBIO_ERR_INVALID_PROCESS;

	for (int i = 0; i < EXIT_WAIT && exitCode == STILL_ACTIVE; i++)

		{

		Sleep (WAIT_SLEEP);

		GetExitCodeProcess(pi.hProcess,(LPDWORD)&exitCode);

		}

	// Force an unclean process termination only if necessary

	if (exitCode == STILL_ACTIVE)

		{

		TerminateProcess(pi.hProcess,0);

		return USBIO_ERR_TIMEOUT;

		}

	return exitCode;

}