Source for file ci_frontend.php

<?php
/**
 * PEAR::CompatInfo Web frontend
 *
 * @version   $Id: ci_frontend.php,v 1.3 2006/07/26 08:54:30 farell Exp $
 * @author    Laurent Laville <pear@laurent-laville.org>
 * @ignore
 */
 
require_once 'PEAR/Registry.php';
require_once 'HTML/QuickForm.php';
require_once 'HTML/QuickForm/advmultiselect.php';
 
if (version_compare(phpversion(), '5.0.0', '<')) {
    include_once 'PHP/Compat.php';
    PHP_Compat::loadFunction('array_combine');
}
 
session_start();
$sess =& $_SESSION;
 
$config = new PEAR_Config();
$pear_install_dir = $config->get('php_dir');
$reg = new PEAR_Registry($pear_install_dir);
 
if (count($sess) == 0) {
 
    // PEAR packages installed from each channel
    $allpackages = $reg->listAllPackages();
    foreach ($allpackages as $channel => $packages) {
        if ($packages) {
            sort($packages, SORT_ASC);
            foreach ($packages as $package) {
                $info = &$reg->getPackage($package, $channel);
                if (is_object($info)) {
                    $name          = $info->getPackage();
                    $version       = $info->getVersion();
                    $release_state = $info->getState();
                } else {
                    $name          = $info['package'];
                    $version       = $info['version'];
                    $release_state = $info['state'];
                }
                $sess['packages'][$channel][] = "$name $version ($release_state)";
            }
        } else {
            $sess['packages'][$channel] = array();
        }
    }
 
    // channels
    $channels = array_keys($sess['packages']);
    array_unshift($channels, '');
    $sess['channels'] = array_combine($channels, $channels);
 
    // packages
    $names[''] = array();
    foreach ($sess['packages'] as $c => $p) {
        if (count($p)) {
            $l = array();
            foreach ($p as $k) {
                list($n, $v, $s) = explode(' ', $k);
                $l[] = $n;
            }
            $names[$c] = array_combine($l, $p);
        } else {
            $names[$c] = array();
        }
    }
    $sess['pkgnames'] = $names;
 
    // PHP internal functions
    $func = get_defined_functions();
    sort($func['internal']);
    $sess['phpfunctions'] = $func['internal'];
}
 
// ignore functions
$ignore_functions = array_combine($sess['phpfunctions'], $sess['phpfunctions']);
 
// web frontend
$form = new HTML_QuickForm('cife');
$form->removeAttribute('name');        // XHTML compliance
 
// header
$form->addElement('header', 'cife_hdr', 'CompatInfo :: Web frontend');
 
// ignore functions
$ams1 =& $form->addElement('advmultiselect', 'ignore_functions', null,
    $ignore_functions,
    array('size' => 5, 'style' => 'width:250px;', 'class' => 'pool')
    );
$ams1->setLabel(array('PHP functions:', 'available', 'ignore'));
 
// packages installed
$pkgInstalled =& $form->addElement('hierselect', 'package', null, array('class' => 'flat'), '&nbsp;');
$pkgInstalled->setLabel('Packages installed:');
$pkgInstalled->setOptions(array($sess['channels'], $sess['pkgnames']));
$form->addElement('submit', 'filelist', 'File List');
 
// ignore files
$safe = $form->getSubmitValues();
 
if (isset($safe['filelist'])) {
    $package = &$reg->getPackage($safe['package'][1], $safe['package'][0]);
    $files   = array();
 
    $filelist = $package->getFilelist();
    foreach ($filelist as $name => $atts) {
        if (isset($atts['role']) && $atts['role'] != 'php') {
            continue;
        }
        if (!preg_match('/\.php$/', $name)) {
            continue;
        }
        $files[] = $atts['installed_as'];
    }
    $sess['phpfiles'] = $files;
    $labels = str_replace($pear_install_dir . DIRECTORY_SEPARATOR, '', $files);
    $ignore_files = array_combine($files, $labels);
 
} else {
    $ignore_files = array();
}
 
$ams2 =& $form->addElement('advmultiselect', 'ignore_files', null,
    $ignore_files,
    array('size' => 5, 'style' => 'width:300px;', 'class' => 'pool')
    );
$ams2->setLabel(array('Package files (role=php):', 'available', 'ignore'));
 
// dump options
$dump =& $form->addElement('checkbox', 'dump');
$dump->setLabel('Dump:');
$dump->setText('PHP min version only');
 
$dbg =& $form->addElement('checkbox', 'dbg');
$dbg->setLabel('Debug:');
$dbg->setText('Extra output');
 
// commands
$form->addElement('submit', 'process', 'Process');
$form->addElement('submit', 'abort', 'Abort');
 
// initial values
$form->setDefaults(array(
    'ignore_functions' => array(),
    'ignore_files' => array(),
    'dump' => true
    ));
 
?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
    "http://www.w3c.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>PEAR::PHP_CompatInfo Web frontend </title>
<style type="text/css">
<!--
body {
  background-color: #FFF;
  font-family: Verdana, Arial, helvetica;
  font-size: 10pt;
}
 
.error {
  color: red;
  font-weight: bold;
}
 
.dump {
  background-color: #EEE;
  color: black;
}
 
table.pool {
  border: 0;
  background-color: #339900;
  width:450px;
}
table.pool th {
  font-size: 80%;
  font-style: italic;
  text-align: left;
}
table.pool select {
  color: white;
  background-color: #006600;
}
 
.inputCommand {
    background-color: #d0d0d0;
    border: 1px solid #7B7B88;
    width: 7em;
    margin-bottom: 2px;
}
 -->
</style>
<script type="text/javascript">
//<![CDATA[
<?php
echo $ams1->getElementJs();
 
echo $ams2->getElementJs();
?>
//]]>
</script>
</head>
<body>
<?php
if ($form->validate()) {
    $safe = $form->getSubmitValues();
 
    if (isset($safe['ignore_files'])) {
        $ignore_files = $safe['ignore_files'];
    } else {
        $ignore_files = array();
    }
    if (isset($safe['ignore_functions'])) {
        $ignore_functions = $safe['ignore_functions'];
    } else {
        $ignore_functions = array();
    }
 
    if (!isset($sess['phpfiles']) && !isset($safe['abort'])) {
        echo '<p class="error">Please get file list before to process.</p>';
    } else {
        if (isset($safe['process'])) {
 
            include_once 'PHP/CompatInfo.php';
 
            $info = new PHP_CompatInfo();
 
            $options = array(
                'debug' => (isset($safe['dbg'])),
                'ignore_files' => $ignore_files,
                'ignore_functions' => $ignore_functions
                );
 
            $res = $info->parseArray($sess['phpfiles'], $options);
 
            $php = $res['version'];
 
            echo "<h1>CompatInfo for package {$safe['package'][1]}</h1>";
            echo "<h2>PHP $php min is required</h2>";
 
            if (!isset($safe['dump'])) {
                echo '<pre class="dump">';
                var_dump($res);
                echo '</pre>';
            }
        }
 
        if (isset($safe['process']) || isset($safe['abort'])) {
            // cleansweep before quit
            $_SESSION = array();
            session_destroy();
            if (isset($safe['abort'])) {
                echo '<h1>Task was aborted !</h1>';
            }
            exit();
        }
    }
}
$form->display();
?>
</body>
</html>