How can i export address book by email address without authen ? (vcf format)

[mean-cj]

Dear Rainloop Team

I need create a automation script export the address book for any email accounts without authentication. example for web control panel migration to another server.

I create a php script, My solution export work only "cvs" format. Do you have solution, API for export the vcf format ?

How to solve this ?

PHP Fatal error:  Uncaught Error: Class 'SabreForRainLoop\VObject\Component\VCard' not found in /var/www/html/rainloop-book.php:10
Stack trace:
#0 {main}
  thrown in /var/www/html/rainloop-export.php on line 10

Fatal error: Uncaught Error: Class 'SabreForRainLoop\VObject\Component\VCard' not found in /var/www/html/rainloop-book.php:10
Stack trace:
#0 {main}
  thrown in /var/www/html/rainloop-export.php on line 10

rainloop-export.php

<?php
error_reporting(E_ALL & ~E_NOTICE & ~E_WARNING);
$_ENV['RAINLOOP_INCLUDE_AS_API'] = true;
include '/var/www/html/rainloop/index.php';

$oConfig =  \RainLoop\Api::Config();
$sDsn = \trim($oConfig->Get('contacts', 'pdo_dsn', ''));
$sUser = \trim($oConfig->Get('contacts', 'pdo_user', ''));
$sPassword = (string) $oConfig->Get('contacts', 'pdo_password', '');
$sDsnType = $oAction->ValidateContactPdoType(\trim($oConfig->Get('contacts', 'type', 'sqlite')));
if ('sqlite' === $sDsnType) {
  $oDriver = new \RainLoop\Providers\AddressBook\PdoAddressBook(
    'sqlite:' . APP_PRIVATE_DATA . 'AddressBook.sqlite',
    '',
    '',
    'sqlite'
  );
} else {
  $oDriver = new \RainLoop\Providers\AddressBook\PdoAddressBook($sDsn, $sUser, $sPassword, $sDsnType);
}

$oAddressBookProvider = new \RainLoop\Providers\AddressBook($oDriver);
$oAddressBookProvider->Export('email@domain.com', 'vcf'); 
or
$oDriver->Export('email@domain.com','cvs');

app/libraries/RainLoop/Providers/AddressBook/Classes/Contact.php

    public function Export($sEmail, $sType = 'vcf')
    {
        $this->SyncDatabase();

        $iUserID = $this->getUserId($sEmail);
        if (0 >= $iUserID)
        {
            return false;
        }

        $bVcf = 'vcf' === $sType;
        $bCsvHeader = true;

        $aDatabaseSyncData = $this->prepearDatabaseSyncData($iUserID);
        if (\is_array($aDatabaseSyncData) && 0 < \count($aDatabaseSyncData))
        {
            foreach ($aDatabaseSyncData as $mData)
            {
                if ($mData && isset($mData['id_contact'], $mData['deleted']) && !$mData['deleted'])
                {
                    $oContact = $this->GetContactByID($sEmail, $mData['id_contact']);
                    if ($oContact)
                    {
                        if ($bVcf)
                        {
                            echo $oContact->ToVCard();
                        }
                        else
                        {
                            echo $oContact->ToCsv($bCsvHeader);
                            $bCsvHeader = false;
                        }
                    }
                }
            }
        }

        return true;
    }

/app/libraries/RainLoop/Providers/AddressBook/Classes/Contact.php

    public function ToVCard($sPreVCard = '', $oLogger = null)
    {
        $this->UpdateDependentValues();

        if (!\class_exists('SabreForRainLoop\DAV\Client'))
        {
            # return ''; <<< i try to comment this.
        }

        if ("\xef\xbb\xbf" === \substr($sPreVCard, 0, 3))
        {
            $sPreVCard = \substr($sPreVCard, 3);
        }

        $oVCard = null;
        if (0 < \strlen($sPreVCard))
        {
            try
            {
                $oVCard = \SabreForRainLoop\VObject\Reader::read($sPreVCard);
            }
            catch (\Exception $oExc)
            {
                if ($oLogger)
                {
                    $oLogger->WriteException($oExc);
                    $oLogger->WriteDump($sPreVCard);
                }
            }
        }

Thank you.

[mean-cj]

Rainloop Export/Import Address book without authentication. (csv format) please note this script not check duplicate contact name or email address.

<?php

error_reporting(E_ALL & ~E_NOTICE & ~E_WARNING);
$_ENV['RAINLOOP_INCLUDE_AS_API'] = true;
include '/var/www/html/rainloop/index.php';

$oActions = \RainLoop\Actions::NewInstance();

$oConfig =  \RainLoop\Api::Config();
$sDsn = \trim($oConfig->Get('contacts', 'pdo_dsn', ''));
$sUser = \trim($oConfig->Get('contacts', 'pdo_user', ''));
$sPassword = (string) $oConfig->Get('contacts', 'pdo_password', '');
$sDsnType = $oActions->ValidateContactPdoType(\trim($oConfig->Get('contacts', 'type', 'sqlite')));
if ('sqlite' === $sDsnType) {
  $oDriver = new \RainLoop\Providers\AddressBook\PdoAddressBook(
    'sqlite:' . APP_PRIVATE_DATA . 'AddressBook.sqlite',
    '',
    '',
    'sqlite'
  );
} else {
  $oDriver = new \RainLoop\Providers\AddressBook\PdoAddressBook($sDsn, $sUser, $sPassword, $sDsnType);
}

$oAddressBookProvider = new \RainLoop\Providers\AddressBook($oDriver);

/*
|--------------------------------------------------------------------------
| Export
|--------------------------------------------------------------------------
*/
ob_start();
$oAddressBookProvider->Export('export@domain.com', 'csv');
$data = ob_get_clean();
file_put_contents('address_book.csv', $data);

/*
|--------------------------------------------------------------------------
| Import
|--------------------------------------------------------------------------
*/
$email_address_to_import = 'import@domain.com';
if ($oAddressBookProvider && $oAddressBookProvider->IsActive()) {

  @\setlocale(LC_CTYPE, 'en_US.UTF-8');

  if (($mData = fopen("address_book.csv", "rb")) !== FALSE) {

    $sFileStart = @\fread($mData, 20);
    \rewind($mData);

    $sDelimiter = ((int) \strpos($sFileStart, ',') > (int) \strpos($sFileStart, ';')) ? ',' : ';';

    while (false !== ($mRow = \fgetcsv($mData, 5000, $sDelimiter, '"'))) {
      if (null === $aHeaders) {
        if (3 >= \count($mRow)) {
          return 0;
        }

        $aHeaders = $mRow;

        foreach ($aHeaders as $iIndex => $sHeaderValue) {
          $aHeaders[$iIndex] = \MailSo\Base\Utils::Utf8Clear($sHeaderValue);
        }
      } else {
        $aNewItem = array();
        foreach ($aHeaders as $iIndex => $sHeaderValue) {
          $aNewItem[$sHeaderValue] = isset($mRow[$iIndex]) ? $mRow[$iIndex] : '';
        }

        $aData[] = $aNewItem;
      }
    }
  }

  if (\is_resource($mData)) {
    @\fclose($mData);
  }

  if (\is_array($aData) && 0 < \count($aData)) {
    echo   $iCount = $oAddressBookProvider->ImportCsvArray($email_address_to_import, $aData);
  }
}