vcardtool.cpp

/*
    This file is part of libtdeabc.
    Copyright (c) 2003 Tobias Koenig <tokoe@kde.org>
 
    This library is free software; you can redistribute it and/or
    modify it under the terms of the GNU Library General Public
    License as published by the Free Software Foundation; either
    version 2 of the License, or (at your option) any later version.
 
    This library is distributed in the hope that it will be useful,
    but WITHOUT ANY WARRANTY; without even the implied warranty of
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
    Library General Public License for more details.
 
    You should have received a copy of the GNU Library General Public License
    along with this library; see the file COPYING.LIB.  If not, write to
    the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
    Boston, MA 02110-1301, USA.
*/
 
#include <tqbuffer.h>
#include <tqdatastream.h>
#include <tqregexp.h>
#include <tqstring.h>
 
#include "agent.h"
#include "key.h"
#include "picture.h"
#include "secrecy.h"
#include "sound.h"
 
#include "vcardtool.h"
 
using namespace TDEABC;
 
static bool needsEncoding( const TQString &value )
{
  uint length = value.length();
  for ( uint i = 0; i < length; ++i ) {
    char c = value.at( i ).latin1();
    if ( (c < 33 || c > 126) && c != ' ' && c != '=' )
      return true;
  }
 
  return false;
}
 
VCardTool::VCardTool()
{
  mAddressTypeMap.insert( "dom", Address::Dom );
  mAddressTypeMap.insert( "intl", Address::Intl );
  mAddressTypeMap.insert( "postal", Address::Postal );
  mAddressTypeMap.insert( "parcel", Address::Parcel );
  mAddressTypeMap.insert( "home", Address::Home );
  mAddressTypeMap.insert( "work", Address::Work );
  mAddressTypeMap.insert( "pref", Address::Pref );
 
  mPhoneTypeMap.insert( "HOME", PhoneNumber::Home );
  mPhoneTypeMap.insert( "WORK", PhoneNumber::Work );
  mPhoneTypeMap.insert( "MSG", PhoneNumber::Msg );
  mPhoneTypeMap.insert( "PREF", PhoneNumber::Pref );
  mPhoneTypeMap.insert( "VOICE", PhoneNumber::Voice );
  mPhoneTypeMap.insert( "FAX", PhoneNumber::Fax );
  mPhoneTypeMap.insert( "CELL", PhoneNumber::Cell );
  mPhoneTypeMap.insert( "VIDEO", PhoneNumber::Video );
  mPhoneTypeMap.insert( "BBS", PhoneNumber::Bbs );
  mPhoneTypeMap.insert( "MODEM", PhoneNumber::Modem );
  mPhoneTypeMap.insert( "CAR", PhoneNumber::Car );
  mPhoneTypeMap.insert( "ISDN", PhoneNumber::Isdn );
  mPhoneTypeMap.insert( "PCS", PhoneNumber::Pcs );
  mPhoneTypeMap.insert( "PAGER", PhoneNumber::Pager );
}
 
VCardTool::~VCardTool()
{
}
 
