/*

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

*

*/

// INCLUDES

#include "TContactFieldDataImpl.h"

#include <VPbkError.h>

#include <cntdef.h>

#include <cntfield.h>

#include <cntfldst.h>

#include "VPbkCntModelUid.h"

namespace VPbkCntModel {

_LIT(KColon, ":");

// TContactFieldTextData

TBool TContactFieldTextData::IsEmpty() const

    {

    return !iCntModelField->Storage()->IsFull();

    }

void TContactFieldTextData::CopyL(const MVPbkContactFieldData& aFieldData)

    {

    __ASSERT_ALWAYS(DataType() == aFieldData.DataType(), 

        VPbkError::Panic(VPbkError::EFieldDataTypeMismatch));

    SetTextL(MVPbkContactFieldTextData::Cast(aFieldData).Text());

    }

TPtrC TContactFieldTextData::Text() const

    {

    return iCntModelField->TextStorage()->Text();

    }

void TContactFieldTextData::SetTextL(const TDesC& aText)

    {

    iCntModelField->TextStorage()->SetTextL(aText);

    }

TInt TContactFieldTextData::MaxLength() const

    {

    return KVPbkUnlimitedFieldLength;

    }

// TContactFieldBinaryData

TBool TContactFieldBinaryData::IsEmpty() const

    {

    return !iCntModelField->Storage()->IsFull();

    }

void TContactFieldBinaryData::CopyL(const MVPbkContactFieldData& aFieldData)

    {

    __ASSERT_ALWAYS(DataType() == aFieldData.DataType(), 

        VPbkError::Panic(VPbkError::EFieldDataTypeMismatch));

    SetBinaryDataL(MVPbkContactFieldBinaryData::Cast(aFieldData).BinaryData());

    }

TPtrC8 TContactFieldBinaryData::BinaryData() const

    {

    TPtrC8 result;

    HBufC8* buf = iCntModelField->StoreStorage()->Thing();

    if (buf)

        {

        result.Set(*buf);

        }

    return result;

    }

void TContactFieldBinaryData::SetBinaryDataL(const TDesC8& aBinaryData)

    {

    iCntModelField->StoreStorage()->SetThingL(aBinaryData);

    }

// TContactFieldDateTimeData

TBool TContactFieldDateTimeData::IsEmpty() const

    {

    return !iCntModelField->Storage()->IsFull();

    }

void TContactFieldDateTimeData::CopyL(const MVPbkContactFieldData& aFieldData)

    {

    __ASSERT_ALWAYS(DataType() == aFieldData.DataType(), 

        VPbkError::Panic(VPbkError::EFieldDataTypeMismatch));

    SetDateTime(MVPbkContactFieldDateTimeData::Cast(aFieldData).DateTime());

    }

TTime TContactFieldDateTimeData::DateTime() const

    {

    return iCntModelField->DateTimeStorage()->Time();

    }

void TContactFieldDateTimeData::SetDateTime(const TTime& aTime)

    {

    iCntModelField->DateTimeStorage()->SetTime(aTime);

    }

// TContactFieldUriData

TBool TContactFieldUriData::IsEmpty() const

    {

    return !iCntModelField->Storage()->IsFull();

    }

void TContactFieldUriData::CopyL(const MVPbkContactFieldData& aFieldData)

    {

    __ASSERT_ALWAYS(DataType() == aFieldData.DataType(), 

        VPbkError::Panic(VPbkError::EFieldDataTypeMismatch));

    SetUriL(MVPbkContactFieldUriData::Cast(aFieldData).Uri());

    }

TPtrC TContactFieldUriData::Scheme() const

    {

    TPtrC ptr = iCntModelField->TextStorage()->Text();

    if (!ptr.Length())

        {

        return ptr;

        }

    TInt pos = ptr.Find(KColon);

    __ASSERT_DEBUG(pos > 0, 

        VPbkError::Panic(VPbkError::EFieldDataTypeMismatch));

    return ptr.Left(pos);

    }

TPtrC TContactFieldUriData::Text() const

