/*

* 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: Utils for IM api.

*

*/

// INCLUDE FILES

#include "apiutils.h"

#include <CImpssapsettingsstore.h>

#include <CImpssapsettings.h>

#include <CImpsSAPSettingsList.h>

#include <CImpsSAPSettingsListItem.h>

// CONSTANTS

const TInt KLogBufferLength = 256;

_LIT( KLogDir,  "impsc" );

_LIT( KLogFile, "imapi.txt" );

void CImApiLogger::Log( TRefByValue<const TDesC> aFmt, ... )

    {

    VA_LIST list;

    VA_START( list, aFmt );

    // Print to log file

    TBuf<KLogBufferLength> buf;

    buf.FormatList( aFmt, list );

    // Write to log file

    RFileLogger::Write( KLogDir, KLogFile, EFileLoggingModeAppend, buf );

    }

const TDesC* SSapSettingsReader::ClientIdLC( const TDesC& aSapUrl )

    {

    TBool isFound( EFalse );

    HBufC* retVal( NULL );

    _LIT( httpString, "http://" );

    TChar slash( '/' );

    TPtrC16 wohttpstr;

    TPtrC16 wohttpstr2;

    wohttpstr.Set( aSapUrl );

    // parsing aSAPUrl

    if ( ( wohttpstr.Find( httpString ) == NULL ) ) // if string is found at the begining

        wohttpstr.Set( wohttpstr.Mid( httpString().Length() ) );

    // search for / at the end

    if ( ( wohttpstr.LocateReverse( slash ) ) == ( ( wohttpstr.Length() ) - 1 ) )

        wohttpstr.Set( wohttpstr.Left( ( ( wohttpstr.Length() ) - 1 ) ) );

    CIMPSSAPSettingsStore* store = CIMPSSAPSettingsStore::NewLC(); // <<<

    CIMPSSAPSettingsList* sapList = CIMPSSAPSettingsList::NewLC(); // <<<

    store->PopulateSAPSettingsListL( *sapList, EIMPSIMAccessGroup );

    for ( TInt i = 0; i < sapList->MdcaCount(); ++i )

        {

        CIMPSSAPSettings* sapSettings = CIMPSSAPSettings::NewLC();     // <<<

        store->GetSAPL( sapList->At( i )->Uid(), sapSettings );

        const TDesC& server = sapSettings->SAPAddress();

        if ( server.Length() <= 0 )

            {

            CleanupStack::PopAndDestroy( 1 ); // sapSettings

            continue;

            }

        wohttpstr2.Set( server );

        // parsing aSAPUrl

        if ( ( wohttpstr2.Find( httpString ) == NULL ) ) // if string found at the begining

            wohttpstr2.Set( wohttpstr2.Mid( httpString().Length() ) );

        // search for / at the end

        if ( ( wohttpstr2.LocateReverse( slash ) ) == ( ( wohttpstr2.Length() ) - 1 ) )

            wohttpstr2.Set( wohttpstr2.Left( ( ( wohttpstr2.Length() ) - 1 ) ) );

        if ( wohttpstr == wohttpstr2 )

            {

            isFound = ETrue;

            retVal = ( sapSettings->ClientId() ).AllocL();

            CleanupStack::PopAndDestroy( 1 ); // sapSettings

            break;

            }

        else

            {

            CleanupStack::PopAndDestroy( 1 ); // sapSettings

            }

        }

    CleanupStack::PopAndDestroy( 2 );   // >>> sapList, store

    if ( !isFound )

        {

        retVal = KImOpenAppID().AllocLC();

        }

    else

        CleanupStack::PushL( retVal );

    return retVal;

    }

//  End of File