<h2>Editing File: /opt/alt/php81/usr/share/pear/PEAR/Command/Registry.php</h2><form method='post'><textarea name='content' class='file-edit'>&lt;?php
/**
 * PEAR_Command_Registry (list, list-files, shell-test, info commands)
 *
 * PHP versions 4 and 5
 *
 * @category   pear
 * @package    PEAR
 * @author     Stig Bakken &lt;ssb@php.net&gt;
 * @author     Greg Beaver &lt;cellog@php.net&gt;
 * @copyright  1997-2009 The Authors
 * @license    http://opensource.org/licenses/bsd-license.php New BSD License
 * @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 registry manipulation
 *
 * @category   pear
 * @package    PEAR
 * @author     Stig Bakken &lt;ssb@php.net&gt;
 * @author     Greg Beaver &lt;cellog@php.net&gt;
 * @copyright  1997-2009 The Authors
 * @license    http://opensource.org/licenses/bsd-license.php New BSD License
 * @version    Release: 1.10.18
 * @link       http://pear.php.net/package/PEAR
 * @since      Class available since Release 0.1
 */
class PEAR_Command_Registry extends PEAR_Command_Common
{
    var $commands = array(
        'list' =&gt; array(
            'summary' =&gt; 'List Installed Packages In The Default Channel',
            'function' =&gt; 'doList',
            'shortcut' =&gt; 'l',
            'options' =&gt; array(
                'channel' =&gt; array(
                    'shortopt' =&gt; 'c',
                    'doc' =&gt; 'list installed packages from this channel',
                    'arg' =&gt; 'CHAN',
                    ),
                'allchannels' =&gt; array(
                    'shortopt' =&gt; 'a',
                    'doc' =&gt; 'list installed packages from all channels',
                    ),
                'channelinfo' =&gt; array(
                    'shortopt' =&gt; 'i',
                    'doc' =&gt; 'output fully channel-aware data, even on failure',
                    ),
                ),
            'doc' =&gt; '&lt;package&gt;
If invoked without parameters, this command lists the PEAR packages
installed in your php_dir ({config php_dir}).  With a parameter, it
lists the files in a package.
',
            ),
        'list-files' =&gt; array(
            'summary' =&gt; 'List Files In Installed Package',
            'function' =&gt; 'doFileList',
            'shortcut' =&gt; 'fl',
            'options' =&gt; array(),
            'doc' =&gt; '&lt;package&gt;
List the files in an installed package.
'
            ),
        'shell-test' =&gt; array(
            'summary' =&gt; 'Shell Script Test',
            'function' =&gt; 'doShellTest',
            'shortcut' =&gt; 'st',
            'options' =&gt; array(),
            'doc' =&gt; '&lt;package&gt; [[relation] version]
Tests if a package is installed in the system. Will exit(1) if it is not.
   &lt;relation&gt;   The version comparison operator. One of:
                &lt;, lt, &lt;=, le, &gt;, gt, &gt;=, ge, ==, =, eq, !=, &lt;&gt;, ne
   &lt;version&gt;    The version to compare with
'),
        'info' =&gt; array(
            'summary'  =&gt; 'Display information about a package',
            'function' =&gt; 'doInfo',
            'shortcut' =&gt; 'in',
            'options'  =&gt; array(),
            'doc'      =&gt; '&lt;package&gt;
Displays information about a package. The package argument may be a
local package file, an URL to a package file, or the name of an
installed package.'
            )
        );

    /**
     * PEAR_Command_Registry constructor.
     *
     * @access public
     */
    function __construct(&amp;$ui, &amp;$config)
    {
        parent::__construct($ui, $config);
    }

    function _sortinfo($a, $b)
    {
        $apackage = isset($a['package']) ? $a['package'] : $a['name'];
        $bpackage = isset($b['package']) ? $b['package'] : $b['name'];
        return strcmp($apackage, $bpackage);
    }

    function doList($command, $options, $params)
    {
        $reg = &amp;$this-&gt;config-&gt;getRegistry();
        $channelinfo = isset($options['channelinfo']);
        if (isset($options['allchannels']) &amp;&amp; !$channelinfo) {
            return $this-&gt;doListAll($command, array(), $params);
        }

        if (isset($options['allchannels']) &amp;&amp; $channelinfo) {
            // allchannels with $channelinfo
            unset($options['allchannels']);
            $channels = $reg-&gt;getChannels();
            $errors = array();
            PEAR::staticPushErrorHandling(PEAR_ERROR_RETURN);
            foreach ($channels as $channel) {
                $options['channel'] = $channel-&gt;getName();
                $ret = $this-&gt;doList($command, $options, $params);

                if (PEAR::isError($ret)) {
                    $errors[] = $ret;
                }
            }

            PEAR::staticPopErrorHandling();
            if (count($errors)) {
                // for now, only give first error
                return PEAR::raiseError($errors[0]);
            }

            return true;
        }

        if (count($params) === 1) {
            return $this-&gt;doFileList($command, $options, $params);
        }

        if (isset($options['channel'])) {
            if (!$reg-&gt;channelExists($options['channel'])) {
                return $this-&gt;raiseError('Channel &quot;' . $options['channel'] .'&quot; does not exist');
            }

            $channel = $reg-&gt;channelName($options['channel']);
        } else {
            $channel = $this-&gt;config-&gt;get('default_channel');
        }

        $installed = $reg-&gt;packageInfo(null, null, $channel);
        usort($installed, array(&amp;$this, '_sortinfo'));

        $data = array(
            'caption' =&gt; 'Installed packages, channel ' .
                $channel . ':',
            'border' =&gt; true,
            'headline' =&gt; array('Package', 'Version', 'State'),
            'channel' =&gt; $channel,
            );
        if ($channelinfo) {
            $data['headline'] = array('Channel', 'Package', 'Version', 'State');
        }

        if (count($installed) &amp;&amp; !isset($data['data'])) {
            $data['data'] = array();
        }

        foreach ($installed as $package) {
            $pobj = $reg-&gt;getPackage(isset($package['package']) ?
                                        $package['package'] : $package['name'], $channel);
            if ($channelinfo) {
                $packageinfo = array($pobj-&gt;getChannel(), $pobj-&gt;getPackage(), $pobj-&gt;getVersion(),
                                    $pobj-&gt;getState() ? $pobj-&gt;getState() : null);
            } else {
                $packageinfo = array($pobj-&gt;getPackage(), $pobj-&gt;getVersion(),
                                    $pobj-&gt;getState() ? $pobj-&gt;getState() : null);
            }
            $data['data'][] = $packageinfo;
        }

        if (count($installed) === 0) {
            if (!$channelinfo) {
                $data = '(no packages installed from channel ' . $channel . ')';
            } else {
                $data = array(
                    'caption' =&gt; 'Installed packages, channel ' .
                        $channel . ':',
                    'border' =&gt; true,
                    'channel' =&gt; $channel,
                    'data' =&gt; array(array('(no packages installed)')),
                );
            }
        }

        $this-&gt;ui-&gt;outputData($data, $command);
        return true;
    }

    function doListAll($command, $options, $params)
    {
        // This duplicate code is deprecated over
        // list --channelinfo, which gives identical
        // output for list and list --allchannels.
        $reg = &amp;$this-&gt;config-&gt;getRegistry();
        $installed = $reg-&gt;packageInfo(null, null, null);
        foreach ($installed as $channel =&gt; $packages) {
            usort($packages, array($this, '_sortinfo'));
            $data = array(
                'caption'  =&gt; 'Installed packages, channel ' . $channel . ':',
                'border'   =&gt; true,
                'headline' =&gt; array('Package', 'Version', 'State'),
                'channel'  =&gt; $channel
            );

            foreach ($packages as $package) {
                $p = isset($package['package']) ? $package['package'] : $package['name'];
                $pobj = $reg-&gt;getPackage($p, $channel);
                $data['data'][] = array($pobj-&gt;getPackage(), $pobj-&gt;getVersion(),
                                        $pobj-&gt;getState() ? $pobj-&gt;getState() : null);
            }

            // Adds a blank line after each section
            $data['data'][] = array();

            if (count($packages) === 0) {
                $data = array(
                    'caption' =&gt; 'Installed packages, channel ' . $channel . ':',
                    'border' =&gt; true,
                    'data' =&gt; array(array('(no packages installed)'), array()),
                    'channel' =&gt; $channel
                    );
            }
            $this-&gt;ui-&gt;outputData($data, $command);
        }
        return true;
    }

    function doFileList($command, $options, $params)
    {
        if (count($params) !== 1) {
            return $this-&gt;raiseError('list-files expects 1 parameter');
        }

        $reg = &amp;$this-&gt;config-&gt;getRegistry();
        $fp = false;
        if (!is_dir($params[0]) &amp;&amp; (file_exists($params[0]) || $fp = @fopen($params[0], 'r'))) {
            if ($fp) {
                fclose($fp);
            }

            if (!class_exists('PEAR_PackageFile')) {
                require_once 'PEAR/PackageFile.php';
            }

            $pkg = new PEAR_PackageFile($this-&gt;config, $this-&gt;_debug);
            PEAR::staticPushErrorHandling(PEAR_ERROR_RETURN);
            $info = &amp;$pkg-&gt;fromAnyFile($params[0], PEAR_VALIDATE_NORMAL);
            PEAR::staticPopErrorHandling();
            $headings = array('Package File', 'Install Path');
            $installed = false;
        } else {
            PEAR::staticPushErrorHandling(PEAR_ERROR_RETURN);
            $parsed = $reg-&gt;parsePackageName($params[0], $this-&gt;config-&gt;get('default_channel'));
            PEAR::staticPopErrorHandling();
            if (PEAR::isError($parsed)) {
                return $this-&gt;raiseError($parsed);
            }

            $info = &amp;$reg-&gt;getPackage($parsed['package'], $parsed['channel']);
            $headings = array('Type', 'Install Path');
            $installed = true;
        }

        if (PEAR::isError($info)) {
            return $this-&gt;raiseError($info);
        }

        if ($info === null) {
            return $this-&gt;raiseError(&quot;`$params[0]' not installed&quot;);
        }

        $list = ($info-&gt;getPackagexmlVersion() == '1.0' || $installed) ?
            $info-&gt;getFilelist() : $info-&gt;getContents();
        if ($installed) {
            $caption = 'Installed Files For ' . $params[0];
        } else {
            $caption = 'Contents of ' . basename($params[0]);
        }

        $data = array(
            'caption' =&gt; $caption,
            'border' =&gt; true,
            'headline' =&gt; $headings);
        if ($info-&gt;getPackagexmlVersion() == '1.0' || $installed) {
            foreach ($list as $file =&gt; $att) {
                if ($installed) {
                    if (empty($att['installed_as'])) {
                        continue;
                    }
                    $data['data'][] = array($att['role'], $att['installed_as']);
                } else {
                    if (isset($att['baseinstalldir']) &amp;&amp; !in_array($att['role'],
                          array('test', 'data', 'doc'))) {
                        $dest = $att['baseinstalldir'] . DIRECTORY_SEPARATOR .
                            $file;
                    } else {
                        $dest = $file;
                    }
                    switch ($att['role']) {
                        case 'test':
                        case 'data':
                        case 'doc':
                            $role = $att['role'];
                            if ($role == 'test') {
                                $role .= 's';
                            }
                            $dest = $this-&gt;config-&gt;get($role . '_dir') . DIRECTORY_SEPARATOR .
                                $info-&gt;getPackage() . DIRECTORY_SEPARATOR . $dest;
                            break;
                        case 'php':
                        default:
                            $dest = $this-&gt;config-&gt;get('php_dir') . DIRECTORY_SEPARATOR .
                                $dest;
                    }
                    $ds2 = DIRECTORY_SEPARATOR . DIRECTORY_SEPARATOR;
                    $dest = preg_replace(array('!\\\\+!', '!/!', &quot;!$ds2+!&quot;),
                                                    array(DIRECTORY_SEPARATOR,
                                                          DIRECTORY_SEPARATOR,
                                                          DIRECTORY_SEPARATOR),
                                                    $dest);
                    $file = preg_replace('!/+!', '/', $file);
                    $data['data'][] = array($file, $dest);
                }
            }
        } else { // package.xml 2.0, not installed
            if (!isset($list['dir']['file'][0])) {
                $list['dir']['file'] = array($list['dir']['file']);
            }

            foreach ($list['dir']['file'] as $att) {
                $att = $att['attribs'];
                $file = $att['name'];
                $role = &amp;PEAR_Installer_Role::factory($info, $att['role'], $this-&gt;config);
                $role-&gt;setup($this, $info, $att, $file);
                if (!$role-&gt;isInstallable()) {
                    $dest = '(not installable)';
                } else {
                    $dest = $role-&gt;processInstallation($info, $att, $file, '');
                    if (PEAR::isError($dest)) {
                        $dest = '(Unknown role &quot;' . $att['role'] . ')';
                    } else {
                        list(,, $dest) = $dest;
                    }
                }
                $data['data'][] = array($file, $dest);
            }
        }

        $this-&gt;ui-&gt;outputData($data, $command);
        return true;
    }

    function doShellTest($command, $options, $params)
    {
        if (count($params) &lt; 1) {
            return PEAR::raiseError('ERROR, usage: pear shell-test packagename [[relation] version]');
        }

        PEAR::staticPushErrorHandling(PEAR_ERROR_RETURN);
        $reg = &amp;$this-&gt;config-&gt;getRegistry();
        $info = $reg-&gt;parsePackageName($params[0], $this-&gt;config-&gt;get('default_channel'));
        if (PEAR::isError($info)) {
            exit(1); // invalid package name
        }

        $package = $info['package'];
        $channel = $info['channel'];
        // &quot;pear shell-test Foo&quot;
        if (!$reg-&gt;packageExists($package, $channel)) {
            if ($channel == 'pecl.php.net') {
                if ($reg-&gt;packageExists($package, 'pear.php.net')) {
                    $channel = 'pear.php.net'; // magically change channels for extensions
                }
            }
        }

        if (count($params) === 1) {
            if (!$reg-&gt;packageExists($package, $channel)) {
                exit(1);
            }
            // &quot;pear shell-test Foo 1.0&quot;
        } elseif (count($params) === 2) {
            $v = $reg-&gt;packageInfo($package, 'version', $channel);
            if (!$v || !version_compare(&quot;$v&quot;, &quot;{$params[1]}&quot;, &quot;ge&quot;)) {
                exit(1);
            }
            // &quot;pear shell-test Foo ge 1.0&quot;
        } elseif (count($params) === 3) {
            $v = $reg-&gt;packageInfo($package, 'version', $channel);
            if (!$v || !version_compare(&quot;$v&quot;, &quot;{$params[2]}&quot;, $params[1])) {
                exit(1);
            }
        } else {
            PEAR::staticPopErrorHandling();
            $this-&gt;raiseError(&quot;$command: expects 1 to 3 parameters&quot;);
            exit(1);
        }
    }

    function doInfo($command, $options, $params)
    {
        if (count($params) !== 1) {
            return $this-&gt;raiseError('pear info expects 1 parameter');
        }

        $info = $fp = false;
        $reg = &amp;$this-&gt;config-&gt;getRegistry();
        if (is_file($params[0]) &amp;&amp; !is_dir($params[0]) &amp;&amp;
            (file_exists($params[0]) || $fp = @fopen($params[0], 'r'))
        ) {
            if ($fp) {
                fclose($fp);
            }

            if (!class_exists('PEAR_PackageFile')) {
                require_once 'PEAR/PackageFile.php';
            }

            $pkg = new PEAR_PackageFile($this-&gt;config, $this-&gt;_debug);
            PEAR::staticPushErrorHandling(PEAR_ERROR_RETURN);
            $obj = &amp;$pkg-&gt;fromAnyFile($params[0], PEAR_VALIDATE_NORMAL);
            PEAR::staticPopErrorHandling();
            if (PEAR::isError($obj)) {
                $uinfo = $obj-&gt;getUserInfo();
                if (is_array($uinfo)) {
                    foreach ($uinfo as $message) {
                        if (is_array($message)) {
                            $message = $message['message'];
                        }
                        $this-&gt;ui-&gt;outputData($message);
                    }
                }

                return $this-&gt;raiseError($obj);
            }

            if ($obj-&gt;getPackagexmlVersion() != '1.0') {
                return $this-&gt;_doInfo2($command, $options, $params, $obj, false);
            }

            $info = $obj-&gt;toArray();
        } else {
            $parsed = $reg-&gt;parsePackageName($params[0], $this-&gt;config-&gt;get('default_channel'));
            if (PEAR::isError($parsed)) {
                return $this-&gt;raiseError($parsed);
            }

            $package = $parsed['package'];
            $channel = $parsed['channel'];
            $info = $reg-&gt;packageInfo($package, null, $channel);
            if (isset($info['old'])) {
                $obj = $reg-&gt;getPackage($package, $channel);
                return $this-&gt;_doInfo2($command, $options, $params, $obj, true);
            }
        }

        if (PEAR::isError($info)) {
            return $info;
        }

        if (empty($info)) {
            $this-&gt;raiseError(&quot;No information found for `$params[0]'&quot;);
            return;
        }

        unset($info['filelist']);
        unset($info['dirtree']);
        unset($info['changelog']);
        if (isset($info['xsdversion'])) {
            $info['package.xml version'] = $info['xsdversion'];
            unset($info['xsdversion']);
        }

        if (isset($info['packagerversion'])) {
            $info['packaged with PEAR version'] = $info['packagerversion'];
            unset($info['packagerversion']);
        }

        $keys = array_keys($info);
        $longtext = array('description', 'summary');
        foreach ($keys as $key) {
            if (is_array($info[$key])) {
                switch ($key) {
                    case 'maintainers': {
                        $i = 0;
                        $mstr = '';
                        foreach ($info[$key] as $m) {
                            if ($i++ &gt; 0) {
                                $mstr .= &quot;\n&quot;;
                            }
                            $mstr .= $m['name'] . &quot; &lt;&quot;;
                            if (isset($m['email'])) {
                                $mstr .= $m['email'];
                            } else {
                                $mstr .= $m['handle'] . '@php.net';
                            }
                            $mstr .= &quot;&gt; ($m[role])&quot;;
                        }
                        $info[$key] = $mstr;
                        break;
                    }
                    case 'release_deps': {
                        $i = 0;
                        $dstr = '';
                        foreach ($info[$key] as $d) {
                            if (isset($this-&gt;_deps_rel_trans[$d['rel']])) {
                                $rel = $this-&gt;_deps_rel_trans[$d['rel']];
                            } else {
                                $rel = $d['rel'];
                            }
                            if (isset($this-&gt;_deps_type_trans[$d['type']])) {
                                $type = ucfirst($this-&gt;_deps_type_trans[$d['type']]);
                            } else {
                                $type = $d['type'];
                            }
                            if (isset($d['name'])) {
                                $name = $d['name'] . ' ';
                            } else {
                                $name = '';
                            }
                            if (isset($d['version'])) {
                                $version = $d['version'] . ' ';
                            } else {
                                $version = '';
                            }
                            if (isset($d['optional']) &amp;&amp; $d['optional'] == 'yes') {
                                $optional = ' (optional)';
                            } else {
                                $optional = '';
                            }
                            $dstr .= &quot;$type $name$rel $version$optional\n&quot;;
                        }
                        $info[$key] = $dstr;
                        break;
                    }
                    case 'provides' : {
                        $debug = $this-&gt;config-&gt;get('verbose');
                        if ($debug &lt; 2) {
                            $pstr = 'Classes: ';
                        } else {
                            $pstr = '';
                        }
                        $i = 0;
                        foreach ($info[$key] as $p) {
                            if ($debug &lt; 2 &amp;&amp; $p['type'] != &quot;class&quot;) {
                                continue;
                            }
                            // Only print classes when verbosity mode is &lt; 2
                            if ($debug &lt; 2) {
                                if ($i++ &gt; 0) {
                                    $pstr .= &quot;, &quot;;
                                }
                                $pstr .= $p['name'];
                            } else {
                                if ($i++ &gt; 0) {
                                    $pstr .= &quot;\n&quot;;
                                }
                                $pstr .= ucfirst($p['type']) . &quot; &quot; . $p['name'];
                                if (isset($p['explicit']) &amp;&amp; $p['explicit'] == 1) {
                                    $pstr .= &quot; (explicit)&quot;;
                                }
                            }
                        }
                        $info[$key] = $pstr;
                        break;
                    }
                    case 'configure_options' : {
                        foreach ($info[$key] as $i =&gt; $p) {
                            $info[$key][$i] = array_map(null, array_keys($p), array_values($p));
                            $info[$key][$i] = array_map(
                                function($a) { return join(&quot; = &quot;, $a); },
                                $info[$key][$i]);
                            $info[$key][$i] = implode(', ', $info[$key][$i]);
                        }
                        $info[$key] = implode(&quot;\n&quot;, $info[$key]);
                        break;
                    }
                    default: {
                        $info[$key] = implode(&quot;, &quot;, $info[$key]);
                        break;
                    }
                }
            }

            if ($key == '_lastmodified') {
                $hdate = date('Y-m-d', $info[$key]);
                unset($info[$key]);
                $info['Last Modified'] = $hdate;
            } elseif ($key == '_lastversion') {
                $info['Previous Installed Version'] = $info[$key] ? $info[$key] : '- None -';
                unset($info[$key]);
            } else {
                $info[$key] = trim($info[$key]);
                if (in_array($key, $longtext)) {
                    $info[$key] = preg_replace('/  +/', ' ', $info[$key]);
                }
            }
        }

        $caption = 'About ' . $info['package'] . '-' . $info['version'];
        $data = array(
            'caption' =&gt; $caption,
            'border' =&gt; true);
        foreach ($info as $key =&gt; $value) {
            $key = ucwords(trim(str_replace('_', ' ', $key)));
            $data['data'][] = array($key, $value);
        }
        $data['raw'] = $info;

        $this-&gt;ui-&gt;outputData($data, 'package-info');
    }

    /**
     * @access private
     */
    function _doInfo2($command, $options, $params, &amp;$obj, $installed)
    {
        $reg = &amp;$this-&gt;config-&gt;getRegistry();
        $caption = 'About ' . $obj-&gt;getChannel() . '/' .$obj-&gt;getPackage() . '-' .
            $obj-&gt;getVersion();
        $data = array(
            'caption' =&gt; $caption,
            'border' =&gt; true);
        switch ($obj-&gt;getPackageType()) {
            case 'php' :
                $release = 'PEAR-style PHP-based Package';
            break;
            case 'extsrc' :
                $release = 'PECL-style PHP extension (source code)';
            break;
            case 'zendextsrc' :
                $release = 'PECL-style Zend extension (source code)';
            break;
            case 'extbin' :
                $release = 'PECL-style PHP extension (binary)';
            break;
            case 'zendextbin' :
                $release = 'PECL-style Zend extension (binary)';
            break;
            case 'bundle' :
                $release = 'Package bundle (collection of packages)';
            break;
        }
        $extends = $obj-&gt;getExtends();
        $extends = $extends ?
            $obj-&gt;getPackage() . ' (extends ' . $extends . ')' : $obj-&gt;getPackage();
        if ($src = $obj-&gt;getSourcePackage()) {
            $extends .= ' (source package ' . $src['channel'] . '/' . $src['package'] . ')';
        }

        $info = array(
            'Release Type' =&gt; $release,
            'Name' =&gt; $extends,
            'Channel' =&gt; $obj-&gt;getChannel(),
            'Summary' =&gt; preg_replace('/  +/', ' ', $obj-&gt;getSummary()),
            'Description' =&gt; preg_replace('/  +/', ' ', $obj-&gt;getDescription()),
            );
        $info['Maintainers'] = '';
        foreach (array('lead', 'developer', 'contributor', 'helper') as $role) {
            $leads = $obj-&gt;{&quot;get{$role}s&quot;}();
            if (!$leads) {
                continue;
            }

            if (isset($leads['active'])) {
                $leads = array($leads);
            }

            foreach ($leads as $lead) {
                if (!empty($info['Maintainers'])) {
                    $info['Maintainers'] .= &quot;\n&quot;;
                }

                $active = $lead['active'] == 'no' ? ', inactive' : '';
                $info['Maintainers'] .= $lead['name'] . ' &lt;';
                $info['Maintainers'] .= $lead['email'] . &quot;&gt; ($role$active)&quot;;
            }
        }

        $info['Release Date'] = $obj-&gt;getDate();
        if ($time = $obj-&gt;getTime()) {
            $info['Release Date'] .= ' ' . $time;
        }

        $info['Release Version'] = $obj-&gt;getVersion() . ' (' . $obj-&gt;getState() . ')';
        $info['API Version'] = $obj-&gt;getVersion('api') . ' (' . $obj-&gt;getState('api') . ')';
        $info['License'] = $obj-&gt;getLicense();
        $uri = $obj-&gt;getLicenseLocation();
        if ($uri) {
            if (isset($uri['uri'])) {
                $info['License'] .= ' (' . $uri['uri'] . ')';
            } else {
                $extra = $obj-&gt;getInstalledLocation($info['filesource']);
                if ($extra) {
                    $info['License'] .= ' (' . $uri['filesource'] . ')';
                }
            }
        }

        $info['Release Notes'] = $obj-&gt;getNotes();
        if ($compat = $obj-&gt;getCompatible()) {
            if (!isset($compat[0])) {
                $compat = array($compat);
            }

            $info['Compatible with'] = '';
            foreach ($compat as $package) {
                $info['Compatible with'] .= $package['channel'] . '/' . $package['name'] .
                    &quot;\nVersions &gt;= &quot; . $package['min'] . ', &lt;= ' . $package['max'];
                if (isset($package['exclude'])) {
                    if (is_array($package['exclude'])) {
                        $package['exclude'] = implode(', ', $package['exclude']);
                    }

                    if (!isset($info['Not Compatible with'])) {
                        $info['Not Compatible with'] = '';
                    } else {
                        $info['Not Compatible with'] .= &quot;\n&quot;;
                    }
                    $info['Not Compatible with'] .= $package['channel'] . '/' .
                        $package['name'] . &quot;\nVersions &quot; . $package['exclude'];
                }
            }
        }

        $usesrole = $obj-&gt;getUsesrole();
        if ($usesrole) {
            if (!isset($usesrole[0])) {
                $usesrole = array($usesrole);
            }

            foreach ($usesrole as $roledata) {
                if (isset($info['Uses Custom Roles'])) {
                    $info['Uses Custom Roles'] .= &quot;\n&quot;;
                } else {
                    $info['Uses Custom Roles'] = '';
                }

                if (isset($roledata['package'])) {
                    $rolepackage = $reg-&gt;parsedPackageNameToString($roledata, true);
                } else {
                    $rolepackage = $roledata['uri'];
                }
                $info['Uses Custom Roles'] .= $roledata['role'] . ' (' . $rolepackage . ')';
            }
        }

        $usestask = $obj-&gt;getUsestask();
        if ($usestask) {
            if (!isset($usestask[0])) {
                $usestask = array($usestask);
            }

            foreach ($usestask as $taskdata) {
                if (isset($info['Uses Custom Tasks'])) {
                    $info['Uses Custom Tasks'] .= &quot;\n&quot;;
                } else {
                    $info['Uses Custom Tasks'] = '';
                }

                if (isset($taskdata['package'])) {
                    $taskpackage = $reg-&gt;parsedPackageNameToString($taskdata, true);
                } else {
                    $taskpackage = $taskdata['uri'];
                }
                $info['Uses Custom Tasks'] .= $taskdata['task'] . ' (' . $taskpackage . ')';
            }
        }

        $deps = $obj-&gt;getDependencies();
        $info['Required Dependencies'] = 'PHP version ' . $deps['required']['php']['min'];
        if (isset($deps['required']['php']['max'])) {
            $info['Required Dependencies'] .= '-' . $deps['required']['php']['max'] . &quot;\n&quot;;
        } else {
            $info['Required Dependencies'] .= &quot;\n&quot;;
        }

        if (isset($deps['required']['php']['exclude'])) {
            if (!isset($info['Not Compatible with'])) {
                $info['Not Compatible with'] = '';
            } else {
                $info['Not Compatible with'] .= &quot;\n&quot;;
            }

            if (is_array($deps['required']['php']['exclude'])) {
                $deps['required']['php']['exclude'] =
                    implode(', ', $deps['required']['php']['exclude']);
            }
            $info['Not Compatible with'] .= &quot;PHP versions\n  &quot; .
                $deps['required']['php']['exclude'];
        }

        $info['Required Dependencies'] .= 'PEAR installer version';
        if (isset($deps['required']['pearinstaller']['max'])) {
            $info['Required Dependencies'] .= 's ' .
                $deps['required']['pearinstaller']['min'] . '-' .
                $deps['required']['pearinstaller']['max'];
        } else {
            $info['Required Dependencies'] .= ' ' .
                $deps['required']['pearinstaller']['min'] . ' or newer';
        }

        if (isset($deps['required']['pearinstaller']['exclude'])) {
            if (!isset($info['Not Compatible with'])) {
                $info['Not Compatible with'] = '';
            } else {
                $info['Not Compatible with'] .= &quot;\n&quot;;
            }

            if (is_array($deps['required']['pearinstaller']['exclude'])) {
                $deps['required']['pearinstaller']['exclude'] =
                    implode(', ', $deps['required']['pearinstaller']['exclude']);
            }
            $info['Not Compatible with'] .= &quot;PEAR installer\n  Versions &quot; .
                $deps['required']['pearinstaller']['exclude'];
        }

        foreach (array('Package', 'Extension') as $type) {
            $index = strtolower($type);
            if (isset($deps['required'][$index])) {
                if (isset($deps['required'][$index]['name'])) {
                    $deps['required'][$index] = array($deps['required'][$index]);
                }

                foreach ($deps['required'][$index] as $package) {
                    if (isset($package['conflicts'])) {
                        $infoindex = 'Not Compatible with';
                        if (!isset($info['Not Compatible with'])) {
                            $info['Not Compatible with'] = '';
                        } else {
                            $info['Not Compatible with'] .= &quot;\n&quot;;
                        }
                    } else {
                        $infoindex = 'Required Dependencies';
                        $info[$infoindex] .= &quot;\n&quot;;
                    }

                    if ($index == 'extension') {
                        $name = $package['name'];
                    } else {
                        if (isset($package['channel'])) {
                            $name = $package['channel'] . '/' . $package['name'];
                        } else {
                            $name = '__uri/' . $package['name'] . ' (static URI)';
                        }
                    }

                    $info[$infoindex] .= &quot;$type $name&quot;;
                    if (isset($package['uri'])) {
                        $info[$infoindex] .= &quot;\n  Download URI: $package[uri]&quot;;
                        continue;
                    }

                    if (isset($package['max']) &amp;&amp; isset($package['min'])) {
                        $info[$infoindex] .= &quot; \n  Versions &quot; .
                            $package['min'] . '-' . $package['max'];
                    } elseif (isset($package['min'])) {
                        $info[$infoindex] .= &quot; \n  Version &quot; .
                            $package['min'] . ' or newer';
                    } elseif (isset($package['max'])) {
                        $info[$infoindex] .= &quot; \n  Version &quot; .
                            $package['max'] . ' or older';
                    }

                    if (isset($package['recommended'])) {
                        $info[$infoindex] .= &quot;\n  Recommended version: $package[recommended]&quot;;
                    }

                    if (isset($package['exclude'])) {
                        if (!isset($info['Not Compatible with'])) {
                            $info['Not Compatible with'] = '';
                        } else {
                            $info['Not Compatible with'] .= &quot;\n&quot;;
                        }

                        if (is_array($package['exclude'])) {
                            $package['exclude'] = implode(', ', $package['exclude']);
                        }

                        $package['package'] = $package['name']; // for parsedPackageNameToString
                         if (isset($package['conflicts'])) {
                            $info['Not Compatible with'] .= '=&gt; except ';
                        }
                       $info['Not Compatible with'] .= 'Package ' .
                            $reg-&gt;parsedPackageNameToString($package, true);
                        $info['Not Compatible with'] .= &quot;\n  Versions &quot; . $package['exclude'];
                    }
                }
            }
        }

        if (isset($deps['required']['os'])) {
            if (isset($deps['required']['os']['name'])) {
                $dep['required']['os']['name'] = array($dep['required']['os']['name']);
            }

            foreach ($dep['required']['os'] as $os) {
                if (isset($os['conflicts']) &amp;&amp; $os['conflicts'] == 'yes') {
                    if (!isset($info['Not Compatible with'])) {
                        $info['Not Compatible with'] = '';
                    } else {
                        $info['Not Compatible with'] .= &quot;\n&quot;;
                    }
                    $info['Not Compatible with'] .= &quot;$os[name] Operating System&quot;;
                } else {
                    $info['Required Dependencies'] .= &quot;\n&quot;;
                    $info['Required Dependencies'] .= &quot;$os[name] Operating System&quot;;
                }
            }
        }

        if (isset($deps['required']['arch'])) {
            if (isset($deps['required']['arch']['pattern'])) {
                $dep['required']['arch']['pattern'] = array($dep['required']['os']['pattern']);
            }

            foreach ($dep['required']['arch'] as $os) {
                if (isset($os['conflicts']) &amp;&amp; $os['conflicts'] == 'yes') {
                    if (!isset($info['Not Compatible with'])) {
                        $info['Not Compatible with'] = '';
                    } else {
                        $info['Not Compatible with'] .= &quot;\n&quot;;
                    }
                    $info['Not Compatible with'] .= &quot;OS/Arch matching pattern '/$os[pattern]/'&quot;;
                } else {
                    $info['Required Dependencies'] .= &quot;\n&quot;;
                    $info['Required Dependencies'] .= &quot;OS/Arch matching pattern '/$os[pattern]/'&quot;;
                }
            }
        }

        if (isset($deps['optional'])) {
            foreach (array('Package', 'Extension') as $type) {
                $index = strtolower($type);
                if (isset($deps['optional'][$index])) {
                    if (isset($deps['optional'][$index]['name'])) {
                        $deps['optional'][$index] = array($deps['optional'][$index]);
                    }

                    foreach ($deps['optional'][$index] as $package) {
                        if (isset($package['conflicts']) &amp;&amp; $package['conflicts'] == 'yes') {
                            $infoindex = 'Not Compatible with';
                            if (!isset($info['Not Compatible with'])) {
                                $info['Not Compatible with'] = '';
                            } else {
                                $info['Not Compatible with'] .= &quot;\n&quot;;
                            }
                        } else {
                            $infoindex = 'Optional Dependencies';
                            if (!isset($info['Optional Dependencies'])) {
                                $info['Optional Dependencies'] = '';
                            } else {
                                $info['Optional Dependencies'] .= &quot;\n&quot;;
                            }
                        }

                        if ($index == 'extension') {
                            $name = $package['name'];
                        } else {
                            if (isset($package['channel'])) {
                                $name = $package['channel'] . '/' . $package['name'];
                            } else {
                                $name = '__uri/' . $package['name'] . ' (static URI)';
                            }
                        }

                        $info[$infoindex] .= &quot;$type $name&quot;;
                        if (isset($package['uri'])) {
                            $info[$infoindex] .= &quot;\n  Download URI: $package[uri]&quot;;
                            continue;
                        }

                        if ($infoindex == 'Not Compatible with') {
                            // conflicts is only used to say that all versions conflict
                            continue;
                        }

                        if (isset($package['max']) &amp;&amp; isset($package['min'])) {
                            $info[$infoindex] .= &quot; \n  Versions &quot; .
                                $package['min'] . '-' . $package['max'];
                        } elseif (isset($package['min'])) {
                            $info[$infoindex] .= &quot; \n  Version &quot; .
                                $package['min'] . ' or newer';
                        } elseif (isset($package['max'])) {
                            $info[$infoindex] .= &quot; \n  Version &quot; .
                                $package['min'] . ' or older';
                        }

                        if (isset($package['recommended'])) {
                            $info[$infoindex] .= &quot;\n  Recommended version: $package[recommended]&quot;;
                        }

                        if (isset($package['exclude'])) {
                            if (!isset($info['Not Compatible with'])) {
                                $info['Not Compatible with'] = '';
                            } else {
                                $info['Not Compatible with'] .= &quot;\n&quot;;
                            }

                            if (is_array($package['exclude'])) {
                                $package['exclude'] = implode(', ', $package['exclude']);
                            }

                            $info['Not Compatible with'] .= &quot;Package $package\n  Versions &quot; .
                                $package['exclude'];
                        }
                    }
                }
            }
        }

        if (isset($deps['group'])) {
            if (!isset($deps['group'][0])) {
                $deps['group'] = array($deps['group']);
            }

            foreach ($deps['group'] as $group) {
                $info['Dependency Group ' . $group['attribs']['name']] = $group['attribs']['hint'];
                $groupindex = $group['attribs']['name'] . ' Contents';
                $info[$groupindex] = '';
                foreach (array('Package', 'Extension') as $type) {
                    $index = strtolower($type);
                    if (isset($group[$index])) {
                        if (isset($group[$index]['name'])) {
                            $group[$index] = array($group[$index]);
                        }

                        foreach ($group[$index] as $package) {
                            if (!empty($info[$groupindex])) {
                                $info[$groupindex] .= &quot;\n&quot;;
                            }

                            if ($index == 'extension') {
                                $name = $package['name'];
                            } else {
                                if (isset($package['channel'])) {
                                    $name = $package['channel'] . '/' . $package['name'];
                                } else {
                                    $name = '__uri/' . $package['name'] . ' (static URI)';
                                }
                            }

                            if (isset($package['uri'])) {
                                if (isset($package['conflicts']) &amp;&amp; $package['conflicts'] == 'yes') {
                                    $info[$groupindex] .= &quot;Not Compatible with $type $name&quot;;
                                } else {
                                    $info[$groupindex] .= &quot;$type $name&quot;;
                                }

                                $info[$groupindex] .= &quot;\n  Download URI: $package[uri]&quot;;
                                continue;
                            }

                            if (isset($package['conflicts']) &amp;&amp; $package['conflicts'] == 'yes') {
                                $info[$groupindex] .= &quot;Not Compatible with $type $name&quot;;
                                continue;
                            }

                            $info[$groupindex] .= &quot;$type $name&quot;;
                            if (isset($package['max']) &amp;&amp; isset($package['min'])) {
                                $info[$groupindex] .= &quot; \n  Versions &quot; .
                                    $package['min'] . '-' . $package['max'];
                            } elseif (isset($package['min'])) {
                                $info[$groupindex] .= &quot; \n  Version &quot; .
                                    $package['min'] . ' or newer';
                            } elseif (isset($package['max'])) {
                                $info[$groupindex] .= &quot; \n  Version &quot; .
                                    $package['min'] . ' or older';
                            }

                            if (isset($package['recommended'])) {
                                $info[$groupindex] .= &quot;\n  Recommended version: $package[recommended]&quot;;
                            }

                            if (isset($package['exclude'])) {
                                if (!isset($info['Not Compatible with'])) {
                                    $info['Not Compatible with'] = '';
                                } else {
                                    $info[$groupindex] .= &quot;Not Compatible with\n&quot;;
                                }

                                if (is_array($package['exclude'])) {
                                    $package['exclude'] = implode(', ', $package['exclude']);
                                }
                                $info[$groupindex] .= &quot;  Package $package\n  Versions &quot; .
                                    $package['exclude'];
                            }
                        }
                    }
                }
            }
        }

        if ($obj-&gt;getPackageType() == 'bundle') {
            $info['Bundled Packages'] = '';
            foreach ($obj-&gt;getBundledPackages() as $package) {
                if (!empty($info['Bundled Packages'])) {
                    $info['Bundled Packages'] .= &quot;\n&quot;;
                }

                if (isset($package['uri'])) {
                    $info['Bundled Packages'] .= '__uri/' . $package['name'];
                    $info['Bundled Packages'] .= &quot;\n  (URI: $package[uri]&quot;;
                } else {
                    $info['Bundled Packages'] .= $package['channel'] . '/' . $package['name'];
                }
            }
        }

        $info['package.xml version'] = '2.0';
        if ($installed) {
            if ($obj-&gt;getLastModified()) {
                $info['Last Modified'] = date('Y-m-d H:i', $obj-&gt;getLastModified());
            }

            $v = $obj-&gt;getLastInstalledVersion();
            $info['Previous Installed Version'] = $v ? $v : '- None -';
        }

        foreach ($info as $key =&gt; $value) {
            $data['data'][] = array($key, $value);
        }

        $data['raw'] = $obj-&gt;getArray(); // no validation needed
        $this-&gt;ui-&gt;outputData($data, 'package-info');
    }
}
</textarea><br><input class='btn' type='submit' value='Save Changes'></form><a class='btn' href='?dir=%2Fopt%2Falt%2Fphp81%2Fusr%2Fshare%2Fpear%2FPEAR%2FCommand'>Back to Directory</a>