// TODO: make list a const&
TQString VCardTool::createVCards( Addressee::List list, VCard::Version version )
{
  VCard::List vCardList;
 
  Addressee::List::ConstIterator addrIt;
  Addressee::List::ConstIterator listEnd( list.constEnd() );
  for ( addrIt = list.constBegin(); addrIt != listEnd; ++addrIt ) {
    VCard card;
    TQStringList::ConstIterator strIt;
 
    // ADR + LABEL
    const Address::List addresses = (*addrIt).addresses();
    for ( Address::List::ConstIterator it = addresses.begin(); it != addresses.end(); ++it ) {
      TQStringList address;
 
      bool isEmpty = ( (*it).postOfficeBox().isEmpty() &&
                     (*it).extended().isEmpty() &&
                     (*it).street().isEmpty() &&
                     (*it).locality().isEmpty() &&
                     (*it).region().isEmpty() &&
                     (*it).postalCode().isEmpty() &&
                     (*it).country().isEmpty() );
 
      address.append( (*it).postOfficeBox().replace( ';', "\\;" ) );
      address.append( (*it).extended().replace( ';', "\\;" ) );
      address.append( (*it).street().replace( ';', "\\;" ) );
      address.append( (*it).locality().replace( ';', "\\;" ) );
      address.append( (*it).region().replace( ';', "\\;" ) );
      address.append( (*it).postalCode().replace( ';', "\\;" ) );
      address.append( (*it).country().replace( ';', "\\;" ) );
 
      VCardLine adrLine( "ADR", address.join( ";" ) );
      if ( version == VCard::v2_1 && needsEncoding( address.join( ";" ) ) ) {
        adrLine.addParameter( "charset", "UTF-8" );
        adrLine.addParameter( "encoding", "QUOTED-PRINTABLE" );
      }
 
      VCardLine labelLine( "LABEL", (*it).label() );
      if ( version == VCard::v2_1 && needsEncoding( (*it).label() ) ) {
        labelLine.addParameter( "charset", "UTF-8" );
        labelLine.addParameter( "encoding", "QUOTED-PRINTABLE" );
      }
 
      bool hasLabel = !(*it).label().isEmpty();
      TQMap<TQString, int>::ConstIterator typeIt;
      for ( typeIt = mAddressTypeMap.constBegin(); typeIt != mAddressTypeMap.constEnd(); ++typeIt ) {
        if ( typeIt.data() & (*it).type() ) {
          adrLine.addParameter( "TYPE", typeIt.key() );
          if ( hasLabel )
            labelLine.addParameter( "TYPE",  typeIt.key() );
        }
      }
 
      if ( !isEmpty )
        card.addLine( adrLine );
      if ( hasLabel )
        card.addLine( labelLine );
    }
 
    // AGENT
    card.addLine( createAgent( version, (*addrIt).agent() ) );
 
    // BDAY
    card.addLine( VCardLine( "BDAY", createDateTime( (*addrIt).birthday()) ) );
 
    // CATEGORIES
    if ( version == VCard::v3_0 ) {
      TQStringList categories = (*addrIt).categories();
      TQStringList::Iterator catIt;
      for ( catIt = categories.begin(); catIt != categories.end(); ++catIt )
        (*catIt).replace( ',', "\\," );
 
      VCardLine catLine( "CATEGORIES", categories.join( "," ) );
      if ( version == VCard::v2_1 && needsEncoding( categories.join( "," ) ) ) {
        catLine.addParameter( "charset", "UTF-8" );
        catLine.addParameter( "encoding", "QUOTED-PRINTABLE" );
      }
 
      card.addLine( catLine );
    }
 
    // CLASS
    if ( version == VCard::v3_0 ) {
      card.addLine( createSecrecy( (*addrIt).secrecy() ) );
    }
 
    // EMAIL
    const TQStringList emails = (*addrIt).emails();
    bool pref = true;
    for ( strIt = emails.begin(); strIt != emails.end(); ++strIt ) {
      VCardLine line( "EMAIL", *strIt );
      if ( pref == true && emails.count() > 1 ) {
        line.addParameter( "TYPE", "PREF" );
        pref = false;
      }
      card.addLine( line );
    }
 
    // FN
    VCardLine fnLine( "FN", TQString((*addrIt).formattedName()) );
    if ( version == VCard::v2_1 && needsEncoding( (*addrIt).formattedName() ) ) {
      fnLine.addParameter( "charset", "UTF-8" );
      fnLine.addParameter( "encoding", "QUOTED-PRINTABLE" );
    }
    card.addLine( fnLine );
 
    // GEO
    Geo geo = (*addrIt).geo();
    if ( geo.isValid() ) {
      TQString str;
      str.sprintf( "%.6f;%.6f", geo.latitude(), geo.longitude() );
      card.addLine( VCardLine( "GEO", str ) );
    }
 
    // KEY
    const Key::List keys = (*addrIt).keys();
    Key::List::ConstIterator keyIt;
    for ( keyIt = keys.begin(); keyIt != keys.end(); ++keyIt )
      card.addLine( createKey( *keyIt ) );
 
    // LOGO
    card.addLine( createPicture( "LOGO", (*addrIt).logo() ) );
 
    // MAILER
    VCardLine mailerLine( "MAILER", TQString((*addrIt).mailer()) );
    if ( version == VCard::v2_1 && needsEncoding( (*addrIt).mailer() ) ) {
      mailerLine.addParameter( "charset", "UTF-8" );
      mailerLine.addParameter( "encoding", "QUOTED-PRINTABLE" );
    }
    card.addLine( mailerLine );
 
    // N
    TQStringList name;
    name.append( (*addrIt).familyName().replace( ';', "\\;" ) );
    name.append( (*addrIt).givenName().replace( ';', "\\;" ) );
    name.append( (*addrIt).additionalName().replace( ';', "\\;" ) );
    name.append( (*addrIt).prefix().replace( ';', "\\;" ) );
    name.append( (*addrIt).suffix().replace( ';', "\\;" ) );
 
    VCardLine nLine( "N", name.join( ";" ) );
    if ( version == VCard::v2_1 && needsEncoding( name.join( ";" ) ) ) {
      nLine.addParameter( "charset", "UTF-8" );
      nLine.addParameter( "encoding", "QUOTED-PRINTABLE" );
    }
    card.addLine( nLine );
 
    // NAME
    VCardLine nameLine( "NAME", TQString((*addrIt).name()) );
    if ( version == VCard::v2_1 && needsEncoding( (*addrIt).name() ) ) {
      nameLine.addParameter( "charset", "UTF-8" );
      nameLine.addParameter( "encoding", "QUOTED-PRINTABLE" );
    }
    card.addLine( nameLine );
 
    // NICKNAME
    if ( version == VCard::v3_0 )
      card.addLine( VCardLine( "NICKNAME", TQString((*addrIt).nickName()) ) );
 
    // NOTE
    VCardLine noteLine( "NOTE", TQString((*addrIt).note()) );
    if ( version == VCard::v2_1 && needsEncoding( (*addrIt).note() ) ) {
      noteLine.addParameter( "charset", "UTF-8" );
      noteLine.addParameter( "encoding", "QUOTED-PRINTABLE" );
    }
    card.addLine( noteLine );
 
    // ORG
    TQStringList organization;
    organization.append( ( *addrIt ).organization().replace( ';', "\\;" ) );
    if ( !( *addrIt ).department().isEmpty() )
      organization.append( ( *addrIt ).department().replace( ';', "\\;" ) );
    VCardLine orgLine( "ORG", organization.join( ";" ) );
    if ( version == VCard::v2_1 && needsEncoding( organization.join( ";" ) ) ) {
      orgLine.addParameter( "charset", "UTF-8" );
      orgLine.addParameter( "encoding", "QUOTED-PRINTABLE" );
    }
    card.addLine( orgLine );
 
    // PHOTO
    card.addLine( createPicture( "PHOTO", (*addrIt).photo() ) );
 
    // PROID
    if ( version == VCard::v3_0 )
      card.addLine( VCardLine( "PRODID", TQString((*addrIt).productId()) ) );
 
    // REV
    card.addLine( VCardLine( "REV", createDateTime( (*addrIt).revision()) ) );
 
    // ROLE
    VCardLine roleLine( "ROLE", TQString((*addrIt).role()) );
    if ( version == VCard::v2_1 && needsEncoding( (*addrIt).role() ) ) {
      roleLine.addParameter( "charset", "UTF-8" );
      roleLine.addParameter( "encoding", "QUOTED-PRINTABLE" );
    }
    card.addLine( roleLine );
 
    // SORT-STRING
    if ( version == VCard::v3_0 )
      card.addLine( VCardLine( "SORT-STRING", TQString((*addrIt).sortString()) ) );
 
    // SOUND
    card.addLine( createSound( (*addrIt).sound() ) );
 
    // TEL
    const PhoneNumber::List phoneNumbers = (*addrIt).phoneNumbers();
    PhoneNumber::List::ConstIterator phoneIt;
    for ( phoneIt = phoneNumbers.begin(); phoneIt != phoneNumbers.end(); ++phoneIt ) {
      VCardLine line( "TEL", (*phoneIt).number() );
 
      TQMap<TQString, int>::ConstIterator typeIt;
      for ( typeIt = mPhoneTypeMap.constBegin(); typeIt != mPhoneTypeMap.constEnd(); ++typeIt ) {
        if ( typeIt.data() & (*phoneIt).type() )
          line.addParameter( "TYPE", typeIt.key() );
      }
 
      card.addLine( line );
    }
 
    // TITLE
    VCardLine titleLine( "TITLE", TQString((*addrIt).title()) );
    if ( version == VCard::v2_1 && needsEncoding( (*addrIt).title() ) ) {
      titleLine.addParameter( "charset", "UTF-8" );
      titleLine.addParameter( "encoding", "QUOTED-PRINTABLE" );
    }
    card.addLine( titleLine );
 
    // TZ
    TimeZone timeZone = (*addrIt).timeZone();
    if ( timeZone.isValid() ) {
      TQString str;
 
      int neg = 1;
      if ( timeZone.offset() < 0 )
        neg = -1;
 
      str.sprintf( "%c%02d:%02d", ( timeZone.offset() >= 0 ? '+' : '-' ),
                                  ( timeZone.offset() / 60 ) * neg,
                                  ( timeZone.offset() % 60 ) * neg );
 
      card.addLine( VCardLine( "TZ", str ) );
    }
 
    // UID
    card.addLine( VCardLine( "UID", (*addrIt).uid() ) );
 
    // UID
    card.addLine( VCardLine( "URI", (*addrIt).uri() ) );
 
    // URL
    card.addLine( VCardLine( "URL", (*addrIt).url().url() ) );
 
    // VERSION
    if ( version == VCard::v2_1 )
      card.addLine( VCardLine( "VERSION", "2.1" ) );
    if ( version == VCard::v3_0 )
      card.addLine( VCardLine( "VERSION", "3.0" ) );
 
    // X-
    const TQStringList customs = (*addrIt).customs();
    for ( strIt = customs.begin(); strIt != customs.end(); ++strIt ) {
      TQString identifier = "X-" + (*strIt).left( (*strIt).find( ":" ) );
      TQString value = (*strIt).mid( (*strIt).find( ":" ) + 1 );
      if ( value.isEmpty() )
        continue;
 
      VCardLine line( identifier, value );
      if ( version == VCard::v2_1 && needsEncoding( value ) ) {
        line.addParameter( "charset", "UTF-8" );
        line.addParameter( "encoding", "QUOTED-PRINTABLE" );
      }
      card.addLine( line );
    }
 
    vCardList.append( card );
  }
 
  return VCardParser::createVCards( vCardList );
}
 
