--- /dev/null
+#!/usr/bin/env php
+<?php
+/**
+ * This script creates softlinks to the library files you retrieved from
+ * the CVS "framework" module. This script also works on a framework
+ * installation retrieved from git.
+ *
+ * It creates the same directory structure the packages would have if they
+ * were installed with "pear install package.xml".
+ * For creating this structure it uses the information given in the
+ * package.xml files inside each package directory.
+ *
+ * Copyright 2002 Wolfram Kriesing <wolfram@kriesing.de>
+ * Copyright 2003-2009 The Horde Project (http://www.horde.org/)
+ *
+ * See the enclosed file COPYING for license information (LGPL). If you
+ * did not receive this file, see http://www.fsf.org/copyleft/lgpl.html.
+ *
+ * @category Horde
+ * @package tools
+ * @author Wolfram Kriesing <wolfram@kriesing.de>
+ * @author Jan Schneider <jan@horde.org>
+ */
+
+// Default values for srcDir and destDir are empty.
+$srcDir = null;
+$destDir = null;
+
+// Default to copying if this is run on Windows.
+$copy = strncasecmp(PHP_OS, 'WIN', 3) ? false : true;
+
+// All packages by default.
+$pkg = null;
+
+for ($i = 1; $i < count($argv); $i++) {
+ switch ($argv[$i]) {
+ case '--copy':
+ $copy = true;
+ break;
+
+ case '--help':
+ print_usage();
+
+ case '--src':
+ if (isset($argv[$i + 1])) {
+ if (is_dir($argv[$i + 1])) {
+ $srcDir = $argv[$i + 1];
+ $i++;
+ } else {
+ exit($argv[$i + 1] . " is not a directory");
+ }
+ }
+ break;
+
+ case '--dest':
+ if (isset($argv[$i + 1])) {
+ if (is_dir($argv[$i + 1])) {
+ $destDir = $argv[$i + 1];
+ $i++;
+ } else {
+ exit($argv[$i + 1] . " is not a directory");
+ }
+ }
+ break;
+
+ case '--pkg':
+ $pkg = $argv[$i + 1];
+ if (!is_dir($pkg) || !file_exists($pkg . '/package.xml')) {
+ exit("$pkg is not a valid package directory.\n");
+ }
+ $pkg = preg_replace('|/+$|', '', $pkg);
+ $i++;
+ break;
+
+ default:
+ print_usage("Unrecognised option $argv[$i]");
+ }
+}
+
+// Try to auto-detect the source and dest dirs.
+$cwd = getcwd();
+if ($srcDir === null && is_dir($cwd . DIRECTORY_SEPARATOR . 'framework')) {
+ $srcDir = $cwd . DIRECTORY_SEPARATOR . 'framework';
+}
+if ($destDir === null && is_dir($cwd . DIRECTORY_SEPARATOR . 'lib')) {
+ $destDir = $cwd . DIRECTORY_SEPARATOR . 'lib';
+}
+
+if ($srcDir === null || $destDir === null) {
+ print_usage('Failed to auto-detect source and destination directories,');
+}
+
+// Make $srcDir an absolute path.
+if (($srcDir[0] != '/' && !preg_match('/[A-Za-z]:/', $srcDir)) &&
+ $cwd = getcwd()) {
+ $srcDir = $cwd . '/' . $srcDir;
+}
+$srcDir = rtrim($srcDir, '/');
+
+// Make $destDir an absolute path.
+if (($destDir[0] != '/' && !preg_match('/[A-Za-z]:/', $destDir)) &&
+ $cwd = getcwd()) {
+ $destDir = $cwd . '/' . $destDir;
+}
+$destDir = rtrim($destDir, '/');
+
+// Put $destDir into include_path.
+if (strpos(ini_get('include_path'), $destDir) === false) {
+ ini_set('include_path', $destDir . PATH_SEPARATOR . ini_get('include_path'));
+}
+
+// Do CLI checks and environment setup first.
+if (!@include_once 'Horde/Cli.php') {
+ if (!@include_once $srcDir . '/Cli/lib/Horde/Cli.php') {
+ if (!@include_once $cwd . DIRECTORY_SEPARATOR . 'framework/Cli/lib/Horde/Cli.php') {
+ print_usage('Horde_Cli library is not in the include_path or in the src directory.');
+ }
+ }
+}
+
+// Make sure no one runs this from the web.
+if (!Horde_Cli::runningFromCLI()) {
+ exit;
+}
+
+// Load the CLI environment - make sure there's no time limit, init
+// some variables, etc.
+Horde_Cli::init();
+
+if (!class_exists('SimpleXMLElement', false)) {
+ include_once 'Tree/Tree.php';
+ if (!class_exists('Tree')) {
+ print_usage('You need the PEAR "Tree" package installed');
+ }
+}
+
+// Tree throws some irrelevant reference; silence them.
+error_reporting(E_ALL & ~E_NOTICE);
+
+$linker = new Linker($copy);
+if ($pkg) {
+ $linker->process(getcwd() . DIRECTORY_SEPARATOR . $pkg, $destDir);
+} elseif ($handle = opendir($srcDir)) {
+ while ($file = readdir($handle)) {
+ if ($file != '.' &&
+ $file != '..' &&
+ $file != 'CVS' &&
+ is_dir($srcDir . '/' . $file)) {
+ $linker->process($srcDir . '/' . $file, $destDir);
+ }
+ }
+ closedir($handle);
+ }
+
+echo "\n";
+
+/**
+ */
+class Linker {
+
+ var $_srcDir;
+
+ /**
+ * The base directory for the complete package.
+ *
+ * @string
+ */
+ var $_baseDir;
+
+ /**
+ * The base installation directories of the current directory or file
+ * relative to $_baseDir. The current base directory is always at array
+ * position 0.
+ *
+ * @array
+ */
+ var $_baseInstallDir = array('');
+
+ var $_fileroles = array('php');
+
+ var $_role;
+
+ var $_copy;
+
+ var $_tree;
+
+ var $_contents;
+
+ function Linker($copy = false)
+ {
+ $this->_copy = $copy;
+ }
+
+ function process($srcDir, $destDir)
+ {
+ $this->_srcDir = $srcDir;
+ $packageFile = $this->_srcDir . '/package.xml';
+ $cli = &Horde_Cli::singleton();
+
+ if (!is_file($packageFile)) {
+ $cli->message('No package.xml in ' . $this->_srcDir, 'cli.warning');
+ return false;
+ }
+
+ $this->_tree = $this->getXmlTree($packageFile);
+
+ // Read package name.
+ $packageName = trim($this->_tree->getElementContent('/package/name', 'cdata'));
+ $cli->writeln("Processing package $packageName.");
+
+ // First, look for '/package/phprelease/filelist', which
+ // overrides '/package/contents'.
+ if (($filelist = $this->_tree->getElementByPath('/package/phprelease/filelist'))) {
+ // Do this better, make the tree class work case insensitive.
+ $this->_baseDir = preg_replace('|/+|', '/', $destDir);
+ if (!is_dir($this->_baseDir)) {
+ require_once 'System.php';
+ System::mkdir('-p ' . $this->_baseDir);
+ }
+
+ $this->_handleFilelistTag($filelist);
+
+ // Look for contents in '/package/contents'.
+ } elseif (($this->_contents = $this->_tree->getElementByPath('/package/contents'))) {
+ // Do this better, make the tree class work case insensitive.
+ $this->_baseDir = preg_replace('|/+|', '/', $destDir);
+ if (!is_dir($this->_baseDir)) {
+ require_once 'System.php';
+ System::mkdir('-p ' . $this->_baseDir);
+ }
+
+ $this->_handleContentsTag($this->_contents);
+
+ // Didn't find either.
+ } else {
+ $cli->message('No filelist or contents tags found inside: ' . $packageFile, 'cli.warning');
+ }
+
+ unset($this->_tree);
+ unset($this->_contents);
+ }
+
+ function _handleFilelistTag($element, $curDir = '')
+ {
+ if (isset($element['children'])) {
+ foreach ($element['children'] as $child) {
+ switch ($child['name']) {
+ case 'install':
+ // <install name="lib/Horde/Log/Exception.php" as="Horde/Log.php" />
+ $this->_handleInstallTag($child, $curDir);
+ break;
+
+ default:
+ $cli = &Horde_Cli::singleton();
+ $cli->message('No handler for tag: ' . $child['name'], 'cli-warning');
+ break;
+ }
+ }
+ }
+ }
+
+ function _handleContentsTag($element, $curDir = '')
+ {
+ if (isset($element['children'])) {
+ foreach ($element['children'] as $child) {
+ switch ($child['name']) {
+ case 'file':
+ $this->_handleFileTag($child, $curDir);
+ break;
+
+ case 'dir':
+ $this->_handleDirTag($child, $curDir);
+ break;
+
+ default:
+ $cli = &Horde_Cli::singleton();
+ $cli->message('No handler for tag: ' . $child['name'], 'cli-warning');
+ break;
+ }
+ }
+ }
+ }
+
+ function _handleDirTag($element, $curDir)
+ {
+ if ($element['attributes']['name'] != '/') {
+ if (substr($curDir, -1) != DIRECTORY_SEPARATOR) {
+ $curDir .= DIRECTORY_SEPARATOR;
+ }
+ $curDir .= $element['attributes']['name'];
+ }
+
+ if (!empty($element['attributes']['baseinstalldir'])) {
+ array_unshift($this->_baseInstallDir, $element['attributes']['baseinstalldir']);
+ }
+ $this->_handleContentsTag($element, $curDir);
+ if (!empty($element['attributes']['baseinstalldir'])) {
+ array_shift($this->_baseInstallDir);
+ }
+ }
+
+ function _handleFileTag($element, $curDir)
+ {
+ if (!empty($element['attributes']['role'])) {
+ $this->_role = $element['attributes']['role'];
+ }
+
+ if (!in_array($this->_role, $this->_fileroles)) {
+ return;
+ }
+
+ if (!empty($element['attributes']['name'])) {
+ $filename = $element['attributes']['name'];
+ } else {
+ $filename = $element['cdata'];
+ }
+ $filename = trim($filename);
+
+ if (!empty($element['attributes']['baseinstalldir'])) {
+ $dir = $element['attributes']['baseinstalldir'];
+ } else {
+ $dir = $this->_baseInstallDir[0];
+ }
+ if (substr($dir, -1) == '/') {
+ $dir = substr($dir, 0, -1);
+ }
+ $dir .= $curDir;
+ if (substr($dir, -1) == '/') {
+ $dir = substr($dir, 0, -1);
+ }
+
+ if (!is_dir($this->_baseDir . $dir)) {
+ require_once 'System.php';
+ System::mkdir('-p ' . $this->_baseDir . $dir);
+ }
+
+ if ($this->_copy) {
+ $cmd = "cp {$this->_srcDir}$curDir/$filename {$this->_baseDir}$dir/$filename";
+ } else {
+ $parent = $this->_findCommonParent($this->_srcDir . $curDir,
+ $this->_baseDir . $dir);
+ $dirs = substr_count(substr($this->_baseDir . $dir,
+ strlen($parent)),
+ '/');
+ $src = str_repeat('../', $dirs) .
+ substr($this->_srcDir . $curDir, strlen($parent) + 1);
+ $cmd = "ln -sf $src/$filename {$this->_baseDir}$dir/$filename";
+ }
+
+ exec($cmd);
+ }
+
+ function _handleInstallTag($element, $curDir)
+ {
+ if (empty($element['attributes']['name'])) {
+ // Warning?
+ return;
+ }
+ $src = trim($element['attributes']['name']);
+ $srcDir = dirname($src);
+
+ if (empty($element['attributes']['as'])) {
+ // Warning?
+ return;
+ }
+ $as = trim($element['attributes']['as']);
+ $asDir = dirname($as);
+
+ $role = $this->_findRole($src);
+ if (!in_array($role, $this->_fileroles)) {
+ return;
+ }
+
+ if (!is_dir($this->_baseDir . '/' . $asDir)) {
+ require_once 'System.php';
+ System::mkdir('-p ' . $this->_baseDir . '/' . $asDir);
+ }
+
+ if ($this->_copy) {
+ $cmd = "cp {$this->_srcDir}$curDir/$src {$this->_baseDir}/$as";
+ } else {
+ $parent = $this->_findCommonParent($this->_srcDir . $curDir,
+ $this->_baseDir . $asDir);
+ $dirs = substr_count(substr($this->_baseDir . $srcDir, strlen($parent)),
+ '/');
+ $src = str_repeat('../', $dirs) . substr($this->_srcDir . $curDir, strlen($parent) + 1) . '/' . $src;
+ $cmd = "ln -sf $src {$this->_baseDir}/$as";
+ }
+
+ exec($cmd);
+ }
+
+ function _findRole($filename)
+ {
+ if (!$this->_contents) {
+ $this->_contents = $this->_tree->getElementByPath('/package/contents');
+ if (!$this->_contents) {
+ return false;
+ }
+ }
+
+ if (!isset($this->_contents['children'])) {
+ return false;
+ }
+
+ $pieces = explode('/', $filename);
+ if (!count($pieces)) {
+ return false;
+ }
+
+ $element = $this->_contents;
+ while (true) {
+ $continue = false;
+ foreach ($element['children'] as $child) {
+ if (!in_array($child['name'], array('file', 'dir'))) {
+ continue;
+ }
+
+ if ($child['attributes']['name'] == '/') {
+ $continue = true;
+ break;
+ }
+
+ if ($child['attributes']['name'] == $pieces[0]) {
+ if (count($pieces) == 1) {
+ if (isset($child['attributes']['role'])) {
+ return $child['attributes']['role'];
+ } else {
+ return false;
+ }
+ }
+
+ array_shift($pieces);
+ if (!count($pieces)) {
+ return false;
+ }
+
+ $continue = true;
+ break;
+ }
+ }
+
+ if (!$continue) {
+ return false;
+ }
+
+ if (!isset($child['children'])) {
+ return false;
+ }
+ $element = $child;
+ }
+
+ return false;
+ }
+
+ function _findCommonParent($a, $b)
+ {
+ for ($common = '', $lastpos = 0, $pos = strpos($a, '/', 1);
+ $pos !== false && strpos($b, substr($a, 0, $pos)) === 0;
+ $pos = strpos($a, '/', $pos + 1)) {
+ $common .= substr($a, $lastpos, $pos - $lastpos);
+ $lastpos = $pos;
+ }
+ return $common;
+ }
+
+ function getXmlTree($packageFile)
+ {
+ if (class_exists('SimpleXMLElement', false)) {
+ return new Linker_Xml_Tree($packageFile);
+ } else {
+ $tree = Tree::setupMemory('XML', $packageFile);
+ $tree->setup();
+ return $tree;
+ }
+ }
+
+}
+
+class Linker_Xml_Tree
+{
+ var $_sxml;
+
+ function __construct($packageFile)
+ {
+ $this->_sxml = simplexml_load_file($packageFile);
+ }
+
+ function getElementContent($path, $field)
+ {
+ $elt = $this->getElementByPath($path);
+ return $elt[$field];
+ }
+
+ function getElementByPath($path)
+ {
+ $path = str_replace('/package', '', $path);
+
+ $node = $this->_sxml;
+ $path = preg_split('|/|', $path, -1, PREG_SPLIT_NO_EMPTY);
+ while ($path) {
+ $ptr = array_shift($path);
+ if (!$node->$ptr) return null;
+ $node = $node->$ptr;
+ }
+
+ return $this->_asArray($node);
+ }
+
+ function _asArray($sxml)
+ {
+ $element = array();
+ $element['name'] = $sxml->getName();
+ $element['cdata'] = (string)$sxml;
+ $element['attributes'] = array();
+ foreach ($sxml->attributes() as $k => $v) {
+ $element['attributes'][$k] = (string)$v;
+ }
+ $element['children'] = array();
+ foreach ($sxml->children() as $node) {
+ $element['children'][] = $this->_asArray($node);
+ }
+
+ return $element;
+ }
+
+}
+
+function print_usage($message = '')
+{
+
+ if (!empty($message)) {
+ echo "install_framework: $message\n\n";
+ }
+
+ echo <<<USAGE
+Usage: install_framework [OPTION]
+
+Possible options:
+ --copy Do not create symbolic links, but actually copy the libraries
+ (this is done automatically on Windows).
+ --src DIR The source directory for the framework libraries.
+ --dest DIR The destination directory for the framework libraries.
+ --pkg DIR Path to a single package to install.
+
+USAGE;
+ exit;
+}
--- /dev/null
+#!/usr/bin/env php
+<?php
+/**
+ * This script iterates each directory and forces an install from the
+ * package.xml file for each package.
+ *
+ * @category Horde
+ * @package tools
+ */
+
+/* Don't die if time limit exceeded. */
+set_time_limit(0);
+
+/* Get any arguments. */
+require_once 'Console/Getopt.php';
+$args = Console_Getopt::readPHPArgv();
+$options = Console_Getopt::getopt($args, 'b:d:c:p:', array('base-dir=', 'install-dir=', 'config=', 'packages='));
+if (is_a($options, 'PEAR_Error')) {
+ echo <<<USAGE
+Usage: pear_batch_install [[-b|--base-dir] DIRECTORY]
+ [[-d|--install-dir] DIRECTORY]
+ [[-c|--config] CONFIGFILE]
+ [[-p|--packages] PACKAGE1,PACKAGE2[,...]]
+
+USAGE;
+ exit;
+}
+
+/* Set these options to empty by default. */
+$config_file = $install_dir = '';
+
+$dir = dirname(dirname(__FILE__));
+foreach ($options[0] as $option) {
+ switch ($option[0]) {
+ case 'b':
+ case '--base-dir':
+ $dir = $option[1];
+ break;
+
+ case 'd':
+ case '--install-dir':
+ /* Alternate install directory requested. */
+ $install_dir = ' -d php_dir=' . $option[1] .
+ ' -d test_dir=' . $option[1] . '/tests' .
+ ' -d doc_dir=' . $option[1] . '/doc' .
+ ' -d data_dir=' . $option[1] . '/data' .
+ ' -d bin_dir=' . $option[1] . '/bin';
+ break;
+ case 'c':
+ case '--config':
+ /* Alternate config file requested. */
+ $config_file = ' -c ' . $option[1];
+ break;
+ case 'p':
+ case '--packages':
+ /* Only these specific packages will be installed. */
+ $packages = explode(',', $option[1]);
+ }
+}
+
+/* Check for the Horde channel. */
+$channel_check = 'pear' . $config_file . ' list-channels';
+$channels = shell_exec($channel_check);
+if (strpos($channels, 'pear.horde.org') == false) {
+ $channel_register = 'pear' . $config_file . ' channel-discover pear.horde.org';
+ system($channel_register);
+
+ /* Check again. */
+ $channels = shell_exec($channel_check);
+ if (strpos($channels, 'pear.horde.org') == false) {
+ echo "\nFailed to register pear.horde.org; you must fix this before continuing.\n";
+ exit(1);
+ }
+
+ echo "\n\n";
+}
+
+/* Overwrite old files, ignore dependancies (for ease of ordering),
+ * upgrade if already installed, etc. */
+$pear = 'pear' . $config_file . $install_dir . ' install --force --nodeps';
+
+if (!empty($packages)) {
+ /* Installing only specific packages. */
+ foreach ($packages as $entry) {
+ $package = $dir . '/' . $entry . '/' . 'package.xml';
+ if (file_exists($package)) {
+ echo "Installing $entry:\n";
+ system("$pear \"$package\"");
+ echo "\n\n";
+ }
+ }
+} else {
+ /* Installing everything. */
+ $dh = opendir($dir);
+ while (($entry = readdir($dh)) !== false) {
+ if ($entry == '.' || $entry == '..' || !is_dir($dir . '/' . $entry)) {
+ continue;
+ }
+
+ $package = $dir . '/' . $entry . '/' . 'package.xml';
+ if (file_exists($package)) {
+ echo "Installing $entry:\n";
+ system("$pear \"$package\"");
+ echo "\n\n";
+ }
+ }
+ closedir($dh);
+}
--- /dev/null
+#!/usr/bin/env php
+<?php
+/**
+ * Horde Test Runner
+ *
+ * @category Horde
+ * @package tools
+ * @subpackage UnitTests
+ * @author Chuck Hagenbuch <chuck@horde.org>
+ * @license http://opensource.org/licenses/bsd-license.php BSD
+ */
+
+require_once 'PHPUnit/Util/Filter.php';
+require_once 'PHPUnit/TextUI/Command.php';
+require 'Horde/Autoloader.php';
+Horde_Autoloader::addClassPath(dirname(dirname(dirname(__FILE__))) . '/lib');
+
+PHPUnit_Util_Filter::addFileToFilter(__FILE__, 'PHPUNIT');
+
+$_SERVER['argv'][1] = 'horde_test_runner';
+$_SERVER['argv'][2] = __FILE__;
+define('PHPUnit_MAIN_METHOD', 'PHPUnit_TextUI_Command::main');
+PHPUnit_TextUI_Command::main();
+
+/**
+ * @category Horde
+ * @package tools
+ * @subpackage UnitTests
+ * @author Chuck Hagenbuch <chuck@horde.org>
+ * @license http://opensource.org/licenses/lgpl-license.php
+ */
+class horde_test_runner
+{
+ public static function suite()
+ {
+ $suite = new PHPUnit_Framework_TestSuite('Horde Test Runner');
+
+ $basedir = dirname(dirname(__FILE__));
+ $baseregexp = preg_quote($basedir . DIRECTORY_SEPARATOR, '/');
+
+ // Find all AllTests.php files.
+ foreach (new RecursiveIteratorIterator(new RecursiveDirectoryIterator($basedir)) as $file) {
+ if ($file->isFile() && $file->getFilename() == 'AllTests.php' && $file->getPathname() != __FILE__) {
+ $pathname = $file->getPathname();
+
+ // Include the test suite.
+ require $pathname;
+
+ // Generate possible classnames (namespaced and
+ // non-namespaced, with and without Horde_, _tests_,
+ // and the full tests/Horde/... hierarchy).
+ $class = str_replace(DIRECTORY_SEPARATOR, '_', preg_replace("/^$baseregexp(.*)\.php/", '\\1', $pathname));
+ $class_notests = preg_replace('/_tests?/', '', $class);
+ $class_horde = 'Horde_' . $class;
+ $class_horde_notests = 'Horde_' . $class_notests;
+ $class_pear2 = preg_replace('/' . substr($class, 0, strpos($class, '_')) . '_tests?_/', '', $class);
+ $class_pear2_notests = preg_replace('/\w+_tests?_/', '', $class);
+
+ $classnames = array($class, $class_notests, $class_horde, $class_horde_notests, $class_pear2, $class_pear2_notests);
+ foreach ($classnames as $classname) {
+ $classnames[] = str_replace('_', '::', $classname);
+ }
+
+ // Look for something with a ::suite() method.
+ foreach ($classnames as $classname) {
+ // We've already included the AllTests.php file,
+ // so explicitly disable autoloading in the
+ // class_exists check. Otherwise we can get all
+ // kinds of double-define errors.
+ if (class_exists($classname, false)) {
+ // Once we've found a usable test suite, add it and move on.
+ $suite->addTestSuite(call_user_func(array($classname, 'suite')));
+ break;
+ }
+ }
+ }
+ }
+
+ return $suite;
+ }
+}
projects / horde.git / commitdiff