--- /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
+@echo off
+:: ----------------------------------------------------------------------
+:: Copyright 2003 Peter Magnusson (kmpm@telia.com)
+:: ----------------------------------------------------------------------
+:: Author: Peter Magnusson (kmpm@telia.com)
+:: ----------------------------------------------------------------------
+::
+:: You must have PHP PEAR installed to successfully use this script.
+:: Please check that you have the environment variables
+:: PHP_PEAR_BIN_DIR and PHP_PEAR_PHP_BIN set to the correct paths.
+::
+
+:: Uncomment and modify the lines below to match your PHP installation
+:: Check environment variables
+:: if "%PHP_CLI_BIN%"=="" set PHP_PEAR_PHP_BIN=C:\php\cli\php.exe
+:: if "%PHP_PEAR_BIN_DIR%"=="" set PHP_PEAR_BIN_DIR=C:\php
+
+:: Check that the files and folders exist
+if not exist "%PHP_PEAR_BIN_DIR%" goto DIR_ERROR
+if not exist "%PHP_PEAR_PHP_BIN%" goto BIN_ERROR
+
+:: launch Horde pear_batch_install
+goto INSTALL
+
+:DIR_ERROR
+ echo PHP_PEAR_BIN_DIR is not set correctly.
+ echo The current value is:%PHP_PEAR_BIN_DIR%
+ goto END
+
+:BIN_ERROR
+ echo PHP_PEAR_PHP_BIN is not set correctly.
+ echo The current value is:%PHP_PEAR_PHP_BIN%
+ goto END
+
+:INSTALL
+ ::Save the current path so that we can modify it and restore it later
+ set OLD_PATH=%PATH%
+ ::Set the new path with PHP_PEAR_BIN_DIR included
+ set PATH=%PATH%;%PHP_PEAR_BIN_DIR%
+ echo on
+ @"%PHP_PEAR_PHP_BIN%" -C -d output_buffering=0 -d include_path="%PHP_PEAR_INSTALL_DIR%" -f "pear_batch_install"
+ @echo off
+ ::Restore the path to the previous
+ set PATH=%OLD_PATH%
+:END
+ ::Pause to display information
+ pause
--- /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
+ */
+
+if (!defined('PHPUnit_MAIN_METHOD')) {
+ define('PHPUnit_MAIN_METHOD', 'horde_test_runner::main');
+}
+
+require 'Horde/Autoloader.php';
+
+/**
+ * @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 main()
+ {
+ PHPUnit_TextUI_TestRunner::run(self::suite());
+ }
+
+ 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;
+ }
+
+}
+
+if (PHPUnit_MAIN_METHOD == 'horde_test_runner::main') {
+ horde_test_runner::main();
+}
+++ /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
-@echo off
-:: ----------------------------------------------------------------------
-:: Copyright 2003 Peter Magnusson (kmpm@telia.com)
-:: ----------------------------------------------------------------------
-:: Author: Peter Magnusson (kmpm@telia.com)
-:: ----------------------------------------------------------------------
-::
-:: You must have PHP PEAR installed to successfully use this script.
-:: Please check that you have the environment variables
-:: PHP_PEAR_BIN_DIR and PHP_PEAR_PHP_BIN set to the correct paths.
-::
-
-:: Uncomment and modify the lines below to match your PHP installation
-:: Check environment variables
-:: if "%PHP_CLI_BIN%"=="" set PHP_PEAR_PHP_BIN=C:\php\cli\php.exe
-:: if "%PHP_PEAR_BIN_DIR%"=="" set PHP_PEAR_BIN_DIR=C:\php
-
-:: Check that the files and folders exist
-if not exist "%PHP_PEAR_BIN_DIR%" goto DIR_ERROR
-if not exist "%PHP_PEAR_PHP_BIN%" goto BIN_ERROR
-
-:: launch Horde pear_batch_install
-goto INSTALL
-
-:DIR_ERROR
- echo PHP_PEAR_BIN_DIR is not set correctly.
- echo The current value is:%PHP_PEAR_BIN_DIR%
- goto END
-
-:BIN_ERROR
- echo PHP_PEAR_PHP_BIN is not set correctly.
- echo The current value is:%PHP_PEAR_PHP_BIN%
- goto END
-
-:INSTALL
- ::Save the current path so that we can modify it and restore it later
- set OLD_PATH=%PATH%
- ::Set the new path with PHP_PEAR_BIN_DIR included
- set PATH=%PATH%;%PHP_PEAR_BIN_DIR%
- echo on
- @"%PHP_PEAR_PHP_BIN%" -C -d output_buffering=0 -d include_path="%PHP_PEAR_INSTALL_DIR%" -f "pear_batch_install"
- @echo off
- ::Restore the path to the previous
- set PATH=%OLD_PATH%
-:END
- ::Pause to display information
- pause
+++ /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
- */
-
-if (!defined('PHPUnit_MAIN_METHOD')) {
- define('PHPUnit_MAIN_METHOD', 'horde_test_runner::main');
-}
-
-require 'Horde/Autoloader.php';
-
-/**
- * @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 main()
- {
- PHPUnit_TextUI_TestRunner::run(self::suite());
- }
-
- 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;
- }
-
-}
-
-if (PHPUnit_MAIN_METHOD == 'horde_test_runner::main') {
- horde_test_runner::main();
-}
projects / horde.git / commitdiff