Addressee::List VCardTool::parseVCards( const TQString& vcard )
{
  static const TQChar semicolonSep( ';' );
  static const TQChar commaSep( ',' );
  TQString identifier;
 
  Addressee::List addrList;
  const VCard::List vCardList = VCardParser::parseVCards( vcard );
 
  VCard::List::ConstIterator cardIt;
  VCard::List::ConstIterator listEnd( vCardList.end() );
  for ( cardIt = vCardList.begin(); cardIt != listEnd; ++cardIt ) {
    Addressee addr;
 
    const TQStringList idents = (*cardIt).identifiers();
    TQStringList::ConstIterator identIt;
    TQStringList::ConstIterator identEnd( idents.end() );
    for ( identIt = idents.begin(); identIt != identEnd; ++identIt ) {
      const VCardLine::List lines = (*cardIt).lines( (*identIt) );
      VCardLine::List::ConstIterator lineIt;
 
      // iterate over the lines
      for ( lineIt = lines.begin(); lineIt != lines.end(); ++lineIt ) {
        identifier = (*lineIt).identifier().lower();
        // ADR
        if ( identifier == "adr" ) {
          Address address;
          const TQStringList addrParts = splitString( semicolonSep, (*lineIt).value().asString() );
          if ( addrParts.count() > 0 )
            address.setPostOfficeBox( addrParts[ 0 ] );
          if ( addrParts.count() > 1 )
            address.setExtended( addrParts[ 1 ] );
          if ( addrParts.count() > 2 )
            address.setStreet( addrParts[ 2 ] );
          if ( addrParts.count() > 3 )
            address.setLocality( addrParts[ 3 ] );
          if ( addrParts.count() > 4 )
            address.setRegion( addrParts[ 4 ] );
          if ( addrParts.count() > 5 )
            address.setPostalCode( addrParts[ 5 ] );
          if ( addrParts.count() > 6 )
            address.setCountry( addrParts[ 6 ] );
 
          int type = 0;
 
          const TQStringList types = (*lineIt).parameters( "type" );
          for ( TQStringList::ConstIterator it = types.begin(); it != types.end(); ++it )
            type += mAddressTypeMap[ (*it).lower() ];
 
          address.setType( type );
          addr.insertAddress( address );
        }
 
        // AGENT
        else if ( identifier == "agent" )
          addr.setAgent( parseAgent( *lineIt ) );
 
        // BDAY
        else if ( identifier == "bday" ) {
          TQString s((*lineIt).value().asString());
          if ( s.length() > 0 )
            addr.setBirthday( parseDateTime( s ) );
        }
        
        // CATEGORIES
        else if ( identifier == "categories" ) {
          const TQStringList categories = splitString( commaSep, (*lineIt).value().asString() );
          addr.setCategories( categories );
        }
 
        // CLASS
        else if ( identifier == "class" )
          addr.setSecrecy( parseSecrecy( *lineIt ) );
 
        // EMAIL
        else if ( identifier == "email" ) {
          const TQStringList types = (*lineIt).parameters( "type" );
          addr.insertEmail( (*lineIt).value().asString(), types.findIndex( "PREF" ) != -1 );
        }
 
        // FN
        else if ( identifier == "fn" )
          addr.setFormattedName( (*lineIt).value().asString() );
 
        // GEO
        else if ( identifier == "geo" ) {
          Geo geo;
 
          const TQStringList geoParts = TQStringList::split( ';', (*lineIt).value().asString(), true );
          geo.setLatitude( geoParts[ 0 ].toFloat() );
          geo.setLongitude( geoParts[ 1 ].toFloat() );
 
          addr.setGeo( geo );
        }
 
        // KEY
        else if ( identifier == "key" )
          addr.insertKey( parseKey( *lineIt ) );
 
        // LABEL
        else if ( identifier == "label" ) {
          int type = 0;
 
          const TQStringList types = (*lineIt).parameters( "type" );
          for ( TQStringList::ConstIterator it = types.begin(); it != types.end(); ++it )
            type += mAddressTypeMap[ (*it).lower() ];
 
          bool available = false;
          TDEABC::Address::List addressList = addr.addresses();
          TDEABC::Address::List::Iterator it;
          for ( it = addressList.begin(); it != addressList.end(); ++it ) {
            if ( (*it).type() == type ) {
              (*it).setLabel( (*lineIt).value().asString() );
              addr.insertAddress( *it );
              available = true;
              break;
            }
          }
 
          if ( !available ) { // a standalone LABEL tag
            TDEABC::Address address( type );
            address.setLabel( (*lineIt).value().asString() );
            addr.insertAddress( address );
          }
        }
 
        // LOGO
        else if ( identifier == "logo" )
          addr.setLogo( parsePicture( *lineIt ) );
 
        // MAILER
        else if ( identifier == "mailer" )
          addr.setMailer( (*lineIt).value().asString() );
 
        // N
        else if ( identifier == "n" ) {
          const TQStringList nameParts = splitString( semicolonSep, (*lineIt).value().asString() );
          if ( nameParts.count() > 0 )
            addr.setFamilyName( nameParts[ 0 ] );
          if ( nameParts.count() > 1 )
            addr.setGivenName( nameParts[ 1 ] );
          if ( nameParts.count() > 2 )
            addr.setAdditionalName( nameParts[ 2 ] );
          if ( nameParts.count() > 3 )
            addr.setPrefix( nameParts[ 3 ] );
          if ( nameParts.count() > 4 )
            addr.setSuffix( nameParts[ 4 ] );
        }
 
        // NAME
        else if ( identifier == "name" )
          addr.setName( (*lineIt).value().asString() );
 
        // NICKNAME
        else if ( identifier == "nickname" )
          addr.setNickName( (*lineIt).value().asString() );
 
        // NOTE
        else if ( identifier == "note" )
          addr.setNote( (*lineIt).value().asString() );
 
        // ORGANIZATION
        else if ( identifier == "org" ) {
          const TQStringList orgParts = splitString( semicolonSep, (*lineIt).value().asString() );
          if ( orgParts.count() > 0 )
            addr.setOrganization( orgParts[ 0 ] );
          if ( orgParts.count() > 1 )
            addr.setDepartment( orgParts[ 1 ] );
        }
 
        // PHOTO
        else if ( identifier == "photo" )
          addr.setPhoto( parsePicture( *lineIt ) );
 
        // PROID
        else if ( identifier == "prodid" )
          addr.setProductId( (*lineIt).value().asString() );
 
        // REV
        else if ( identifier == "rev" )
          addr.setRevision( parseDateTime( (*lineIt).value().asString() ) );
 
        // ROLE
        else if ( identifier == "role" )
          addr.setRole( (*lineIt).value().asString() );
 
        // SORT-STRING
        else if ( identifier == "sort-string" )
          addr.setSortString( (*lineIt).value().asString() );
 
        // SOUND
        else if ( identifier == "sound" )
          addr.setSound( parseSound( *lineIt ) );
 
        // TEL
        else if ( identifier == "tel" ) {
          PhoneNumber phone;
          phone.setNumber( (*lineIt).value().asString() );
 
          int type = 0;
 
          const TQStringList types = (*lineIt).parameters( "type" );
          for ( TQStringList::ConstIterator it = types.begin(); it != types.end(); ++it )
            type += mPhoneTypeMap[(*it).upper()];
 
          phone.setType( type );
 
          addr.insertPhoneNumber( phone );
        }
 
        // TITLE
        else if ( identifier == "title" )
          addr.setTitle( (*lineIt).value().asString() );
 
        // TZ
        else if ( identifier == "tz" ) {
          TimeZone tz;
          const TQString date = (*lineIt).value().asString();
 
          int hours = date.mid( 1, 2).toInt();
          int minutes = date.mid( 4, 2 ).toInt();
          int offset = ( hours * 60 ) + minutes;
          offset = offset * ( date[ 0 ] == '+' ? 1 : -1 );
 
          tz.setOffset( offset );
          addr.setTimeZone( tz );
        }
 
        // UID
        else if ( identifier == "uid" )
          addr.setUid( (*lineIt).value().asString() );
 
        // URI
        else if ( identifier == "uri" )
          addr.setUri( (*lineIt).value().asString() );
 
        // URL
        else if ( identifier == "url" )
          addr.setUrl( KURL( (*lineIt).value().asString() ) );
 
        // X-
        else if ( identifier.startsWith( "x-" ) ) {
          const TQString key = (*lineIt).identifier().mid( 2 );
          int dash = key.find( "-" );
          addr.insertCustom( key.left( dash ), key.mid( dash + 1 ), (*lineIt).value().asString() );
        }
      }
    }
 
    addrList.append( addr );
  }
 
  return addrList;
}
 
