#!/usr/bin/env php
<?php

echo "SabreDAV migrate script for version 3.0\n";

if ($argc<2) {

    echo <<<HELLO

This script help you migrate from a pre-3.0 database to 3.0 and later

Changes:
  * The propertystorage table has changed to allow storage of complex
    properties.
  * the vcardurl field in the principals table is no more. This was moved to
    the propertystorage table.

Keep in mind that ALTER TABLE commands will be executed. If you have a large
dataset this may mean that this process takes a while.

Lastly: Make a back-up first. This script has been tested, but the amount of
potential variants are extremely high, so it's impossible to deal with every
possible situation.

In the worst case, you will lose all your data. This is not an overstatement.

Usage:

php {$argv[0]} [pdo-dsn] [username] [password]

For example:

php {$argv[0]} "mysql:host=localhost;dbname=sabredav" au_adav_ root password
php {$argv[0]} sqlite:data/sabredav.db

HELLO;

    exit();

}

// There's a bunch of places where the autoloader could be, so we'll try all of
// them.
$paths = [
    __DIR__ . '/../vendor/autoload.php',
    __DIR__ . '/../../../autoload.php',
];

foreach($paths as $path) {
    if (file_exists($path)) {
        include $path;
        break;
    }
}

$dsn = $argv[1];
$prefix = isset($argv[2]) ? $argv[2] : '';
$user = isset($argv[3])?$argv[3]:null;
$pass = isset($argv[4])?$argv[4]:null;

echo "Connecting to database: " . $dsn . "\n";

$pdo = new PDO($dsn, $user, $pass);
$pdo->setAttribute(PDO::ATTR_ERRMODE, PDO::ERRMODE_EXCEPTION);
$pdo->setAttribute(PDO::ATTR_DEFAULT_FETCH_MODE, PDO::FETCH_ASSOC);

$driver = $pdo->getAttribute(PDO::ATTR_DRIVER_NAME);

switch($driver) {

    case 'mysql' :
        echo "Detected MySQL.\n";
        break;
    case 'sqlite' :
        echo "Detected SQLite.\n";
        break;
    default :
        echo "Error: unsupported driver: " . $driver . "\n";
        die(-1);
}

echo "Upgrading 'propertystorage'\n";
$addValueType = false;
try {
    $result = $pdo->query('SELECT * FROM ' . $prefix . 'propertystorage LIMIT 1');
    $row = $result->fetch(\PDO::FETCH_ASSOC);

    if (!$row) {
        echo "No data in table. Going to re-create the table.\n";
        $random = mt_rand(1000,9999);
        echo "Renaming propertystorage -> propertystorage_old$random and creating new table.\n";

        switch($driver) {

            case 'mysql' :
                $pdo->exec('RENAME TABLE ' . $prefix . 'propertystorage TO ' . $prefix . 'propertystorage_old' . $random);
                $pdo->exec('
    CREATE TABLE ' . $prefix . 'propertystorage (
        id INT UNSIGNED NOT NULL PRIMARY KEY AUTO_INCREMENT,
        path VARBINARY(1024) NOT NULL,
        name VARBINARY(100) NOT NULL,
        valuetype INT UNSIGNED,
        value MEDIUMBLOB
    );
                ');
                $pdo->exec('CREATE UNIQUE INDEX path_property_' . $random . '  ON ' . $prefix . 'propertystorage (path(600), name(100));');
                break;
            case 'sqlite' :
                $pdo->exec('ALTER TABLE ' . $prefix . 'propertystorage RENAME TO propertystorage_old' . $random);
                $pdo->exec('
CREATE TABLE ' . $prefix . 'propertystorage (
    id integer primary key asc,
    path text,
    name text,
    valuetype integer,
    value blob
);');

                $pdo->exec('CREATE UNIQUE INDEX path_property_' . $random . ' ON ' . $prefix . 'propertystorage (path, name);');
                break;

        }
    } elseif (array_key_exists('valuetype', $row)) {
        echo "valuetype field exists. Assuming that this part of the migration has\n";
        echo "Already been completed.\n";
    } else {
        echo "2.1 schema detected. Going to perform upgrade.\n";
        $addValueType = true;
    }

} catch (Exception $e) {
    echo "Could not find a propertystorage table. Skipping this part of the\n";
    echo "upgrade.\n";
    echo $e->getMessage(), "\n";
}

if ($addValueType) {

    switch($driver) {
        case 'mysql' :
            $pdo->exec('ALTER TABLE ' . $prefix . 'propertystorage ADD valuetype INT UNSIGNED');
            break;
        case 'sqlite' :
            $pdo->exec('ALTER TABLE ' . $prefix . 'propertystorage ADD valuetype INT');

            break;
    }

    $pdo->exec('UPDATE ' . $prefix . 'propertystorage SET valuetype = 1 WHERE valuetype IS NULL ');

}

echo "Migrating vcardurl\n";

$result = $pdo->query('SELECT id, uri, vcardurl FROM ' . $prefix . 'principals WHERE vcardurl IS NOT NULL');
$stmt1 = $pdo->prepare('INSERT INTO ' . $prefix . 'propertystorage (path, name, valuetype, value) VALUES (?, ?, 3, ?)');

while($row = $result->fetch(\PDO::FETCH_ASSOC)) {

    // Inserting the new record
    $stmt1->execute([
        'addressbooks/' . basename($row['uri']),
        '{http://calendarserver.org/ns/}me-card',
        serialize(new Sabre\DAV\Xml\Property\Href($row['vcardurl']))
    ]);

    echo serialize(new Sabre\DAV\Xml\Property\Href($row['vcardurl']));

}

echo "Done.\n";
echo "Upgrade to 3.0 schema completed.\n";
