WebSVN – Applications.gtt – Diff – /trunk/bibliotheque/pear/PEAR/Command/Config.php

 <?php
 /**
  * PEAR_Command_Config (config-show, config-get, config-set, config-help, config-create commands)
+ *
  * PHP versions 4 and 5
+ *
- * LICENSE: This source file is subject to version 3.0 of the PHP license
- * that is available through the world-wide-web at the following URI:
- * http://www.php.net/license/3_0.txt.  If you did not receive a copy of
- * the PHP License and are unable to obtain it through the web, please
- * send a note to license@php.net so we can mail you a copy immediately.
- *
  * @category   pear
  * @package    PEAR
  * @author     Stig Bakken <ssb@php.net>
  * @author     Greg Beaver <cellog@php.net>
- * @copyright  1997-2006 The PHP Group
+ * @copyright  1997-2009 The Authors
- * @license    http://www.php.net/license/3_0.txt  PHP License 3.0
+ * @license    http://opensource.org/licenses/bsd-license.php New BSD License
- * @version    CVS: $Id: Config.php,v 1.52 2006/03/05 21:32:47 cellog Exp $
  * @link       http://pear.php.net/package/PEAR
  * @since      File available since Release 0.1
  */
 /**
  * base class
  */
 require_once 'PEAR/Command/Common.php';
 /**
  * PEAR commands for managing configuration data.
+ *
  * @category   pear
  * @package    PEAR
  * @author     Stig Bakken <ssb@php.net>
  * @author     Greg Beaver <cellog@php.net>
- * @copyright  1997-2006 The PHP Group
+ * @copyright  1997-2009 The Authors
- * @license    http://www.php.net/license/3_0.txt  PHP License 3.0
+ * @license    http://opensource.org/licenses/bsd-license.php New BSD License
- * @version    Release: 1.5.1
+ * @version    Release: 1.10.1
  * @link       http://pear.php.net/package/PEAR
  * @since      Class available since Release 0.1
  */
 class PEAR_Command_Config extends PEAR_Command_Common
