+++ /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'][] = 'horde_test_runner';
-$_SERVER['argv'][] = __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