TQDateTime VCardTool::parseDateTime(const TQString &str)
{
  TQDateTime dateTime;
  
  /* This regex matches one of the following formats (description taken from 
     https://www.w3.org/TR/NOTE-datetime, copyright remains of the respective documentation author(s))
     Year:            YYYY (eg 1997)
         Year and month:  YYYY-MM (eg 1997-07)
         Complete date:   YYYY-MM-DD (eg 1997-07-16)
         Complete date plus hours and minutes:             YYYY-MM-DDThh:mmTZD (eg 1997-07-16T19:20+01:00)
         Complete date plus hours, minutes and seconds:    YYYY-MM-DDThh:mm:ssTZD (eg 1997-07-16T19:20:30+01:00)
         Complete date plus hours, minutes, seconds and a decimal fraction of a second
                                            YYYY-MM-DDThh:mm:ss.sTZD (eg 1997-07-16T19:20:30.45+01:00)
         where:
         YYYY = four-digit year
         MM   = two-digit month (01=January, etc.)
         DD   = two-digit day of month (01 through 31)
         hh   = two digits of hour (00 through 23) (am/pm NOT allowed)
         mm   = two digits of minute (00 through 59)
         ss   = two digits of second (00 through 59)
         s    = one or more digits representing a decimal fraction of a second
         TZD  = time zone designator (Z or +hh:mm or -hh:mm)
  */
    TQRegExp re("(\\d{4})(?:-(\\d{2})(?:-(\\d{2})(?:T(\\d{2}):(\\d{2})(?::(\\d{2})(?:\\.(\\d+))?)?"
                "(?:(Z)|([+-])(\\d{2}):(\\d{2})))?)?)?", true, false);
    if (!re.exactMatch(str))
    {
        // Try alternative format if pattern does not match
        /* This regex matches one of the following formats (description adapted from 
             https://www.w3.org/TR/NOTE-datetime, copyright remains of the respective documentation author(s))
             Year:            YYYY (eg 1997)
             Year and month:  YYYYMM (eg 199707)
             Complete date:   YYYYMMDD (eg 19970716)
             Complete date plus hours and minutes:             YYYYMMDDThhmmTZD (eg 19970716T1920+0100)
             Complete date plus hours, minutes and seconds:    YYYYMMDDThhmmssTZD (eg 19970716T192030+0100)
             Complete date plus hours, minutes, seconds and a decimal fraction of a second
                                                YYYYMMDDThhmmsslTZD (eg 19970716T19203045+0100)
             where:
             YYYY = four-digit year
             MM   = two-digit month (01=January, etc.)
             DD   = two-digit day of month (01 through 31)
             hh   = two digits of hour (00 through 23) (am/pm NOT allowed)
             mm   = two digits of minute (00 through 59)
             ss   = two digits of second (00 through 59)
             l    = one or more digits representing a decimal fraction of a second
             TZD  = time zone designator (Z or +hhmm or -hhmm)
        */
        re.setPattern("(\\d{4})(?:(\\d{2})(?:(\\d{2})(?:T(\\d{2})(\\d{2})(?:(\\d{2})(?:(\\d+))?)?"
                "(?:(Z)|([+-])(\\d{2})(\\d{2})))?)?)?");
    }
    if (re.exactMatch(str))
    {
        // Insert date
      dateTime.setDate(TQDate(re.cap(1).toInt(),                              // year
                              !re.cap(2).isEmpty() ? re.cap(2).toInt() : 1,   // month
                              !re.cap(3).isEmpty() ? re.cap(3).toInt() : 1)); // day
      if (!re.cap(4).isEmpty())
      {
        // Time was also specified
        int millis = 0;
        if (!re.cap(7).isEmpty())
        {
          millis += re.cap(7)[0].isDigit() ? re.cap(7)[0].digitValue() * 100 : 0;
          millis += re.cap(7)[1].isDigit() ? re.cap(7)[1].digitValue() * 10  : 0;
          millis += re.cap(7)[2].isDigit() ? re.cap(7)[2].digitValue()       : 0;
        }
        dateTime.setTime(TQTime(re.cap(4).toInt(),                            // hours
                                re.cap(5).toInt(),                            // minutes
                                !re.cap(6).isEmpty() ? re.cap(6).toInt() : 0, // seconds
                                millis));                                     // milliseconds
            // Add time offset if time not in UTC format
            if (!re.cap(9).isEmpty())
            {
                int offset = re.cap(10).toInt() * 3600 + re.cap(11).toInt() * 60;
                if (re.cap(9) == "+")
                { 
                  // Local time zone is ahead of UTC time
                    offset = -offset;
                }
                dateTime = dateTime.addSecs(offset);
            }
      }
    }
  return dateTime;
}
 
