abook_carddav_squirrelmail/quickstart.php

186 lines
6.7 KiB
PHP
Raw Permalink Normal View History

<?php
///////////////////////////////////////
// CONFIGURATION OF ACCOUNT DATA //
///////////////////////////////////////
// DO NOT SERVE THIS SCRIPT VIA WEBSERVER
require 'quickconfig.php';
///////////////////////////////////////
// END CONFIGURATION OF ACCOUNT DATA //
///////////////////////////////////////
require 'vendor/autoload.php';
use MStilkerich\CardDavClient\{Account, AddressbookCollection, Config};
use MStilkerich\CardDavClient\Services\{Discovery, Sync, SyncHandler};
use Psr\Log\{AbstractLogger, NullLogger, LogLevel};
use Sabre\VObject\Component\VCard;
// This is just a sample logger for demo purposes. You can use any PSR-3 compliant logger,
// there are many implementations available (e.g. monolog)
class StdoutLogger extends AbstractLogger
{
public function log($level, $message, array $context = array())
{
if ($level !== LogLevel::DEBUG) {
$ctx = empty($context) ? "" : json_encode($context);
echo $message . $ctx . "\n";
}
}
}
class EchoSyncHandler implements SyncHandler
{
public function addressObjectChanged(string $uri, string $etag, ?VCard $card): void
{
if (isset($card)) {
$fn = $card->FN ?? "<no name>";
echo " +++ Changed or new card $uri (ETag $etag): $fn\n";
} else {
echo " +++ Changed or new card $uri (ETag $etag): Error: failed to retrieve/parse card's address data\n";
}
}
public function addressObjectDeleted(string $uri): void
{
echo " --- Deleted Card $uri\n";
}
public function getExistingVCardETags(): array
{
return [];
}
public function finalizeSync(): void
{
}
}
$log = new StdoutLogger();
$httplog = new NullLogger(); // parameter could simply be omitted for the same effect
// Initialize the library. Currently, only objects for logging need to be provided, which are two optional logger
// objects implementing the PSR-3 logger interface. The first object logs the log messages of the library itself, the
// second can be used to log the HTTP traffic. If no logger is given, no log output will be created. For that, simply
// call Config::init() and the library will internally use NullLogger objects.
Config::init($log, $httplog);
// Now create an Account object that contains credentials and discovery information
$account = new Account(DISCOVERY_URI, USERNAME, PASSWORD);
// Discover the addressbooks for that account
try {
$log->notice("Attempting discovery of addressbooks");
$discover = new Discovery();
$abooks = $discover->discoverAddressbooks($account);
} catch (\Exception $e) {
$log->error("!!! Error during addressbook discovery: " . $e->getMessage());
exit(1);
}
$log->notice(">>> " . count($abooks) . " addressbooks discovered");
foreach ($abooks as $abook) {
$log->info(">>> - $abook");
}
if (count($abooks) <= 0) {
$log->warning("Cannot proceed because no addressbooks were found - exiting");
exit(0);
}
//////////////////////////////////////////////////////////
// THE FOLLOWING SHOWS HOW TO PERFORM A SYNCHRONIZATION //
//////////////////////////////////////////////////////////
$abook = $abooks[0];
$synchandler = new EchoSyncHandler();
$syncmgr = new Sync();
// initial sync - we don't have a sync-token yet
$log->notice("Performing initial sync");
$lastSyncToken = $syncmgr->synchronize($abook, $synchandler, [ "FN" ], "");
$log->notice(">>> Initial Sync completed, new sync token is $lastSyncToken");
// every subsequent sync would be passed the sync-token returned by the previous sync
// there most certainly won't be any changes to the preceding one at this point and we
// can expect the same sync-token be returned again
$log->notice("Performing followup sync");
$lastSyncToken = $syncmgr->synchronize($abook, $synchandler, [ "FN" ], $lastSyncToken);
$log->notice(">>> Re-Sync completed, new sync token is $lastSyncToken");
//////////////////////////////////////////////////////////////
// THE FOLLOWING SHOWS HOW TO PERFORM CHANGES ON THE SERVER //
//////////////////////////////////////////////////////////////
// First, we want to insert a new card, so we create a fresh one
// See https://sabre.io/vobject/vcard/ on how to work with Sabre VCards
// CardDAV VCards require a UID property, which the carddavclient library will
// generate and insert automatically upon storing a new card lacking this property
try {
$vcard = new VCard([
'FN' => 'John Doe',
'N' => ['Doe', 'John', '', '', ''],
]);
$log->notice("Attempting to create a new card on the server");
[ 'uri' => $cardUri, 'etag' => $cardETag ] = $abook->createCard($vcard);
$log->notice(">>> New card created at $cardUri with ETag $cardETag");
// now a sync should return that card as well - lets see!
$log->notice("Performing followup sync");
$lastSyncToken = $syncmgr->synchronize($abook, $synchandler, [ "FN" ], $lastSyncToken);
$log->notice(">>> Re-Sync completed, new sync token is $lastSyncToken");
// add an EMAIL address to the card and update the card on the server
$vcard->add(
'EMAIL',
'johndoe@example.org',
[
'type' => ['home'],
'pref' => 1,
]
);
// we pass the ETag of our local copy of the card to updateCard. This
// will make the update operation fail if the card has changed on the
// server since we fetched our local copy
$log->notice("Attempting to update the previously created card at $cardUri");
$cardETag = $abook->updateCard($cardUri, $vcard, $cardETag);
$log->notice(">>> Card updated, new ETag: $cardETag");
// again, a sync should report that the card was updated
$log->notice("Performing followup sync");
$lastSyncToken = $syncmgr->synchronize($abook, $synchandler, [ "FN" ], $lastSyncToken);
$log->notice(">>> Re-Sync completed, new sync token is $lastSyncToken");
// finally, delete the card
$log->notice("Deleting card at $cardUri");
$abook->deleteCard($cardUri);
// now, the sync should report the card was deleted
$log->notice("Performing followup sync");
$lastSyncToken = $syncmgr->synchronize($abook, $synchandler, [ "FN" ], $lastSyncToken);
$log->notice(">>> Re-Sync completed, new sync token is $lastSyncToken");
$log->notice("All done, good bye");
} catch (\Exception $e) {
$log->error("Error while making changes to the addressbook: " . $e->getMessage());
$log->error("Manual cleanup (deletion of the John Doe card) may be needed");
// do one final attempt to delete the card
try {
if (isset($cardUri)) {
$abook->deleteCard($cardUri);
}
} catch (\Exception $e) {
}
exit(1);
}
// vim: ts=4:sw=4:expandtab:fenc=utf8:ff=unix:tw=120