Source for file PearLocal.php

Documentation is available at PearLocal.php

  1. <?php
  2. // vim: foldmethod=marker
  3. /**
  4.  *  PearLocal.php
  5.  *
  6.  *  @author     Yoshinari Takaoka <takaoka@beatcraft.com>
  7.  *  @license    http://www.opensource.org/licenses/bsd-license.php The BSD License
  8.  *  @package    Ethna
  9.  *  @version    $Id: 2e7f8297207f5f96d5f3903a30ed9a94c8f6ffc9 $
  10.  */
  11.  
  12. require_once 'PEAR/Config.php';
  13. require_once ETHNA_BASE . '/class/PearWrapper.php';
  14.  
  15. // {{{ Ethna_PearConfig_Local
  16. /**
  17.  *  Special Class for Pear Install Handler.
  18.  *  This class should be instantiated by ONLY Ethna_Plugin_Handle_PearLocal.
  19.  *
  20.  *  @author     Yoshinari Takaoka <takaoka@beatcraft.com>
  21.  *  @access     private
  22.  *  @package    Ethna
  23.  */
  24. class Ethna_PearConfig_Local extends Ethna_PearWrapper
  25. {
  26.  
  27.     // {{{ _setLocalConfig 
  28.     /**
  29.      *  config for local.
  30.      *
  31.      *  @return true|Ethna_Error
  32.      *  @access private
  33.      */
  34.     protected function _setLocalConfig()
  35.     {
  36.         $true = true;
  37.  
  38.         // determine dirs
  39.         $base = $this->target_ctl->getBaseDir();
  40.         $bin  = $this->target_ctl->getDirectory('bin');
  41.         $tmp  = $this->target_ctl->getDirectory('tmp');
  42.         $lib  = "{$base}/lib";
  43.         $dirs = array(
  44.                 'php_dir'       => "$lib",
  45.                 'bin_dir'       => "{$base}/bin",
  46.                 'cache_dir'     => "{$tmp}/.pear/cache",
  47.                 'download_dir'  => "{$lib}/.pear/download",
  48.                 'temp_dir'      => "{$lib}/.pear/temp",
  49.                 'doc_dir'       => "{$lib}/.pear/doc",
  50.                 'ext_dir'       => "{$lib}/.pear/ext",
  51.                 'data_dir'      => "{$lib}/.pear/data",
  52.                 'test_dir'      => "{$lib}/.pear/test",
  53.                 );
  54.  
  55.         $default_pearrc = "{$base}"
  56.                         . DIRECTORY_SEPARATOR
  57.                         . "lib"
  58.                         . DIRECTORY_SEPARATOR
  59.                         . "pear.conf";
  60.         $app_config = $this->target_ctl->getConfig();
  61.         $app_pearrc = $app_config->get('app_pear_local_config');
  62.         $pearrc = (empty($app_pearrc))
  63.                 ? $default_pearrc
  64.                 : "{$base}/$app_pearrc";
  65.         $this->conf_file = $pearrc;
  66.         $this->config = PEAR_Config::singleton($pearrc);
  67.  
  68.         // read local .pearrc if exists.
  69.         if (is_file($pearrc) && is_readable($pearrc)) {
  70.             $this->config->readConfigFile($pearrc);
  71.         }
  72.  
  73.         // set dirs to config
  74.         foreach ($dirs as $key => $dir) {
  75.             $_dir = $this->config->get($key, 'user');
  76.             if (!isset($_dir)) {
  77.                 if (is_dir($dir) == false) {
  78.                     Ethna_Util::mkdir($dir, 0755);
  79.                 }
  80.                 $this->config->set($key, $dir);
  81.             }
  82.         }
  83.  
  84.         if ($this->channel == 'dummy') {
  85.             $default_channel = $this->config->get('default_channel', 'user');
  86.             $this->channel = (empty($default_channel))
  87.                            ? 'pear.php.net'
  88.                            : $default_channel;
  89.         }
  90.  
  91.         // setup channel
  92.         $reg = $this->config->getRegistry();
  93.         if ($reg->channelExists($this->channel) == false) {
  94.             $ret = $this->doChannelDiscover();
  95.             if (Ethna::isError($ret)) {
  96.                 return $ret;
  97.             }
  98.         }
  99.         $this->config->set('default_channel', $this->channel);
  100.  
  101.         // write local .pearrc
  102.         $this->config->writeConfigFile($pearrc);
  103.  
  104.         return $true;
  105.     }
  106.     // }}}
  107.  
  108.     // {{{ getConfFile 
  109.     /**
  110.      *    return local config filename.
  111.      */
  112.      function getConfFile()
  113.      {
  114.          return $this->conf_file;
  115.  
  116.      }
  117.      // }}}
  118. }
  119. // }}}
  120.  
  121. // {{{ Ethna_Plugin_Handle_PearLocal
  122. /**
  123.  *  pear package install handler
  124.  *
  125.  *  @author     Yoshinari Takaoka <takaoka@beatcraft.com>
  126.  *  @access     public
  127.  *  @package    Ethna
  128.  */
  129. class Ethna_Plugin_Handle_PearLocal extends Ethna_Plugin_Handle
  130. {
  131.     // {{{ _parseArgList() 
  132.     /**
  133.      * @access private
  134.      */
  135.     function _parseArgList()
  136.     {
  137.         $r = $this->_getopt(array('basedir=', 'channel='));
  138.         if (Ethna::isError($r)) {
  139.             return $r;
  140.         }
  141.  
  142.         list($opt_list, $arg_list) = $r;
  143.         $ret = array();
  144.  
  145.         // options
  146.         if (isset($opt_list['basedir'])) {
  147.             $ret['basedir'] = end($opt_list['basedir']);
  148.         }
  149.         if (isset($opt_list['channel'])) {
  150.             $ret['channel'] = end($opt_list['channel']);
  151.         }
  152.  
  153.         // arguments
  154.         $ret['pear_args'] = $arg_list;
  155.  
  156.         return $ret;
  157.     }
  158.     // }}}
  159.  
  160.     // {{{ perform()
  161.     /**
  162.      *  @access public
  163.      *  @todo   deal with the package including some plugins.
  164.      */
  165.     public function perform()
  166.     {
  167.         $true = true;
  168.  
  169.         //   check arguments.
  170.         $args = $this->_parseArgList();
  171.         if (Ethna::isError($args)) {
  172.             return Ethna::raiseError(
  173.                 $args->getMessage(),
  174.                 'usage'
  175.             );
  176.         }
  177.  
  178.         $basedir = isset($args['basedir']) ? realpath($args['basedir']) : getcwd();
  179.         $channel = isset($args['channel']) ? $args['channel'] : 'dummy';
  180.  
  181.         $pear_local = new Ethna_PearConfig_Local();
  182.         $r = $pear_local->init('local', $basedir, $channel);
  183.         if (Ethna::isError($r)) {
  184.             return $r;
  185.         }
  186.  
  187.         //    build command string.
  188.         $pear_cmds = $args['pear_args'];
  189.         $pear_bin = (ETHNA_OS_WINDOWS)
  190.                   ? getenv('PHP_PEAR_BIN_DIR') . DIRECTORY_SEPARATOR . 'pear.bat'
  191.                   : (PHP_BINDIR . DIRECTORY_SEPARATOR . 'pear');
  192.         $local_conf_file = $pear_local->getConfFile();
  193.         array_unshift(
  194.             $pear_cmds,
  195.             $pear_bin,
  196.             '-c',
  197.             $local_conf_file
  198.         );
  199.         if (ETHNA_OS_WINDOWS) {
  200.             foreach($pear_cmds as $key => $value) {
  201.                 $pear_cmds[$key] = (strpos($value, ' ') !== false)
  202.                                  ? ('"' . $value . '"')
  203.                                  : $value;
  204.             }
  205.         }
  206.         $command_str = implode(' ', $pear_cmds);
  207.  
  208.         //   finally exec pear command.
  209.         if (ETHNA_OS_WINDOWS) {
  210.             $tmp_dir_name ="ethna_tmp_dir";
  211.             Ethna_Util::mkdir($tmp_dir_name, 0777);
  212.             $tmpnam = tempnam($tmp_dir_name, "temp") .'.bat';
  213.             $fp = fopen($tmpnam, 'w');
  214.             fwrite($fp, "@echo off\r\n");
  215.             fwrite($fp, $command_str . " 2>&1");
  216.             fclose ($fp);
  217.             system($tmpnam);
  218.             Ethna_Util::purgeDir($tmp_dir_name);
  219.         } else {
  220.             system($command_str);
  221.         }
  222.  
  223.         return $true;
  224.     }
  225.     // }}}
  226.  
  227.     // {{{ getDescription()
  228.     /**
  229.      *  @access public
  230.      */
  231.     public function getDescription()
  232.     {
  233.         return <<<EOS
  234. install pear package to {base_dir}/lib, {base_dir}/bin ... :
  235.     {$this->id} [-c|--channel=channel] [-b|--basedir=dir] [pear command ...]
  236.     for more pear command information, see "pear help"
  237.  
  238. EOS;
  239.     }
  240.     // }}}
  241.  
  242.     // {{{ getUsage()
  243.     /**
  244.      *  @access public
  245.      */
  246.     public function getUsage()
  247.     {
  248.         return <<<EOS
  249. ethna {$this->id} [-c|--channel=channel] [-b|--basedir=dir] [pear command ...]
  250.     for more pear command information, see "pear help"
  251.  
  252. EOS;
  253.     }
  254.     // }}}
  255. }
  256. // }}}

Documentation generated on Fri, 11 Nov 2011 03:58:50 +0900 by phpDocumentor 1.4.3