TQString VCardTool::createDateTime( const TQDateTime &dateTime )
{
  TQString str;
 
  if ( dateTime.date().isValid() ) {
    str.sprintf( "%4d-%02d-%02d", dateTime.date().year(), dateTime.date().month(),
                 dateTime.date().day() );
    if ( dateTime.time().isValid() ) {
      TQString tmp;
      tmp.sprintf( "T%02d:%02d:%02dZ", dateTime.time().hour(), dateTime.time().minute(),
                   dateTime.time().second() );
      str += tmp;
    }
  }
 
  return str;
}
 
Picture VCardTool::parsePicture( const VCardLine &line )
{
  Picture pic;
 
  const TQStringList params = line.parameterList();
  if ( params.findIndex( "encoding" ) != -1 ) {
    TQImage img;
    img.loadFromData( line.value().asByteArray() );
    pic.setData( img );
  } else if ( params.findIndex( "value" ) != -1 ) {
    if ( line.parameter( "value" ).lower() == "uri" )
      pic.setUrl( line.value().asString() );
  }
 
  if ( params.findIndex( "type" ) != -1 )
    pic.setType( line.parameter( "type" ) );
 
  return pic;
}
 
VCardLine VCardTool::createPicture( const TQString &identifier, const Picture &pic )
{
  VCardLine line( identifier );
 
  if ( pic.isIntern() ) {
    if ( !pic.data().isNull() ) {
      TQByteArray input;
      TQBuffer buffer( input );
      buffer.open( IO_WriteOnly );
 
      TQImageIO iio( &buffer, "JPEG" );
      iio.setImage( pic.data() );
      iio.setQuality( 100 );
      iio.write();
 
      line.setValue( input );
      line.addParameter( "encoding", "b" );
      line.addParameter( "type", "image/jpeg" );
    }
  } else if ( !pic.url().isEmpty() ) {
    line.setValue( pic.url() );
    line.addParameter( "value", "URI" );
  }
 
  return line;
}
 