+{
-    // {{{ properties
     var $commands = array(
         'config-show' => array(
             'summary' => 'Show All Settings',
             'function' => 'doConfigShow',
             'shortcut' => 'csh',
             'options' => array(
                 'channel' => array(
                     'shortopt' => 'c',
                     'doc' => 'show configuration variables for another channel',
                     'arg' => 'CHAN',
                     ),
 ),
             'doc' => '[layer]
 Displays all configuration values.  An optional argument
 may be used to tell which configuration layer to display.  Valid
 configuration layers are "user", "system" and "default". To display
 configurations for different channels, set the default_channel
 configuration variable and run config-show again.
 ',
             ),
         'config-get' => array(
             'summary' => 'Show One Setting',
             'function' => 'doConfigGet',
             'shortcut' => 'cg',
             'options' => array(
                 'channel' => array(
                     'shortopt' => 'c',
                     'doc' => 'show configuration variables for another channel',
                     'arg' => 'CHAN',
                     ),
 ),
             'doc' => '<parameter> [layer]
 Displays the value of one configuration parameter.  The
 first argument is the name of the parameter, an optional second argument
 may be used to tell which configuration layer to look in.  Valid configuration
 layers are "user", "system" and "default".  If no layer is specified, a value
 will be picked from the first layer that defines the parameter, in the order
 just specified.  The configuration value will be retrieved for the channel
 specified by the default_channel configuration variable.
 ',
             ),
         'config-set' => array(
             'summary' => 'Change Setting',
             'function' => 'doConfigSet',
             'shortcut' => 'cs',
             'options' => array(
                 'channel' => array(
                     'shortopt' => 'c',
                     'doc' => 'show configuration variables for another channel',
                     'arg' => 'CHAN',
                     ),
 ),
             'doc' => '<parameter> <value> [layer]
 Sets the value of one configuration parameter.  The first argument is
 the name of the parameter, the second argument is the new value.  Some
 parameters are subject to validation, and the command will fail with
 an error message if the new value does not make sense.  An optional
 third argument may be used to specify in which layer to set the
 configuration parameter.  The default layer is "user".  The
 configuration value will be set for the current channel, which
 is controlled by the default_channel configuration variable.
 ',
             ),
         'config-help' => array(
             'summary' => 'Show Information About Setting',
             'function' => 'doConfigHelp',
             'shortcut' => 'ch',
             'options' => array(),
             'doc' => '[parameter]
 Displays help for a configuration parameter.  Without arguments it
 displays help for all configuration parameters.
 ',
            ),
         'config-create' => array(
             'summary' => 'Create a Default configuration file',
             'function' => 'doConfigCreate',
             'shortcut' => 'coc',
             'options' => array(
                 'windows' => array(
                     'shortopt' => 'w',
                     'doc' => 'create a config file for a windows install',
                     ),
             ),
             'doc' => '<root path> <filename>
 Create a default configuration file with all directory configuration
 variables set to subdirectories of <root path>, and save it as <filename>.
 This is useful especially for creating a configuration file for a remote
 PEAR installation (using the --remoteconfig option of install, upgrade,
 and uninstall).
 ',
             ),
         );
-    // }}}
-    // {{{ constructor
     /**
      * PEAR_Command_Config constructor.
+     *
      * @access public
      */
-    function PEAR_Command_Config(&$ui, &$config)
+    function __construct(&$ui, &$config)
+    {
-        parent::PEAR_Command_Common($ui, $config);
+        parent::__construct($ui, $config);
+    }
-    // }}}
-    // {{{ doConfigShow()
     function doConfigShow($command, $options, $params)
+    {
         $layer = null;
         if (is_array($params)) {
-            $layer = isset($params[0]) ? $params[0] : NULL;
-        } else {
-            $layer = NULL;
+            $layer = isset($params[0]) ? $params[0] : null;
+        }
         // $params[0] -> the layer
         if ($error = $this->_checkLayer($layer)) {
             return $this->raiseError("config-show:$error");
+        }
         $keys = $this->config->getKeys();
         sort($keys);
         $channel = isset($options['channel']) ? $options['channel'] :
             $this->config->get('default_channel');
         $reg = &$this->config->getRegistry();
         if (!$reg->channelExists($channel)) {
             return $this->raiseError('Channel "' . $channel . '" does not exist');
+        }
+        $channel = $reg->channelName($channel);
         $data = array('caption' => 'Configuration (channel ' . $channel . '):');
         foreach ($keys as $key) {
             $type = $this->config->getType($key);
             $value = $this->config->get($key, $layer, $channel);
             if ($type == 'password' && $value) {
                 $value = '********';
+            }
             if ($value === false) {
                 $value = 'false';
             } elseif ($value === true) {
                 $value = 'true';
+            }
             $data['data'][$this->config->getGroup($key)][] = array($this->config->getPrompt($key) , $key, $value);
+        }
         foreach ($this->config->getLayers() as $layer) {
             $data['data']['Config Files'][] = array(ucfirst($layer) . ' Configuration File', 'Filename' , $this->config->getConfFile($layer));
+        }
         $this->ui->outputData($data, $command);
         return true;
+    }
-    // }}}
-    // {{{ doConfigGet()
     function doConfigGet($command, $options, $params)
-    {
-        if (!is_array($params)) {
-            $args_cnt = 0;
-        } else {
+    {
-            $args_cnt  = count($params);
-        }
         $args_cnt = is_array($params) ? count($params) : 0;
         switch ($args_cnt) {
             case 1:
                 $config_key = $params[0];
-                $layer = NULL;
+                $layer = null;
                 break;
             case 2:
                 $config_key = $params[0];
                 $layer = $params[1];
                 if ($error = $this->_checkLayer($layer)) {
                     return $this->raiseError("config-get:$error");
+                }
                 break;
             case 0:
             default:
                 return $this->raiseError("config-get expects 1 or 2 parameters");
+        }
         $channel = isset($options['channel']) ? $options['channel'] : $this->config->get('default_channel');
-        $reg = &$this->config->getRegistry();
+        $reg = &$this->config->getRegistry();
         $channel = isset($options['channel']) ? $options['channel'] : $this->config->get('default_channel');
         if (!$reg->channelExists($channel)) {
             return $this->raiseError('Channel "' . $channel . '" does not exist');
+        }
         $channel = $reg->channelName($channel);
-        $this->ui->outputData($this->config->get($config_key, $layer, $channel), $command);
         $this->ui->outputData($this->config->get($config_key, $layer, $channel), $command);
         return true;
+    }
-    // }}}
-    // {{{ doConfigSet()
     function doConfigSet($command, $options, $params)
+    {
         // $param[0] -> a parameter to set
         // $param[1] -> the value for the parameter
         // $param[2] -> the layer
         $failmsg = '';
-        if (sizeof($params) < 2 || sizeof($params) > 3) {
+        if (count($params) < 2 || count($params) > 3) {
             $failmsg .= "config-set expects 2 or 3 parameters";
             return PEAR::raiseError($failmsg);
+        }
         if (isset($params[2]) && ($error = $this->_checkLayer($params[2]))) {
             $failmsg .= $error;
             return PEAR::raiseError("config-set:$failmsg");
+        }
-        $channel = isset($options['channel']) ? $options['channel'] :
+        $channel = isset($options['channel']) ? $options['channel'] : $this->config->get('default_channel');
-            $this->config->get('default_channel');
         $reg = &$this->config->getRegistry();
         if (!$reg->channelExists($channel)) {
             return $this->raiseError('Channel "' . $channel . '" does not exist');
+        }
-        if ($params[0] == 'default_channel') {
+        $channel = $reg->channelName($channel);
-            if (!$reg->channelExists($params[1])) {
+        if ($params[0] == 'default_channel' && !$reg->channelExists($params[1])) {
-                return $this->raiseError('Channel "' . $params[1] . '" does not exist');
+            return $this->raiseError('Channel "' . $params[1] . '" does not exist');
+        }
+        if ($params[0] == 'preferred_mirror'
+            && (
+                !$reg->mirrorExists($channel, $params[1]) &&
+                (!$reg->channelExists($params[1]) || $channel != $params[1])
-            }
+            )
+        ) {
+            $msg  = 'Channel Mirror "' . $params[1] . '" does not exist';
+            $msg .= ' in your registry for channel "' . $channel . '".';
+            $msg .= "\n" . 'Attempt to run "pear channel-update ' . $channel .'"';
+            $msg .= ' if you believe this mirror should exist as you may';
+            $msg .= ' have outdated channel information.';
+            return $this->raiseError($msg);
+        }
         if (count($params) == 2) {
             array_push($params, 'user');
             $layer = 'user';
         } else {
             $layer = $params[2];
+        }
         array_push($params, $channel);
-        if (!call_user_func_array(array(&$this->config, 'set'), $params))
+        if (!call_user_func_array(array(&$this->config, 'set'), $params)) {
-        {
             array_pop($params);
             $failmsg = "config-set (" . implode(", ", $params) . ") failed, channel $channel";
         } else {
             $this->config->store($layer);
+        }
         if ($failmsg) {
             return $this->raiseError($failmsg);
+        }
         $this->ui->outputData('config-set succeeded', $command);
         return true;
+    }
-    // }}}
-    // {{{ doConfigHelp()
     function doConfigHelp($command, $options, $params)
+    {
         if (empty($params)) {
             $params = $this->config->getKeys();
+        }
         $data['caption']  = "Config help" . ((count($params) == 1) ? " for $params[0]" : '');
         $data['headline'] = array('Name', 'Type', 'Description');
         $data['border']   = true;
         foreach ($params as $name) {
             $type = $this->config->getType($name);
             $docs = $this->config->getDocs($name);
             if ($type == 'set') {
                 $docs = rtrim($docs) . "\nValid set: " .
                     implode(' ', $this->config->getSetValues($name));
+            }
             $data['data'][] = array($name, $type, $docs);
+        }
         $this->ui->outputData($data, $command);
+    }
-    // }}}
-    // {{{ doConfigCreate()
     function doConfigCreate($command, $options, $params)
+    {
         if (count($params) != 2) {
             return PEAR::raiseError('config-create: must have 2 parameters, root path and ' .
                 'filename to save as');
+        }
         $root = $params[0];
         // Clean up the DIRECTORY_SEPARATOR mess
         $ds2 = DIRECTORY_SEPARATOR . DIRECTORY_SEPARATOR;
         $root = preg_replace(array('!\\\\+!', '!/+!', "!$ds2+!"),
                              array('/', '/', '/'),
                             $root);
         if ($root{0} != '/') {
-            if (isset($options['windows'])) {
+            if (!isset($options['windows'])) {
-                if (!preg_match('/^[A-Za-z]:/', $root)) {
-                    return PEAR::raiseError('Root directory must be an absolute path beginning ' .
-                        'with "\\" or "C:\\", was: "' . $root . '"');
-                }
-            } else {
                 return PEAR::raiseError('Root directory must be an absolute path beginning ' .
                     'with "/", was: "' . $root . '"');
+            }
+            if (!preg_match('/^[A-Za-z]:/', $root)) {
+                return PEAR::raiseError('Root directory must be an absolute path beginning ' .
+                    'with "\\" or "C:\\", was: "' . $root . '"');
+            }
+        }
         $windows = isset($options['windows']);
         if ($windows) {
             $root = str_replace('/', '\\', $root);
+        }
-        if (!file_exists($params[1])) {
+        if (!file_exists($params[1]) && !@touch($params[1])) {
-            if (!@touch($params[1])) {
-                return PEAR::raiseError('Could not create "' . $params[1] . '"');
+            return PEAR::raiseError('Could not create "' . $params[1] . '"');
-            }
+        }
         $params[1] = realpath($params[1]);
-        $config = &new PEAR_Config($params[1], '#no#system#config#', false, false);
+        $config = new PEAR_Config($params[1], '#no#system#config#', false, false);
         if ($root{strlen($root) - 1} == '/') {
             $root = substr($root, 0, strlen($root) - 1);
+        }
         $config->noRegistry();
         $config->set('php_dir', $windows ? "$root\\pear\\php" : "$root/pear/php", 'user');
         $config->set('data_dir', $windows ? "$root\\pear\\data" : "$root/pear/data");
+        $config->set('www_dir', $windows ? "$root\\pear\\www" : "$root/pear/www");
+        $config->set('cfg_dir', $windows ? "$root\\pear\\cfg" : "$root/pear/cfg");
         $config->set('ext_dir', $windows ? "$root\\pear\\ext" : "$root/pear/ext");
         $config->set('doc_dir', $windows ? "$root\\pear\\docs" : "$root/pear/docs");
         $config->set('test_dir', $windows ? "$root\\pear\\tests" : "$root/pear/tests");
         $config->set('cache_dir', $windows ? "$root\\pear\\cache" : "$root/pear/cache");
+        $config->set('download_dir', $windows ? "$root\\pear\\download" : "$root/pear/download");
+        $config->set('temp_dir', $windows ? "$root\\pear\\temp" : "$root/pear/temp");
         $config->set('bin_dir', $windows ? "$root\\pear" : "$root/pear");
+        $config->set('man_dir', $windows ? "$root\\pear\\man" : "$root/pear/man");
         $config->writeConfigFile();
         $this->_showConfig($config);
         $this->ui->outputData('Successfully created default configuration file "' . $params[1] . '"',
             $command);
+    }
-    // }}}
     function _showConfig(&$config)
+    {
         $params = array('user');
         $keys = $config->getKeys();
         sort($keys);
         $channel = 'pear.php.net';
         $data = array('caption' => 'Configuration (channel ' . $channel . '):');
         foreach ($keys as $key) {
             $type = $config->getType($key);
             $value = $config->get($key, 'user', $channel);
             if ($type == 'password' && $value) {
                 $value = '********';
+            }
             if ($value === false) {
                 $value = 'false';
             } elseif ($value === true) {
                 $value = 'true';
+            }
             $data['data'][$config->getGroup($key)][] =
                 array($config->getPrompt($key) , $key, $value);
+        }
         foreach ($config->getLayers() as $layer) {
             $data['data']['Config Files'][] =
                 array(ucfirst($layer) . ' Configuration File', 'Filename' ,
                     $config->getConfFile($layer));
+        }
         $this->ui->outputData($data, 'config-show');
         return true;
+    }
-    // {{{ _checkLayer()
     /**
      * Checks if a layer is defined or not
+     *
      * @param string $layer The layer to search for
      * @return mixed False on no error or the error message
      */
     function _checkLayer($layer = null)
+    {
         if (!empty($layer) && $layer != 'default') {
             $layers = $this->config->getLayers();
             if (!in_array($layer, $layers)) {
                 return " only the layers: \"" . implode('" or "', $layers) . "\" are supported";
+            }
+        }
         return false;
+    }
-    // }}}
+}
-?>

Subversion Repositories Applications.gtt

(root)/trunk/bibliotheque/pear/PEAR/Command/Config.php – Rev 94 → 187