    {

    TPtrC ptr = iCntModelField->TextStorage()->Text();

    if (!ptr.Length())

        {

        return ptr;

        }

    TInt pos = ptr.Find(KColon);

    __ASSERT_DEBUG(pos > 0 && pos + 1 < ptr.Length(), 

        VPbkError::Panic(VPbkError::EFieldDataTypeMismatch));

    return ptr.Mid(++pos);

    }

TPtrC TContactFieldUriData::Uri() const

    {

    return iCntModelField->TextStorage()->Text();

    }

// aUri: URI as specified in RFC 3986

// For example:

//   ftp://ftp.is.co.za/rfc/rfc1808.txt

//   ldap://[2001:db8::7]/c=GB?objectClass?one

//   mailto:John.Doe@example.com

//   tel:+1-816-555-1212

void TContactFieldUriData::SetUriL(const TDesC& aUri)

    {

    if (aUri.Length())

        {

        // skip th validate if field type is IMPP, because IMPP is not URI,

        // scheme of URI is taken from sXP service name, which might contains

        // special characters

        TFieldType fType = {KUidContactFieldIMPPValue};

        if (!iCntModelField->ContentType().ContainsFieldType(fType))

            {

            if ( !Validate(aUri, ETrue) )

               {

               User::Leave(KErrNotSupported);

               }

            }

        else // If it is an IMPP field

            {

            TInt pos = aUri.Find(KColon);

            // If the service name or the colon doesn't exist, let it leave the function.

            // e.g.:

            // (1) If the value is YAHOO:peterpan@yahoo.com, YAHOO is the service name

            // (2) If the value is :peterpan@yahoo.com, the service name is NULL

            // (3) If the value is peterpan@yahoo.com, neither the service name and the colon exists

            if( 0 == pos || KErrNotFound == pos )

                {

                User::Leave(KErrNotSupported);

                }

            }

        }

    iCntModelField->TextStorage()->SetTextL(aUri);

    }

// aScheme: scheme part of URI aText: rest of URI

// For example:

//   aScheme:                  aText:

//   ftp                       //ftp.is.co.za/rfc/rfc1808.txt

//   ldap                      //[2001:db8::7]/c=GB?objectClass?one

//   mailto                    John.Doe@example.com

//   tel                       +1-816-555-1212

void TContactFieldUriData::SetUriL(const TDesC& aScheme, const TDesC& aText)

    {

    if (!aText.Length())

        {

        if (aScheme.Length())

            {

            User::Leave(KErrCorrupt);

            }

        }

    if (aScheme.Length())

        {

        /*

        skip th validate if field type is IMPP, because IMPP is not URI,

        scheme of URI is taken from sXP service name, which might contains

        special characters

        */

        TFieldType fType = {KUidContactFieldIMPPValue};

        if (!iCntModelField->ContentType().ContainsFieldType(fType))

            {

            if ( !Validate(aScheme, EFalse))

               {

               User::Leave(KErrCorrupt);

               }

            }

        HBufC* buf = HBufC::NewLC(aScheme.Length() + KColon().Length() +

                aText.Length());

        TPtr ptr(NULL, 0);

        ptr.Set(buf->Des());

        ptr = aScheme;

        ptr.Append(KColon);

        ptr.Append(aText);

        iCntModelField->TextStorage()->SetTextL(*buf);

        CleanupStack::PopAndDestroy(buf);

        }

    else

        {

        if (aText.Length())

            {

            User::Leave(KErrCorrupt);

            }

        iCntModelField->TextStorage()->SetTextL(KNullDesC);

        }

    }

TInt TContactFieldUriData::MaxLength() const

    {

    return KVPbkUnlimitedFieldLength;

    }

TBool TContactFieldUriData::Validate(const TDesC& aUri, TBool aFullUri)

    {

    if (!((TChar)aUri[0]).IsAlpha())

        {

        return EFalse;

        }

    for (TInt i = 1; i < aUri.Length(); i++)

        {

        TChar chr = aUri[i];

        if ((chr == ':') && aFullUri)

            {

            return ETrue;

            }

        if (!chr.IsAlphaDigit() && (chr != '+') && (chr != '-') && (chr != '.'))

            {

            return EFalse;

            }

        }

    if (aFullUri)

        {

        return EFalse;

        }

    return ETrue;

    }

}  // namespace VPbkCntModel