Sound VCardTool::parseSound( const VCardLine &line )
{
  Sound snd;
 
  const TQStringList params = line.parameterList();
  if ( params.findIndex( "encoding" ) != -1 )
    snd.setData( line.value().asByteArray() );
  else if ( params.findIndex( "value" ) != -1 ) {
    if ( line.parameter( "value" ).lower() == "uri" )
      snd.setUrl( line.value().asString() );
  }
 
/* TODO: support sound types
  if ( params.contains( "type" ) )
    snd.setType( line.parameter( "type" ) );
*/
 
  return snd;
}
 
VCardLine VCardTool::createSound( const Sound &snd )
{
  VCardLine line( "SOUND" );
 
  if ( snd.isIntern() ) {
    if ( !snd.data().isEmpty() ) {
      line.setValue( snd.data() );
      line.addParameter( "encoding", "b" );
      // TODO: need to store sound type!!!
    }
  } else if ( !snd.url().isEmpty() ) {
    line.setValue( snd.url() );
    line.addParameter( "value", "URI" );
  }
 
  return line;
}
 
Key VCardTool::parseKey( const VCardLine &line )
{
  Key key;
 
  const TQStringList params = line.parameterList();
  if ( params.findIndex( "encoding" ) != -1 )
    key.setBinaryData( line.value().asByteArray() );
  else
    key.setTextData( line.value().asString() );
 
  if ( params.findIndex( "type" ) != -1 ) {
    if ( line.parameter( "type" ).lower() == "x509" )
      key.setType( Key::X509 );
    else if ( line.parameter( "type" ).lower() == "pgp" )
      key.setType( Key::PGP );
    else {
      key.setType( Key::Custom );
      key.setCustomTypeString( line.parameter( "type" ) );
    }
  }
 
  return key;
}
 
