/*
* Copyright (c) 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: 
* Implementation of EmailServerMonitor utility functions
*
*/
//  Include Files  

#include <e32base.h>
#include <e32std.h>
#include <e32des16.h>                   // Descriptors

#include "emailtrace.h"
#include "emailservermonitorutilities.h"

// One second as micro seconds
const TInt KEmailServerMonitorOneSecond = 1000000;

// ---------------------------------------------------------------------------
// Wait some time to give other applications and servers some time to shut
// down themselves gracefully
// ---------------------------------------------------------------------------
//
void Wait( TInt aWaitTimeInSeconds /*= KDefaultTimeToWaitInSeconds*/ )
    {
    FUNC_LOG;
    User::After( aWaitTimeInSeconds * KEmailServerMonitorOneSecond );
    }

// ---------------------------------------------------------------------------
// Checks if the process is already running
// ---------------------------------------------------------------------------
//
TBool IsProcessRunning( TSecureId aUid, RProcess* aProcess /* = NULL */ )
    {
    FUNC_LOG;
    
    // Get our own UID, if we are checking wheter our own process is running,
    // we are basically checking is there some other instance already running.
    // So it's allowed to have one process running (ourselves), but not more.
    // In normal case already one instance is counted as running.
    TInt numberOfInstancesRunning = 0;
    TInt numberOfInstancesAllowed = 0;
    RProcess ownProcess;
    if( ownProcess.SecureId() == aUid )
        {
        numberOfInstancesAllowed++;
        }
    ownProcess.Close();
    
    TFileName fileName;
    TFindProcess finder;
    while ( finder.Next( fileName ) == KErrNone )
        {
        RProcess process;
        TInt outcome = process.Open( fileName );
        if ( outcome != KErrNone )
            {
            INFO( "Could not open process. Checking next one." );
            continue;
            }
        
        // Check is this the searched process and is the process running
        if ( process.SecureId() == aUid && 
             process.ExitType() == EExitPending )
            {
            numberOfInstancesRunning++;

            if ( numberOfInstancesRunning > numberOfInstancesAllowed )
                {
                // We either found second instance of ourselves or first
                // instance of other searched process
                process.Close();
                // If process handle given, update it with found process
                if( aProcess )
                    {
                    aProcess->Close();
                    TInt error = aProcess->Open( fileName );
                    // If process handle was given, it's assumed to be
                    // up-to-date if we return success, so we need to return
                    // failure if we can't reopen any of the found process'.
                    // This should be very very rare case.
                    if( error != KErrNone )
                        {
                        continue;
                        }
                    }
                return ETrue;
                }
            }
        
        process.Close();
        }
    
    return EFalse;
    }