/**
* Extract configuration from system + user configuration files
*
* Configuration is stored in XML format, in two locations.
*
* The system configuration contains all of the important directory
* configuration variables like data_dir, and the location of php.ini and
* the php executable php.exe or php. This configuration is tightly bound
* to the repository, and cannot be moved. As such, php_dir is auto-defined
* as dirname(/path/to/pear/.config), or /path/to/pear.
*
* Only 1 user configuration file is allowed, and contains user-specific
* settings, including the locations where to download package releases
* and where to cache files downloaded from the internet. If false is passed
* in, \PEAR2\Pyrus\Config will attempt to guess at the config file location as
* documented in the class docblock {@link \PEAR2\Pyrus\Config}.
* @param string $pearDirectory
* @param string|false $userfile
*/
protected function loadConfigFile($pearDirectory, $snapshot = null)
{
if (!file_exists($pearDirectory . DIRECTORY_SEPARATOR . '.configsnapshots')) {
// no configurations - this may be an extracted-from-disk install.
// in this case, we use the defaults, as this is intended
return;
}
$snapshotdir = $pearDirectory . DIRECTORY_SEPARATOR . '.configsnapshots';
$snapshotfile = $snapshotdir . DIRECTORY_SEPARATOR . $snapshot;
if (!file_exists($snapshotfile)) {
if (preg_match('/^\\d{4}\\-\\d{2}\\-\\d{2} \\d{2}[-:]\\d{2}[-:]\\d{2}$/', $snapshot)) {
// passed a date, locate a matching snapshot
if (!strpos($snapshot, ':')) {
// change YYYY-MM-DD HH-MM-SS to YYYY-MM-DD HH:MM:SS
$snapshot = explode(' ', $snapshot);
$snapshot[1] = str_replace('-', ':', $snapshot[1]);
$snapshot = implode(' ', $snapshot);
}
$us = new \DateTime($snapshot);
$dir = new \RegexIterator(new \RecursiveDirectoryIterator($snapshotdir), '/configsnapshot\\-\\d{4}\\-\\d{2}\\-\\d{2} \\d{2}\\-\\d{2}\\-\\d{2}.xml/', \RegexIterator::MATCH, \RegexIterator::USE_KEY);
foreach ($dir as $match) {
$matches[] = $match;
}
usort($matches, array($this, 'datediff'));
unset($match);
$found = false;
foreach ($matches as $match) {
$match = substr($match->getFileName(), strlen('configsnapshot-'));
$match = str_replace('.xml', '', $match);
$match = explode(' ', $match);
$match[1] = str_replace('-', ':', $match[1]);
$match = implode(' ', $match);
$testdate = new \DateTime($match);
if ($testdate > $us) {
continue;
}
if ($testdate == $us) {
// found a snapshot match
$found = true;
break;
}
if ($us > $testdate) {
// we fall between these two snapshots, so use this one
$found = true;
break;
}
}
if (!$found) {
// no config snapshots
return parent::loadConfigFile($pearDirectory);
}
$snapshotfile = $snapshotdir . DIRECTORY_SEPARATOR . 'configsnapshot-' . str_replace(':', '-', $match) . '.xml';
}
}
\PEAR2\Pyrus\Logger::log(5, 'Loading configuration snapshot ' . $snapshotfile . ' for ' . $pearDirectory);
try {
$this->helperLoadConfigFile($pearDirectory, $snapshotfile, 'snapshot');
} catch (\Exception $e) {
// no config snapshots found, so simply load the existing config
return parent::loadConfigFile($pearDirectory);
}
}