VCardLine VCardTool::createKey( const Key &key )
{
  VCardLine line( "KEY" );
 
  if ( key.isBinary() ) {
    if ( !key.binaryData().isEmpty() ) {
      line.setValue( key.binaryData() );
      line.addParameter( "encoding", "b" );
    }
  } else if ( !key.textData().isEmpty() )
    line.setValue( key.textData() );
 
  if ( key.type() == Key::X509 )
    line.addParameter( "type", "X509" );
  else if ( key.type() == Key::PGP )
    line.addParameter( "type", "PGP" );
  else if ( key.type() == Key::Custom )
    line.addParameter( "type", key.customTypeString() );
 
  return line;
}
 
Secrecy VCardTool::parseSecrecy( const VCardLine &line )
{
  Secrecy secrecy;
 
  if ( line.value().asString().lower() == "public" )
    secrecy.setType( Secrecy::Public );
  if ( line.value().asString().lower() == "private" )
    secrecy.setType( Secrecy::Private );
  if ( line.value().asString().lower() == "confidential" )
    secrecy.setType( Secrecy::Confidential );
 
  return secrecy;
}
 
VCardLine VCardTool::createSecrecy( const Secrecy &secrecy )
{
  VCardLine line( "CLASS" );
 
  int type = secrecy.type();
 
  if ( type == Secrecy::Public )
    line.setValue( "PUBLIC" );
  else if ( type == Secrecy::Private )
    line.setValue( "PRIVATE" );
  else if ( type == Secrecy::Confidential )
    line.setValue( "CONFIDENTIAL" );
 
  return line;
}
 
Agent VCardTool::parseAgent( const VCardLine &line )
{
  Agent agent;
 
  const TQStringList params = line.parameterList();
  if ( params.findIndex( "value" ) != -1 ) {
    if ( line.parameter( "value" ).lower() == "uri" )
      agent.setUrl( line.value().asString() );
  } else {
    TQString str = line.value().asString();
    str.replace( "\\n", "\r\n" );
    str.replace( "\\N", "\r\n" );
    str.replace( "\\;", ";" );
    str.replace( "\\:", ":" );
    str.replace( "\\,", "," );
 
    const Addressee::List list = parseVCards( str );
    if ( list.count() > 0 ) {
      Addressee *addr = new Addressee;
      *addr = list[ 0 ];
      agent.setAddressee( addr );
    }
  }
 
  return agent;
}
 
VCardLine VCardTool::createAgent( VCard::Version version, const Agent &agent )
{
  VCardLine line( "AGENT" );
 
  if ( agent.isIntern() ) {
    if ( agent.addressee() != 0 ) {
      Addressee::List list;
      list.append( *agent.addressee() );
 
      TQString str = createVCards( list, version );
      str.replace( "\r\n", "\\n" );
      str.replace( ";", "\\;" );
      str.replace( ":", "\\:" );
      str.replace( ",", "\\," );
      line.setValue( str );
    }
  } else if ( !agent.url().isEmpty() ) {
    line.setValue( agent.url() );
    line.addParameter( "value", "URI" );
  }
 
  return line;
}
 
TQStringList VCardTool::splitString( const TQChar &sep, const TQString &str )
{
  TQStringList list;
  TQString value( str );
 
  int start = 0;
  int pos = value.find( sep, start );
 
  while ( pos != -1 ) {
    if ( value[ pos - 1 ] != '\\' ) {
      if ( pos > start && pos <= (int)value.length() )
        list << value.mid( start, pos - start );
      else
        list << TQString::null;
 
      start = pos + 1;
      pos = value.find( sep, start );
    } else {
      if ( pos != 0 ) {
        value.replace( pos - 1, 2, sep );
        pos = value.find( sep, pos );
      } else
        pos = value.find( sep, pos + 1 );
    }
  }
 
  int l = value.length() - 1;
  if ( value.mid( start, l - start + 1 ).length() > 0 )
    list << value.mid( start, l - start + 1 );
  else
    list << TQString::null;
 
  return list;
}