pkgsrc/lang/pear/files/go-pear.php
taca 213b9e9f82 Update pear package to 1.9.4.
pkgsrc change

* Remove unused XMLUTIL_WRKSRC.
* don't patch a file which we have in our tree, go-pear.php
	- Remove unused code.
	- Prevent deprecated warnings on PHP 5.3.x.

PEAR 1.9.4:

Release date: 2011-07-07 00:27 UTC
Release state: stable

Changelog:

Bug Fixes:

* Bug #17350: "pear install --force" doesn't uninstall files from previous pkg
  versions [dufuz]
* Bug #18362: A whitespace TEMP_DIR path breaks install/upgrade functionality
  [dufuz]
* Bug #18440: bad tmp folder path on install : Unable to create path for
  C:/Program/tmp [dufuz]
* Bug #18581: "config-get -c" not returning channel's configuration when using
  alias [dufuz]
* Bug #18639: regression: installing xdebug fails most likely due to another
  fix [dufuz]

Features

* All System (the class) functions can now take in spaced paths as long as
  they are surrounded in quotes.
  Prior to this it was possible to do that by passing all values in as an
  array (by product of #18362, #18440)
2011-08-20 14:02:29 +00:00

2351 lines
76 KiB
PHP

<?php //; echo; echo "YOU NEED TO RUN THIS SCRIPT WITH PHP!"; echo; echo "Point your webbrowser to it or run: php -q go-pear.php"; echo; exit # -*- PHP -*-
#
# The PEAR installation wizard, both webbased or command line.
#
# Webbased installation:
# 1) Download this file and save it as go-pear.php
# 2) Put go-pear.php on your webserver, where you would put your website
# 3) Open http://yourdomain.example.org/go-pear.php in your browser
# 4) Follow the instructions, done!
#
# Command-line installation (for advanced users):
# 1) Download this file and save it as go-pear.php
# 2) Open a terminal/command prompt and type: php -q go-pear.php
# 3) Follow the instructions, done!
#
# Notes:
# * Get the latest go-pear version from http://pear.php.net/go-pear
# * This installer requires PHP 4.3.0 or newer.
# * On windows, the PHP CLI binary is php.exe, don't forget the -q option if using the CGI binary.
# * The default for the command-line installation is a system-wide configuration file, For a local install use: php -q go-pear.php local
/**
* go-pear is the online PEAR installer: just download it and run it
* (through a browser or command line), it will set up a minimal PEAR
* installation that will be ready for immediate use.
*
* @license http://www.php.net/license/2_02.txt PHP License 2.02
* @version CVS: Id: go-pear 281637 2009-06-04 08:51:45Z clockwerx
* @link http://pear.php.net/package/pearweb_gopear
* @author Tomas V.V.Cox <cox@idecnet.com>
* @author Stig Bakken <ssb@php.net>
* @author Christian Dickmann <dickmann@php.net>
* @author Pierre-Alain Joye <pierre@php.net>
* @author Greg Beaver <cellog@php.net>
* @author Tias Guns <tias@ulyssis.org>
*/
/* $NetBSD: go-pear.php,v 1.4 2011/08/20 14:02:29 taca Exp $ */
$sapi_name = php_sapi_name();
$safe_mode = (bool)ini_get('safe_mode');
if (!$safe_mode) {
set_time_limit(0);
}
@ob_end_clean();
ob_implicit_flush(true);
define('WEBINSTALLER', ($sapi_name != 'cli' && !(substr($sapi_name,0,3)=='cgi' && !isset($_SERVER['GATEWAY_INTERFACE']))));
ini_set('track_errors', true);
ini_set('html_errors', WEBINSTALLER);
ini_set('magic_quotes_runtime', false);
error_reporting( E_ALL & ~E_NOTICE);
define('WINDOWS', (substr(PHP_OS, 0, 3) == 'WIN'));
define('GO_PEAR_VER', '1.1.2');
define('WIN32GUI', !WEBINSTALLER && WINDOWS && $sapi_name=='cli' && which('cscript'));
$destdir = getenv('DESTDIR');
/*
* See bug #23069
*/
if ( WEBINSTALLER && WINDOWS ) {
$php_sapi_name = win32DetectPHPSAPI();
if($php_sapi_name=='cgi'){
$msg = nl2br("
Sorry! The PEAR installer actually does not work on Windows platform
using CGI and Apache. Please install the module SAPI (see
http://www.php.net/manual/en/install.apache.php for the instructions) or
use the CLI (cli\php.exe) in the console.
");
displayHTML('error', $msg);
}
}
if (WEBINSTALLER && isset($_GET['action']) && $_GET['action'] == 'img' && isset($_GET['img'])) {
switch ($_GET['img'])
{
case 'note':
case 'pearlogo':
case 'smallpear':
showImage($_GET['img']);
exit;
default:
exit;
};
}
// Check if PHP version is sufficient
if (function_exists("version_compare") && version_compare(phpversion(), "4.3.0",'<')) {
die("Sorry! Your PHP version is too old. PEAR and this script requires at
least PHP 4.3.0 for stable operation.
It may be that you have a newer version of PHP installed in your web
server, but an older version installed as the 'php' command. In this
case, you need to rebuilt PHP from source.
If your source is 4.3.x or newer, just make sure you don't run
'configure' with --disable-cli, rebuilt and copy sapi/cli/php.
Please upgrade PHP to a newer version, and try again. See you then.
");
}
if (version_compare(phpversion(), "5.3.0", '>')) {
error_reporting(E_ALL & ~E_NOTICE & ~E_DEPRECATED);
}
$gopear_bundle_dir = dirname(__FILE__).'/go-pear-bundle';
$bootstrap_files = array(
'PEAR.php' => 'http://cvs.php.net/viewvc.cgi/pear-core/PEAR.php?view=co&pathrev=PEAR_1_4',
'Archive/Tar.php' => 'http://cvs.php.net/viewvc.cgi/pear/Archive_Tar/Archive/Tar.php?view=co&pathrev=RELEASE_1_3_2',
'Console/Getopt.php' => 'http://cvs.php.net/viewvc.cgi/pear-core/Console/Getopt.php?view=co&pathrev=PEAR_1_4',
);
$bootstrap_pkgs = array( // uses URL like http://pear.php.net/get/%s
'PEAR',
'Structures_Graph',
'XML_Util',
);
$installer_packages = array(
'PEAR',
'Structures_Graph-stable',
'Archive_Tar-stable',
'Console_Getopt-stable',
'XML_Util-stable',
);
$pfc_packages = array(
'PEAR_Frontend_Web-beta' => 'Webbased PEAR Installer',
'PEAR_Frontend_Gtk2' => 'Graphical PEAR installer based on PHP-Gtk2',
'MDB2' => 'database abstraction layer.',
);
$config_desc = array(
'prefix' => 'Installation prefix ($prefix)',
'temp_dir' => 'Temporary files directory',
'bin_dir' => 'Binaries directory',
'php_dir' => 'PHP code directory ($php_dir)',
'doc_dir' => 'Documentation base directory',
'data_dir' => 'Data base directory',
'test_dir' => 'Tests base directory',
);
if(!WEBINSTALLER && WINDOWS){
$config_desc['php_bin'] = 'php.exe path';
}
if (WEBINSTALLER) {
$config_desc['cache_dir'] = 'PEAR Installer cache directory';
$config_desc['cache_ttl'] = 'Cache TimeToLive';
$config_desc['webfrontend_file'] = 'Filename of WebFrontend';
$config_desc['php_bin'] = "php.exe path, optional (CLI command tools)";
}
if (my_env('HTTP_PROXY')) {
$http_proxy = my_env('HTTP_PROXY');
} elseif (my_env('http_proxy')) {
$http_proxy = my_env('http_proxy');
} else {
$http_proxy = '';
}
register_shutdown_function('bail');
detect_install_dirs();
if (WEBINSTALLER) {
@session_start();
// If welcome, just welcome
if (!isset($_GET['step'])) {
$_GET['step'] = 'Welcome';
/* clean up old sessions datas */
session_destroy();
}
if ($_GET['step'] == 'Welcome') {
displayHTML('Welcome');
exit();
}
if (!isset($_SESSION['go-pear']) || isset($_GET['restart'])) {
$_SESSION['go-pear'] = array(
'http_proxy' => $http_proxy,
'config' => array(
'prefix' => dirname(__FILE__),
'bin_dir' => $bin_dir,
'php_bin' => $php_bin,
'php_dir' => '$prefix/PEAR',
'doc_dir' => $doc_dir,
'data_dir' => $data_dir,
'test_dir' => $test_dir,
'temp_dir' => '$prefix/temp',
'cache_dir' => '$php_dir/cache',
'cache_ttl' => 300,
'webfrontend_file' => '$prefix/index.php',
),
'install_pfc' => true,
'install_optional_packages' => array(),
'DHTML' => true,
);
}
// save submited values
if ($_GET['step'] == 'install') {
$_SESSION['go-pear']['http_proxy'] = strip_magic_quotes($_POST['proxy']['host']).':'.strip_magic_quotes($_POST['proxy']['port']);
if ($_SESSION['go-pear']['http_proxy'] == ':') {
$_SESSION['go-pear']['http_proxy'] = '';
};
$config_errors = array();
foreach($_POST['config'] as $key => $value) {
$_POST['config'][$key] = strip_magic_quotes($value);
if ($key != 'cache_ttl' && $key != 'php_bin') {
if ( empty($_POST['config'][$key]) ) {
$config_errors[$key] = 'Please fill this path, you can use $prefix, $php_dir or a full path.';
}
}
}
if( sizeof($config_errors)>0){
$_GET['step'] = 'config';
}
$_SESSION['go-pear']['config'] = $_POST['config'];
$_SESSION['go-pear']['install_pfc'] = (isset($_POST['install_pfc']) && $_POST['install_pfc'] == 'on');
// webinstaller allows to choose pfc packages individually
foreach ($pfc_packages as $key => $value) {
$pos = array_search($key, $_SESSION['go-pear']['install_optional_packages']);
if (isset($_POST[$key]) && $_POST[$key] == 'on' && $pos === false) {
$_SESSION['go-pear']['install_optional_packages'][] = $key;
}
if (!isset($_POST[$key]) && $pos !== false) {
unset($_SESSION['go-pear']['install_optional_packages'][$pos]);
}
}
$_SESSION['go-pear']['DHTML'] = isset($_POST['BCmode']) ? false : true;
}
// export session values
$http_proxy = $_SESSION['go-pear']['http_proxy'];
$GLOBALS['config_vars'] = array_keys($config_desc);
array_unshift($GLOBALS['config_vars'], '');
unset($GLOBALS['config_vars'][0]); // make indices run from 1...
foreach($_SESSION['go-pear']['config'] as $var => $value) {
$$var = $value;
}
$install_pfc = $_SESSION['go-pear']['install_pfc'];
$install_optional_packages = $_SESSION['go-pear']['install_optional_packages'];
if ($_GET['step'] == 'config') {
displayHTML('config');
exit();
}
// Anything past this step has something to do with the installation
}
$origpwd = getcwd();
$config_vars = array_keys($config_desc);
// make indices run from 1...
array_unshift($config_vars, "");
unset($config_vars[0]);
reset($config_vars);
$desclen = max(array_map('strlen', $config_desc));
$descfmt = "%-{$desclen}s";
$first = key($config_vars);
end($config_vars);
$last = key($config_vars);
$progress = 0;
/*
* Checks PHP SAPI version under windows/CLI
*/
if( WINDOWS && !WEBINSTALLER && $php_bin=='') {
print "
We do not find any php.exe, please select the php.exe folder (CLI is
recommanded, usually in c:\php\cli\php.exe)
";
$php_bin_set = false;
} elseif ( WINDOWS && !WEBINSTALLER && strlen($php_bin) ) {
$php_bin_sapi = win32DetectPHPSAPI();
$php_bin_set = true;
switch($php_bin_sapi){
case 'cli':
break;
case 'cgi':
print "
*NOTICE*
We found php.exe under $php_bin, it uses a $php_bin_sapi SAPI. PEAR commandline
tool works well with it, if you have a CLI php.exe available, we
recommand to use it.
";
break;
default:
print "
*WARNING*
We found php.exe under $php_bin, it uses an unknown SAPI. PEAR commandline
tool has not been tested with it, if you have a CLI (or CGI) php.exe available,
we strongly recommand to use it.
";
break;
}
}
####
# Installation stuff
####
// expand all subvars in the config vars
foreach ($config_vars as $n => $var) {
for ($m = 1; $m <= count($config_vars); $m++) {
$var2 = $config_vars[$m];
$$var = str_replace('$'.$var2, $$var2, $$var);
}
$$var = parse_dirname($$var);
}
// temp dir stuff (separate for windows bugs)
if (!empty($temp_dir)) {
$_found = temp_dir($temp_dir);
} else {
$_found = temp_dir();
}
if (!$_found) {
if (!WEBINSTALLER) {
print "
******************************************************************************
FATAL ERROR! We cannot initialize the temp directory. Please be sure to give
full write access to this directory and the install directory.
";
if (!empty($temp_dir)) {
print "'$temp_dir' was given.";
}
exit();
} else { // WEBINSTALLER
if (!is_dir($temp_dir)) {
$config_errors['temp_dir'] = 'FATAL ERROR! This directory does not exist and we can not create it. Create the directory manually or make sure we have full permission in its parent directory.';
if (!WINDOWS) {
$config_errors['temp_dir'] .= '<p>You can grant this permission by logging on to the server and issuing the following command:<br />
<tt>mkdir '.dirname($temp_dir).' && chmod 0777 '.dirname($temp_dir).'</tt></p>';
}
} else { // is_dir(temp_dir)
$config_errors['temp_dir'] = 'FATAL ERROR! This directory exists, but we have no write permission in it.';
if (!WINDOWS) {
$config_errors['temp_dir'] .= '<p>You can grant this permission by logging on to the server and issuing the following command:<br />
<tt>chmod 0777 '.$temp_dir.'</tt></p>';
}
}
}
}
if (@is_dir($ptmp)) {
chdir($ptmp);
}
// check every dir, existence and permissions
foreach ($config_vars as $var) {
if (!preg_match('/_dir$/', $var) || $var == 'temp_dir') {
continue;
}
$dir = ($destdir ? $destdir : '').$$var;
if (!@is_dir($dir)) {
if (!mkdir_p($dir)) {
if (!WEBINSTALLER) {
$root = WINDOWS ? 'administrator' : 'root';
bail("Unable to create {$config_desc[$var]} $dir.
Run this script as $root or pick another location.\n");
} else { // WEBINSTALLER
$config_errors[$var] = 'ERROR! This directory does not exist and we can not create it. Create the directory manually or make sure we have full permission in its parent directory.';
if (!WINDOWS) {
$config_errors[$var] .= '<p>You can grant this permission by logging on to the server and issuing the following command:<br />
<tt>mkdir '.dirname($dir).' && chmod 0777 '.dirname($dir).'</tt></p>';
}
}
}
}
if (WEBINSTALLER && @is_dir($dir) && !is_writable($dir)) {
$config_errors[$var] = 'ERROR! This directory exists, but we have no write permission in it.';
if (!WINDOWS) {
$config_errors[$var] .= '<p>You can grant this permission by logging on to the server and issuing the following command:<br />
<tt>chmod 0777 '.$dir.'</tt></p>';
}
}
}
// check every file, existence and permissions
foreach ($config_vars as $var) {
if (!preg_match('/_file$/', $var)) {
continue;
}
$file = $$var;
$dir = dirname($file);
if (!file_exists($file) && !is_writable($dir)) {
if (!WEBINSTALLER) {
$root = WINDOWS ? 'administrator' : 'root';
bail("Unable to create {$config_desc[$var]} $file.
Run this script as $root or pick another location.\n");
} else { // WEBINSTALLER
$config_errors[$var] = 'ERROR! This file does not exist and we can not create it. Make sure we have full permission in its parent directory.';
if (!WINDOWS) {
$config_errors[$var] .= '<p>You can grant this permission by logging on to the server and issuing the following command:<br />
<tt>chmod 0777 '.$dir.'</tt></p>';
}
}
} elseif (WEBINSTALLER && file_exists($file) && !is_writable($file)) {
$config_errors[$var] = 'ERROR! This file exists, but we have no write permission on it.';
if (!WINDOWS) {
$config_errors[$var] .= '<p>You can grant this permission by logging on to the server and issuing the following command:<br />
<tt>chmod 0777 '.$file.'</tt></p>';
}
}
}
if (WEBINSTALLER) {
if ( isset($config_errors) && sizeof($config_errors) ) {
displayHTML('config');
exit();
} else {
if (isset($_SESSION['go-pear']['DHTML']) && $_SESSION['go-pear']['DHTML'] == true && $_GET['step'] == 'install') {
$_GET['step'] = 'preinstall';
}
if ($_GET['step'] != 'install' && $_GET['step'] != 'install-progress') {
displayHTML($_GET['step']);
exit;
}
if ($_GET['step'] == 'install-progress') {
displayHTMLHeader();
echo "Starting installation ...<br/>";
}
ob_start();
}
}
if (!WEBINSTALLER) {
$install_optional_packages = array();
}
####
# Download
####
if (function_exists('set_include_path')) {
set_include_path($ptmp);
} else {
ini_set('include_path', $ptmp);
}
if ($install_pfc) {
$to_install = array_merge($installer_packages, array_keys($pfc_packages));
} else {
$to_install = $installer_packages;
// webinstaller allows to choose pfc packages individually
foreach ($pfc_packages as $pkg => $desc) {
if (in_array($pkg, $install_optional_packages)) {
array_push($to_install, $pkg);
}
}
}
// gopear_bundle usage
$local_dir = array();
if (file_exists($gopear_bundle_dir) || is_dir($gopear_bundle_dir)) {
$dh = @opendir($gopear_bundle_dir);
while($file = @readdir($dh)) {
if ($file == '.' || $file == '..' || !is_file($gopear_bundle_dir.'/'.$file)) {
continue;
}
$_pos = strpos($file, '-');
if ($_pos === false) {
$local_dir[$file] = $file;
} else {
$local_dir[substr($file, 0, $_pos)] = $file;
}
}
closedir($dh);
unset($dh, $file, $_pos);
}
print "\n".'Bootstrapping Installer...................'."\n";
displayHTMLProgress($progress = 5);
// Bootstrap needed ?
$nobootstrap = false;
if ($nobootstrap) {
print('Using previously install ... ');
if (function_exists('set_include_path')) {
set_include_path($php_dir);
} else {
ini_set('include_path', $php_dir);
}
include_once 'PEAR.php';
print "ok\n";
} else {
foreach($bootstrap_files as $name => $url) {
$file = basename($name);
$dir = dirname($name);
print 'Bootstrapping '.$name.'............';
displayHTMLProgress($progress += round(14 / count($bootstrap_files)));
if ($dir != '' && $dir != '.') {
mkdir($dir, 0700);
}
if (in_array($file, $local_dir)) {
copy($gopear_bundle_dir.'/'.$file, $name);
echo '(local) ';
} else {
download_url($url, $name, $http_proxy);
echo '(remote) ';
}
include_once $name;
print "ok\n";
}
}
unset($nobootstrap, $file, $url, $name, $dir);
PEAR::setErrorHandling(PEAR_ERROR_DIE, "\n%s\n");
print "\n".'Extracting installer..................'."\n";
displayHTMLProgress($progress = 20);
// Extract needed ?
$noextract = false;
if ($noextract) {
print('Using previously installed installer ... ');
print "ok\n";
} else {
$bootstrap_pkgs_tarballs = array();
foreach ($bootstrap_pkgs as $pkg) {
$tarball = null;
if (isset($local_dir[$pkg])) {
echo str_pad("Using local package: $pkg", max(38,21+strlen($pkg)+4), '.');
copy($gopear_bundle_dir.'/'.$local_dir[$pkg], $local_dir[$pkg]);
$tarball = $local_dir[$pkg];
} else {
print str_pad("Downloading package: $pkg", max(38,21+strlen($pkg)+4), '.');
$url = sprintf($urltemplate, $pkg);
$pkg = str_replace('-stable', '', $pkg);
$tarball = download_url($url, null, $http_proxy);
}
displayHTMLProgress($progress += round(19 / count($bootstrap_pkgs)));
$fullpkg = substr($tarball, 0, strrpos($tarball, '.'));
$tar = new Archive_Tar($tarball, $have_gzip);
if (!$tar->extractModify($ptmp, $fullpkg)) {
bail("Extraction for $fullpkg failed!\n");
}
$bootstrap_pkgs_tarballs[$pkg] = $tarball;
print "ok\n";
}
}
unset($noextract, $registry, $pkg, $tarball, $url, $fullpkg, $tar);
print "\n".'Preparing installer..................'."\n";
displayHTMLProgress($progress = 40);
// Default for sig_bin
putenv('PHP_PEAR_SIG_BIN=""');
// Default for sig_keydir
putenv('PHP_PEAR_SIG_KEYDIR=""');
putenv('PHP_PEAR_DOWNLOAD_DIR=' . $temp_dir . '/download');
putenv('PHP_PEAR_TEMP_DIR=' . $temp_dir);
include_once "PEAR/Config.php";
include_once "PEAR/Command.php";
include_once "PEAR/Registry.php";
if (WEBINSTALLER || isset($_SERVER['argv'][1]) && $_SERVER['argv'][1] == 'local') {
$config = &PEAR_Config::singleton("@WRKSRC@"."/pear.conf", '');
} else {
$config = &PEAR_Config::singleton();
}
$config->set('preferred_state', 'stable');
foreach ($config_vars as $var) {
if (isset($$var) && $$var != '') {
$config->set($var, $$var);
}
}
$config->set('download_dir', $temp_dir . '/download');
$config->set('temp_dir', $temp_dir);
$config->set('http_proxy', $http_proxy);
$config->store();
$registry = new PEAR_Registry(($destdir ? $destdir : '').$php_dir);
PEAR_Command::setFrontendType('CLI');
PEAR::staticPushErrorHandling(PEAR_ERROR_DIE); //fail silently
$ch_cmd = &PEAR_Command::factory('update-channels', $config);
$ch_cmd->run('update-channels', $options, array());
PEAR::staticPopErrorHandling(); // reset error handling
unset($ch_cmd);
print "\n".'Installing selected packages..................'."\n";
displayHTMLProgress($progress = 45);
$install = &PEAR_Command::factory('install', $config);
foreach ($to_install as $pkg) {
if (strpos($pkg, '-')) {
$pkg_basename = substr($pkg, 0, strpos($pkg, '-'));
} else {
$pkg_basename = $pkg;
}
if (in_array($pkg, $installer_packages)) {
$options = array('nodeps' => true);
} else {
$options = array('onlyreqdeps' => true);
}
if ($destdir) {
$options['packagingroot'] = $destdir;
$options['force'] = true;
$options['nodeps'] = true;
}
if ($registry->packageExists($pkg) || $registry->packageExists($pkg_basename)) {
print(str_pad("Package: $pkg", max(50,9+strlen($pkg)+4), '.').' already installed ... ok'."\n");
displayHTMLProgress($progress += round(50 / count($to_install)));
continue;
}
if (in_array($pkg_basename, $bootstrap_pkgs)) {
print(str_pad("Installing bootstrap package: $pkg_basename", max(50,30+strlen($pkg_basename)+4), '.')."...");
displayHTMLProgress($progress += round(25 / count($to_install)));
$install->run('install', $options, array($bootstrap_pkgs_tarballs[$pkg_basename]));
} elseif (isset($local_dir[$pkg_basename])) {
print(str_pad("Installing local package: $pkg", max(50,26+strlen($pkg)+4), '.')."...");
displayHTMLProgress($progress += round(25 / count($to_install)));
$install->run('install', $options, array($gopear_bundle_dir.'/'.$local_dir[$pkg_basename]));
} else { // no local copy
print(str_pad("Downloading and installing package: $pkg", max(50,36+strlen($pkg)+4), '.')."...");
displayHTMLProgress($progress += round(25 / count($to_install)));
$install->run('install', $options, array($pkg));
}
displayHTMLProgress($progress += round(25 / count($to_install)));
}
unset($pkg, $pkg_basename, $options, $bootstrap_pkgs_tarballs);
/* TODO: Memory exhaustion in webinstaller : / (8Mb)
print "\n".'Making sure every package is at the latest version........';
$install->run('upgrade-all', array('soft' => true), array());
print "ok\n";
*/
$config->set('download_dir', '/tmp' . '/download');
$config->set('temp_dir', '/tmp');
$config->store();
unset($config, $registry, $install);
displayHTMLProgress($progress = 99);
// Base installation finished
// Set of functions following
/**
* Parse the given dirname
* eg. expands '~' etc
*
* @param string $dir directory, from input
* @return string parsed directory
*/
function parse_dirname($dir)
{
if (!isset($_ENV['HOME'])) {
if (strpos($dir, '~') === 0) {
if (WEBINSTALLER) {
die('<p><em>Can\'t use the \'~\' symbol for homedir substitution, write the directory out in full.</em></p>');
} else {
die('Can\'t use the \'~\' symbol for homedir substitution, write the directory out in full.');
}
}
return $dir;
}
$home_root = $_ENV['HOME'];
// first strip last slash, if available
if (substr($home_root, -1) == DIRECTORY_SEPARATOR) {
$home_root = substr($home_root, 0, -1);
}
if (strpos($dir, '~/') === 0) {
// eg ~/ = /home/tias/
$dir = substr_replace($dir, $home_root, 0, 1);
} elseif (strpos($dir, '~') === 0) {
// eg ~tias/ = /home/tias/
// then delete user-dir
$home_root = dirname($home_root) . DIRECTORY_SEPARATOR;
$dir = substr_replace($dir, $home_root, 0, 1);
}
return $dir;
}
// {{{ download_url()
function download_url($url, $destfile = null, $proxy = null)
{
$use_suggested_filename = ($destfile === null);
if ($use_suggested_filename) {
$destfile = basename($url);
}
$tmp = parse_url($url);
if (empty($tmp['port'])) {
$tmp['port'] = 80;
}
if (empty($proxy)) {
$fp = fsockopen($tmp['host'], $tmp['port'], $errno, $errstr);
//print "\nconnecting to $tmp[host]:$tmp[port]\n";
} else {
$tmp_proxy = parse_url($proxy);
$phost = $tmp_proxy['host'];
$pport = $tmp_proxy['port'];
$fp = fsockopen($phost, $pport, $errno, $errstr);
//print "\nconnecting to $phost:$pport\n";
}
if (!$fp) {
bail("download of $url failed: $errstr ($errno)\n");
// If valid URL but error, no CURL extentions installed
}
if (empty($proxy)) {
$path = $tmp['path'];
} else {
$path = "http://$tmp[host]:$tmp[port]$tmp[path]";
}
if (isset($tmp['query'])) {
$path .= "?$tmp[query]";
}
if (isset($tmp['fragment'])) {
$path .= "#$tmp[fragment]";
}
$request = "GET $path HTTP/1.0\r\nHost: $tmp[host]:$tmp[port]\r\n".
"User-Agent: go-pear\r\n";
if (!empty($proxy) && $tmp_proxy['user'] != '') {
$request .= 'Proxy-Authorization: Basic ' .
base64_encode($tmp_proxy['user'] . ':' . $tmp_proxy['pass']) . "\r\n";
}
$request .= "\r\n";
fwrite($fp, $request);
$cdh = "content-disposition:";
$cdhl = strlen($cdh);
$content_length = 0;
while ($line = fgets($fp, 2048)) {
if (trim($line) == '') {
break;
}
if (preg_match('/^Content-Length: (.*)$/i', $line, $matches)) {
$content_length = trim($matches[1]);
}
if ($use_suggested_filename && !strncasecmp($line, $cdh, $cdhl)) {
if (eregi('filename="([^"]+)"', $line, $matches)) {
$destfile = basename($matches[1]);
}
}
}
displayHTMLSetDownload($destfile);
$wp = fopen($destfile, "wb");
if (!$wp) {
bail("could not open $destfile for writing\n");
}
$bytes_read = 0;
$progress = 0;
while ($data = fread($fp, 2048)) {
fwrite($wp, $data);
$bytes_read += strlen($data);
if ($content_length != 0 && floor($bytes_read * 10 / $content_length) != $progress) {
$progress = floor($bytes_read * 10 / $content_length);
displayHTMLDownloadProgress($progress * 10);
};
}
displayHTMLDownloadProgress(100);
fclose($fp);
fclose($wp);
displayHTMLSetDownload('');
return $destfile;
}
// }}}
// {{{ which()
function which($program, $dont_search_in = false)
{
if (WINDOWS) {
if ($_path=my_env('Path')) {
$dirs = explode(';', $_path);
} else {
$dirs = explode(';', my_env('PATH'));
}
foreach ($dirs as $i => $dir) {
$dirs[$i] = strtolower(realpath($dir));
}
if ($dont_search_in) {
$dont_search_in = strtolower(realpath($dont_search_in));
}
if ($dont_search_in &&
($key = array_search($dont_search_in, $dirs)) !== false)
{
unset($dirs[$key]);
}
foreach ($dirs as $dir) {
$dir = str_replace('\\\\', '\\', $dir);
if (!strlen($dir)) {
continue;
}
if ($dir{strlen($dir) - 1} != '\\') {
$dir .= '\\';
}
$tmp = $dir . $program;
$info = pathinfo($tmp);
if (in_array(strtolower($info['extension']),
array('exe', 'com', 'bat', 'cmd'))) {
if (file_exists($tmp)) {
return strtolower($tmp);
}
} elseif (file_exists($ret = $tmp . '.exe') ||
file_exists($ret = $tmp . '.com') ||
file_exists($ret = $tmp . '.bat') ||
file_exists($ret = $tmp . '.cmd')) {
return strtolower($ret);
}
}
} else {
$dirs = explode(':', my_env('PATH'));
if ($dont_search_in &&
($key = array_search($dont_search_in, $dirs)) !== false)
{
unset($dirs[$key]);
}
foreach ($dirs as $dir) {
if (is_executable("$dir/$program")) {
return "$dir/$program";
}
}
}
return false;
}
// }}}
// {{{ bail()
function bail($msg = '')
{
global $ptmp, $origpwd;
if ($ptmp && is_dir($ptmp)) {
chdir($origpwd);
rm_rf($ptmp);
}
if ($msg && WEBINSTALLER) {
$msg = @ob_get_contents() ."\n\n". $msg;
@ob_end_clean();
displayHTML('error', $msg);
exit;
};
if ($msg && !WEBINSTALLER) {
die($msg);
}
}
// }}}
// {{{ mkdir_p()
function mkdir_p($dir, $mode = 0777)
{
if (@is_dir($dir)) {
return true;
}
$parent = dirname($dir);
$ok = true;
if (!@is_dir($parent) && $parent != $dir) {
$ok = mkdir_p(dirname($dir), $mode);
}
if ($ok) {
$ok = @mkdir($dir, $mode);
// This is handled in the caller function (eg. webfrontend or not)
//if (!$ok) {
// print "mkdir failed: <$dir>\n";
//}
}
return $ok;
}
// }}}
// {{{ rm_rf()
function rm_rf($path)
{
if (@is_dir($path) && is_writable($path)) {
$dp = opendir($path);
while ($ent = readdir($dp)) {
if ($ent == '.' || $ent == '..') {
continue;
}
$file = $path . DIRECTORY_SEPARATOR . $ent;
if (@is_dir($file)) {
rm_rf($file);
} elseif (is_writable($file)) {
unlink($file);
} else {
echo $file . "is not writable and cannot be removed.
Please fix the permission or select a new path.\n";
}
}
closedir($dp);
return rmdir($path);
} else {
return @unlink($path);
}
}
// }}}
// {{{ tmpdir()
/*
* Fixes for winXP/wrong tmp set by Urs Gehrig (urs@circle.ch)
*/
function temp_dir($default=false)
{
global $ptmp, $prefix;
if ($default) {
if (!@is_dir($default)) {
if (!mkdir_p($default)) {
return false;
}
}
/* try it really, is_writable is buggy with openbasedir */
$fh = @fopen(realpath($default) . "/test","wb");
if ($fh) {
// desparately try to set temp dir any possible way, see bug #13167
$ptmp = $_temp = $temp_dir = $default;
putenv('TMPDIR='.$default);
return true;
} else {
return false;
}
}
$_temp = false;
if (WINDOWS){
if ( my_env('TEMP') ) {
$_temp = my_env('TEMP');
} elseif ( my_env('TMP') ) {
$_temp = my_env('TMP');
} elseif ( my_env('windir') ) {
$_temp = my_env('windir') . '\temp';
} elseif ( my_env('SystemRoot') ) {
$_temp = my_env('SystemRoot') . '\temp';
}
// handle ugly ENV var like \Temp instead of c:\Temp
$dirs = explode("\\", realpath($_temp));
if(strpos($_temp, ":") != 1) {
unset($_temp);
$_dirs = array();
foreach($dirs as $val) {
if((boolean)$val ) {
$_dirs[] = str_replace("/", "", $val);
}
}
unset($dirs);
$dirs = $_dirs;
array_unshift ($dirs, "c:" );
$_temp = $dirs[0];
for($i = 1;$i < count($dirs);$i++) {
$_temp .= "//" . $dirs[$i];
}
}
$ptmp = $_temp;
} else {
$_temp = my_env('TMPDIR');
if (!$_temp) {
if (is_writable('/tmp')) {
$_temp = '/tmp';
}
}
}
// If for some reason the user has no rights to access to
// the standard tempdir, we assume that he has the right
// to access his prefix and choose $prefix/tmp as tempdir
if (!$_temp || !is_writable($_temp)) {
print "System's Tempdir failed, trying to use \$prefix/tmp ...";
$res = mkdir_p($prefix.'/tmp');
if (!$res) {
bail('mkdir '.$prefix.'/tmp'.' ... failed');
}
$ptmp = $prefix . '/tmp';
$_temp = tempnam($prefix.'/tmp', 'gope');
rm_rf($_temp);
mkdir_p($_temp, 0700);
$ok = @chdir($ptmp);
if (!$ok) { // This should not happen, really ;)
bail('chdir '.$ptmp.' ... failed');
}
print "ok\n";
// Adjust TEMPDIR envvars
if (!isset($_ENV)) {
$_ENV = array();
}
$_ENV['TMPDIR'] = $_ENV['TEMP'] = $prefix.'/tmp';
} else {
$_temp = tempnam($_temp.'/tmp', 'gope');
}
$temp_dir = $ptmp = $_temp;
return true;
}
// }}}
// {{{ my_env()
/*
(cox) In my system PHP 4.2.1 (both cgi & cli) $_ENV is empty
but getenv() does work fine
*/
function my_env($var)
{
if (is_array($_ENV) && isset($_ENV[$var])) {
return $_ENV[$var];
}
return getenv($var);
}
// }}}
// {{{ detect_install_dirs()
function detect_install_dirs($_prefix = null) {
global $temp_dir, $prefix, $bin_dir, $php_dir, $php_bin, $doc_dir, $data_dir, $test_dir;
if (WINDOWS) {
if ($_prefix === null) {
$prefix = getcwd();
} else {
$prefix = $_prefix;
}
if (!@is_dir($prefix)) {
if (@is_dir('c:\php5')) {
$prefix = 'c:\php5';
} elseif (@is_dir('c:\php4')) {
$prefix = 'c:\php4';
} elseif (@is_dir('c:\php')) {
$prefix = 'c:\php';
}
}
$bin_dir = '$prefix';
$php_dir = '$prefix\pear';
$doc_dir = '$php_dir\docs';
$data_dir = '$php_dir\data';
$test_dir = '$php_dir\tests';
$temp_dir = '$prefix\temp';
/*
* Detects php.exe
*/
if( $t=getenv('PHP_PEAR_PHP_BIN') ){
$php_bin = $t;
} elseif ($t=getenv('PHP_BIN') ) {
$php_bin = $t;
} elseif ( $t=which('php') ) {
$php_bin = $t;
} elseif ( is_file($prefix.'\cli\php.exe') ) {
$php_bin = $prefix.'\cli\php.exe';
} elseif ( is_file($prefix.'\php.exe') ) {
$php_bin = $prefix.'\php.exe';
}
if( $php_bin && !is_file($php_bin) ){
$php_bin = '';
} else {
if(!ereg(":",$php_bin)){
$php_bin = getcwd().DIRECTORY_SEPARATOR.$php_bin;
}
}
if (!is_file($php_bin)) {
if (is_file('c:/php/cli/php.exe')) {
$php_bin = 'c:/php/cli/php.exe';
} elseif (is_file('c:/php5/php.exe')) {
$php_bin = 'c:/php5/php.exe';
} elseif (is_file('c:/php4/cli/php.exe')) {
$php_bin = 'c:/php4/cli/php.exe';
}
}
} else {
if ($_prefix === null) {
#$prefix = dirname(PHP_BINDIR);
$prefix = "@PREFIX@";
} else {
$prefix = $_prefix;
}
$bin_dir = '$prefix/bin';
#$php_dir = '$prefix/share/pear';
$php_dir = '$prefix/lib/php';
$doc_dir = '$php_dir/doc';
$data_dir = '$php_dir/data';
$test_dir = '$php_dir/test';
$temp_dir = '@WRKSRC@/tmp';
}
}
// }}}
// {{{ displayHTMLHeader
function displayHTMLHeader()
{
?>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<title>PEAR :: Installer :: Go-PEAR</title>
<style type="text/css">
<!--
a {
color:#000000;
text-decoration: none;
}
a:visited {
color:#000000;
text-decoration: none;
}
a:active {
color:#000000;
text-decoration: none;
}
a:hover {
color:#000000;
text-decoration: underline;
}
a.green {
color:#006600;
text-decoration: none;
}
a.green:visited {
color:#006600;
text-decoration: none;
}
a.green:active {
color:#006600;
text-decoration: none;
}
a.green:hover {
color:#006600;
text-decoration: underline;
}
body, td, th {
font-family: verdana,arial,helvetica,sans-serif;
font-size: 90%;
}
p {
font-family: verdana,arial,helvetica,sans-serif;
}
th.pack {
color: #FFFFFF;
background: #009933;
text-align: right;
}
td.package_info_title {
color: #006600;
font-weight: bold;
}
th.others {
color: #006600;
text-align: left;
}
em {
font-weight: bold;
font-style: italic;
}
.green {
color: #006600;
}
.red {
color: #ff0000;
}
.grey {
color: #a9a9a9;
}
span.headline {
font-family: verdana,arial,helvetica,sans-serif;
font-size: 125%;
font-weight: bold;
color: #ffffff;
}
span.title {
font-family: verdana,arial,helvetica,sans-serif;
font-size: 110%;
font-weight: bold;
color: #006600;
}
.newsDate {
font-size: 85%;
font-style: italic;
color: #66cc66;
}
.compact {
font-family: arial, helvetica, sans-serif;
font-size: 90%;
}
.menuWhite {
font-family: verdana,arial,helvetica,sans-serif;
font-size: 75%;
color: #ffffff;
}
.menuBlack {
font-family: verdana,arial,helvetica,sans-serif;
text-decoration: none;
font-weight: bold;
font-size: 75%;
color: #000000;
}
.sidebar {
font-size: 85%;
}
code, pre, tt {
font-family: Courier, "Courier New", monospace;
font-size: 90%;
}
pre.php {
border-color: black;
border-style: dashed;
border-width: 1px;
background-color: #eeeeee;
padding: 5px;
}
h1 {
font-family: verdana,arial,helvetica,sans-serif;
font-size: 140%;
font-weight: bold;
color: #006600;
}
h2 {
font-family: verdana,arial,helvetica,sans-serif;
font-size: 125%;
font-weight: bold;
color: #006600;
}
h3 {
font-family: verdana,arial,helvetica,sans-serif;
font-size: 110%;
font-weight: bold;
color: #006600;
}
small {
font-family: verdana,arial,helvetica,sans-serif;
font-size: 75%;
}
a.small {
font-family: verdana,arial,helvetica,sans-serif;
font-size: 75%;
text-decoration: none;
}
.tableTitle {
font-family: verdana,arial,helvetica,sans-serif;
font-weight: bold;
}
.tableExtras {
font-family: verdana,arial,helvetica,sans-serif;
font-size: 85%;
color: #FFFFFF;
}
input {
font-family: verdana,arial,helvetica,sans-serif;
}
textarea {
font-family: verdana,arial,helvetica,sans-serif;
}
input.small, select.small {
font-family: verdana,arial,helvetica,sans-serif;
font-size: 75%;
}
textarea.small {
font-family: verdana,arial,helvetica,sans-serif;
font-size: 75%;
}
form {
margin-bottom : 0;
}
hr {
text-align: left;
width: 80%;
}
-->
</style>
<meta name="description" content="This is the Web Interface of the PEAR Installer" />
</head>
<body topmargin="0" leftmargin="0"
marginheight="0" marginwidth="0"
bgcolor="#ffffff"
text="#000000"
link="#006600"
alink="#cccc00"
vlink="#003300"
>
<?php
}
// }}}
// {{{ displayHTML
function displayHTML($page = 'Welcome', $data = array())
{
global $pfc_packages;
displayHTMLHeader();
?>
<a name="TOP" /></a>
<table border="0" cellspacing="0" cellpadding="0" height="48" width="100%">
<tr bgcolor="#339900">
<td align="left" width="120">
<img src="<?php echo basename(__FILE__); ?>?action=img&amp;img=pearlogo" width="104" height="50" vspace="2" hspace="5" alt="PEAR">
</td>
<td align="left" valign="middle" width="20">
&nbsp;
</td>
<td align="left" valign="middle">
<span class="Headline">Go-PEAR Installer</span>
</td>
</tr>
<tr bgcolor="#003300"><td colspan="3"></td></tr>
<tr bgcolor="#006600">
<td align="right" valign="top" colspan="3">
<span style="color: #ffffff">Version <?php echo GO_PEAR_VER; ?></span>&nbsp;<br />
</td>
</tr>
<tr bgcolor="#003300"><td colspan="3"></td></tr>
</table>
<table cellpadding="0" cellspacing="0" width="100%">
<tr valign="top">
<td bgcolor="#f0f0f0" width="100">
<table width="200" border="0" cellpadding="4" cellspacing="0">
<tr valign="top">
<td style="font-size: 90%" align="left" width="200">
<p><br />
<?php
$menus = array('Welcome' => 'Welcome to Go-PEAR',
'config' => 'Configuration',
'preinstall' => 'Installation',
'install' => 'Completed');
$after_current = false;
// Menu robustness (a bit low, but better then never)
if ($page == 'error') {
$_GET['last'] = $_GET['step'];
$after_current = true;
} elseif (!array_key_exists($page, $menus)) {
$page = 'Welcome';
}
foreach ($menus as $menu => $descr) {
print('<img src="'.basename(__FILE__).'?action=img&amp;img=smallpear" alt="" />');
if (!$after_current) {
$class = '';
if ($page == $menu) {
$class = 'green';
}
if (!isSet($_GET['last'])) { $_GET['last'] = $page; }
print('<a href="'.basename(__FILE__).'?step='.$menu.'&last='.$_GET['last'].'" class="'.$class.'">'.$descr.'</a><br />');
if ($_GET['last'] == $menu) {
$after_current = true;
}
} else {
print('<span class="grey">'.$descr.'</span><br />');
}
}
?>
</td>
</tr>
</table>
</td>
<td bgcolor="#cccccc" width="1" background="/gifs/checkerboard.gif"></td>
<td>
<table width="100%" cellpadding="10" cellspacing="0">
<tr>
<td valign="top">
<table border="0">
<tr>
<td width="20">
</td>
<td>
<?php
if ($page == 'error') {
?>
<span class="title">Error</span><br/>
<br/>
<?php
$value = $data;
if (preg_match('/ok$/', $value)) {
$value = preg_replace('/(ok)$/', '<span class="green">\1</span>', $value);
}
if (preg_match('/failed$/', $value)) {
$value = preg_replace('/(failed)$/', '<span class="red">\1</span>', $value);
}
if (preg_match('/^install ok:/', $value)) {
$value = preg_replace('/^(install ok:)/', '<span class="green">\1</span>', $value);
}
if (preg_match('/^Warning:/', $value)) {
$value = '<span style="color: #ff0000">'.$value.'</span>';
}
echo nl2br($value);
} elseif ($page == 'Welcome') {
?>
<span class="title">Welcome to go-pear <?php echo GO_PEAR_VER; ?>!</span><br/>
<p>
Go-pear will install Pear, its Web Frontend and all the needed files. This<br/>
frontend is your tool for PEAR installation and maintenance.
</p>
<p>
Go-pear also lets you download and install the following optional PEAR<br/>
packages: <?php echo implode(', ', array_keys($GLOBALS['pfc_packages'])); ?>.
</p>
<a href="<?php echo basename(__FILE__); ?>?step=config&restart=1" class="green">Next &gt;&gt;</a>
<?php
} elseif ($page == 'config') {
if (!empty($GLOBALS['http_proxy'])) {
$tmp_proxy = parse_url($GLOBALS['http_proxy']);
$proxy_host = $tmp_proxy['scheme'] . '://';
if ($tmp_proxy['user'] != '') {
$proxy_host .= $tmp_proxy['user'];
if ($tmp_proxy['pass'] != '') {
$proxy_host .= ':' . $tmp_proxy['pass'];
}
$proxy_host .= '@';
}
$proxy_host .= $tmp_proxy['host'];
$proxy_port = $tmp_proxy['port'];
} else {
$proxy_host = $proxy_port = '';
}
?>
<form action="<?php echo basename(__FILE__);?>?step=install" method="post">
<!-- Packages stuff -->
<span class="title">Packages</span>
<p>
The following PEAR packages will be installed. You can select some optional<br />
packages to be installed by go-pear too:<br />
</p>
<table border="0">
<tr>
<th>&nbsp;</th><th>Package</th><th width="65%">Description</th>
</tr><tr>
<td>(required)</td><td>PEAR core</td><td>PEAR Base System</td>
</tr>
<?php
// automatically install frontend
$frontend = 'PEAR_Frontend_Web-beta';
print('<tr><td>(required)<input type="hidden" name="'.$frontend.'" value="on" /></td><td>'.$frontend.'</td><td>'.$GLOBALS['pfc_packages'][$frontend].'</td></tr>');
unset($GLOBALS['pfc_packages'][$frontend]);
foreach ($GLOBALS['pfc_packages'] as $var => $descr) {
$checked = '';
if (in_array($var, $GLOBALS['install_optional_packages'])) { $checked = ' checked'; }
printf('<tr><td align="center"><input type="checkbox" name="%s"%s></td><td>%s</td><td>%s</td></tr>',
$var,
$checked,
$var,
$descr);
}
?>
</table>
<hr />
<!-- Configuration stuff -->
<span class="title">Configuration</span>
<p>
Below is a suggested file layout for your new PEAR installation.
</p>
<!--
<p>
<table border="0">
<tr>
<td valign="top"><img src="<?php echo basename(__FILE__); ?>?action=img&amp;img=note" /></td>
<td>
<span class="green">
<b>Note:</b> Make sure that PHP has the permission to access the specified<br/>
directories.
</span>
</td>
</tr>
</table>
</p>
-->
<table border="0" width="80%">
<?php
foreach ($GLOBALS['config_vars'] as $n => $var) {
$error_class = '';
if (is_array($GLOBALS['config_errors']) && array_key_exists($var, $GLOBALS['config_errors'])) {
// www_error for this var
$error_class = ' class="red"';
}
printf('<tr><td>%d. %s</td><td><input type="text" name="config[%s]" value="%s"%s></td></tr>',
$n,
$GLOBALS['config_desc'][$var],
$var,
$_SESSION['go-pear']['config'][$var],
$error_class);
// prefix dir, check perm (uses GLOBALS: resolved subvars)
if ($n == 1 && is_dir($GLOBALS[$var]) && !is_writable($GLOBALS[$var])) {
$error = '<em>WARNING!</em> No permission to create subdirectories in this prefix dir. Unless you fix this, the default configuration will not work.';
if (!WINDOWS) {
$error .= '<p>You can grant this permission by logging on to the server and issuing the following command:<br />
<tt>chmod 0777 '.$GLOBALS[$var].'</tt></p>';
}
print('<tr><td colspan="2" class="green">'.$error.'</td></tr>');
}
if (is_array($GLOBALS['config_errors']) && array_key_exists($var, $GLOBALS['config_errors'])) {
// www_error for this var
print('<tr><td colspan="2" class="red">'.$GLOBALS['config_errors'][$var].'</td></tr>');
}
}
?>
</table>
</p>
<hr />
<!-- Optional stuff -->
<span class="title">Optional:</span>
<ul>
<p>
<li />HTTP proxy (host:port)
<input type="text" name="proxy[host]" value="<?php echo $proxy_host;?>"> : <input type="text" name="proxy[port]" value="<?php echo $proxy_port;?>" size="6">
</p>
<p>
<li />Compatibility-Mode for old non-DOM Browsers <input type="checkbox" name="BCmode" id="BCmode" checked>
<script type="text/javascript">
<!--
if (document.getElementById('BCmode')) {
document.getElementById('BCmode').checked = 0;
};
// -->
</script>
</p>
</ul>
<?php
if (WINDOWS && phpversion() == '4.1.1') {
?>
<p>
<table border="0">
<tr>
<td valign="top"><img src="<?php echo basename(__FILE__); ?>?action=img&amp;img=note" alt="" /></td>
<td>
<span style="color: #ff0000">
<b>Warning:</b> Your PHP version (4.1.1) might be imcompatible with go-pear due to a bug<br/>
in your PHP binary. If the installation crashes you might want to update your PHP version.</br>
</span>
</td>
</tr>
</table>
</p>
<?php
}
?>
<hr />
<!-- Closing note -->
<p>
<table border="0">
<tr>
<td valign="top"><img src="<?php echo basename(__FILE__); ?>?action=img&amp;img=note" alt="" /></td>
<td>
<span class="green">
<b>Note:</b> Installation might take some time, because go-pear has to<br/>
download all needed files from pear.php.net. Just be patient and wait for<br/>
the next page to load.<br/>
</span>
</td>
</tr>
</table>
</p>
<input type="submit" value="Install" onClick="javascript: submitButton.value='Downloading and installing ... please wait ...'" name="submitButton">
</form>
<?php
} elseif ($page == 'install') {
?>
<span class="title">Installation Complete - Summary</span><br/>
<?php
displayHTMLInstallationSummary($data);
} elseif ($page == 'preinstall') {
?>
<p>
<span class="title">Installation in progress ...</span></br >
<i>(If the page stops loading before the end of the installation, then just reload it)</i></p>
<script type="text/javascript">
<!--
var progress;
var downloadprogress;
progress = 0;
downloadprogress = 0;
function setprogress(value)
{
progress = value;
prog = document.getElementById('installation_progress');
prog.innerHTML = progress + " %";
progress2 = progress / 10;
progress2 = Math.floor(progress2);
for (i=0; i < 10; i++)
document.getElementById('progress_cell_'+i).style.backgroundColor = "#cccccc";
switch(progress2)
{
case 10:
document.getElementById('progress_cell_9').style.backgroundColor = "#006600";
case 9:
document.getElementById('progress_cell_8').style.backgroundColor = "#006600";
case 8:
document.getElementById('progress_cell_7').style.backgroundColor = "#006600";
case 7:
document.getElementById('progress_cell_6').style.backgroundColor = "#006600";
case 6:
document.getElementById('progress_cell_5').style.backgroundColor = "#006600";
case 5:
document.getElementById('progress_cell_4').style.backgroundColor = "#006600";
case 4:
document.getElementById('progress_cell_3').style.backgroundColor = "#006600";
case 3:
document.getElementById('progress_cell_2').style.backgroundColor = "#006600";
case 2:
document.getElementById('progress_cell_1').style.backgroundColor = "#006600";
case 1:
document.getElementById('progress_cell_0').style.backgroundColor = "#006600";
};
}
function addprogress(value)
{
progress += value;
setprogress(progress);
}
function setdownloadfile(value)
{
setdownloadprogress(0);
prog = document.getElementById('download_file');
prog.innerHTML = 'Downloading '+value+' ...';
};
function unsetdownloadfile()
{
setdownloadprogress(0);
prog = document.getElementById('download_file');
prog.innerHTML = '';
};
function setdownloadprogress(value)
{
downloadprogress = value;
prog = document.getElementById('download_progress');
prog.innerHTML = downloadprogress + " %";
progress2 = downloadprogress / 10;
progress2 = Math.floor(progress2);
for (i=0; i < 10; i++)
document.getElementById('download_progress_cell_'+i).style.backgroundColor = "#cccccc";
switch(progress2)
{
case 10:
document.getElementById('download_progress_cell_9').style.backgroundColor = "#006600";
case 9:
document.getElementById('download_progress_cell_8').style.backgroundColor = "#006600";
case 8:
document.getElementById('download_progress_cell_7').style.backgroundColor = "#006600";
case 7:
document.getElementById('download_progress_cell_6').style.backgroundColor = "#006600";
case 6:
document.getElementById('download_progress_cell_5').style.backgroundColor = "#006600";
case 5:
document.getElementById('download_progress_cell_4').style.backgroundColor = "#006600";
case 4:
document.getElementById('download_progress_cell_3').style.backgroundColor = "#006600";
case 3:
document.getElementById('download_progress_cell_2').style.backgroundColor = "#006600";
case 2:
document.getElementById('download_progress_cell_1').style.backgroundColor = "#006600";
case 1:
document.getElementById('download_progress_cell_0').style.backgroundColor = "#006600";
};
};
// -->
</script>
<table style="border-width: 1px; border-color: #000000" cellspacing="0" cellpadding="0">
<tr>
<td>
<table border="0">
<tr>
<td bgcolor="#cccccc" width="10" height="20" id="progress_cell_0">&nbsp;</td>
<td bgcolor="#cccccc" width="10" height="20" id="progress_cell_1">&nbsp;</td>
<td bgcolor="#cccccc" width="10" height="20" id="progress_cell_2">&nbsp;</td>
<td bgcolor="#cccccc" width="10" height="20" id="progress_cell_3">&nbsp;</td>
<td bgcolor="#cccccc" width="10" height="20" id="progress_cell_4">&nbsp;</td>
<td bgcolor="#cccccc" width="10" height="20" id="progress_cell_5">&nbsp;</td>
<td bgcolor="#cccccc" width="10" height="20" id="progress_cell_6">&nbsp;</td>
<td bgcolor="#cccccc" width="10" height="20" id="progress_cell_7">&nbsp;</td>
<td bgcolor="#cccccc" width="10" height="20" id="progress_cell_8">&nbsp;</td>
<td bgcolor="#cccccc" width="10" height="20" id="progress_cell_9">&nbsp;</td>
<td bgcolor="#ffffff" width="10" height="20">&nbsp;</td>
<td bgcolor="#ffffff" height="20" id="installation_progress" class="green">0 %</td>
</tr>
</table>
<br />
<table border="0">
<tr>
<td bgcolor="#cccccc" width="10" height="20" id="download_progress_cell_0">&nbsp;</td>
<td bgcolor="#cccccc" width="10" height="20" id="download_progress_cell_1">&nbsp;</td>
<td bgcolor="#cccccc" width="10" height="20" id="download_progress_cell_2">&nbsp;</td>
<td bgcolor="#cccccc" width="10" height="20" id="download_progress_cell_3">&nbsp;</td>
<td bgcolor="#cccccc" width="10" height="20" id="download_progress_cell_4">&nbsp;</td>
<td bgcolor="#cccccc" width="10" height="20" id="download_progress_cell_5">&nbsp;</td>
<td bgcolor="#cccccc" width="10" height="20" id="download_progress_cell_6">&nbsp;</td>
<td bgcolor="#cccccc" width="10" height="20" id="download_progress_cell_7">&nbsp;</td>
<td bgcolor="#cccccc" width="10" height="20" id="download_progress_cell_8">&nbsp;</td>
<td bgcolor="#cccccc" width="10" height="20" id="download_progress_cell_9">&nbsp;</td>
<td bgcolor="#ffffff" width="10" height="20">&nbsp;</td>
<td bgcolor="#ffffff" height="20" id="download_progress" class="green">0 %</td>
<td bgcolor="#ffffff" width="10" height="20">&nbsp;</td>
<td bgcolor="#ffffff" height="20" id="download_file" class="green"></td>
</tr>
</table>
<br />
<iframe src="<?php echo basename(__FILE__); ?>?step=install-progress&amp;<?php echo SID;?>" width="700" height="700" frameborder="0" marginheight="0" marginwidth="0"></iframe>
</td>
</tr>
</table>
<?php
}
?>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
<?php
displayHTMLFooter();
}
// }}}
// {{{ displayHTMLFooter
function displayHTMLFooter()
{
?>
</body>
</html>
<?php
};
// }}}
// {{{ displayHTMLInstallationSummary
function displayHTMLInstallationSummary($data = '')
{
$next = NULL;
$file = $GLOBALS['webfrontend_file'];
$doc_root = strip_magic_quotes($_SERVER['DOCUMENT_ROOT']);
$file_dir = dirname(__FILE__);
if ( WINDOWS ) {
$file = str_replace('/', '\\', strtolower($file));
$doc_root = str_replace('/', '\\', strtolower($doc_root));
$file_dir = str_replace('/', '\\', strtolower($file_dir));
}
if ($doc_root && substr($file, 0, strlen($doc_root)) == $doc_root) {
$next = substr($file, strlen($doc_root));
// need leading / (file - docroot = path from docroot)
if (substr($next, 0, 1) != '/') {
$next = '/'.$next;
}
} else if ($file_dir && substr($file, 0, strlen($file_dir)) == $file_dir) {
$next = substr($file, strlen($file_dir));
// strip leading / (file - file_dir = path from go-pear file)
if (substr($next, 0, 1) == '/') {
$next = substr($next, 1, strlen($next));
}
}
if ($data) {
echo "<br/>".$data;
}
?>
<p>
<span class="title">Installation Completed !</span>
</p>
<table border="0">
<tr>
<td valign="top"><img src="<?php echo basename(__FILE__); ?>?action=img&amp;img=note" alt="" /></td>
<td>
<span class="green">
<b>Note:</b> To use PEAR without any problems you need to add your<br/>
PEAR Installation path (<?php echo $GLOBALS['php_dir']; ?>)<br />
to your <a href="http://www.php.net/manual/en/configuration.directives.php#ini.include_path">include_path</a>.<br/>
<br/>
Using a .htaccess file or directly edit httpd.conf would be working solutions<br/>
for Apache running servers, too.<br/>
</span>
</td>
</tr>
</table>
<br/>
For more information about PEAR, see:<br/>
<a href="http://pear.php.net/faq.php" target="_new" class="green">PEAR FAQ</a><br/>
<a href="http://pear.php.net/manual/" target="_new" class="green">PEAR Manual</a><br/>
<br/>
Thanks for using go-pear!<br/>
<br/>
<?php
if ($next === NULL) {
?>
<table border="0">
<tr>
<td valign="top"><img src="<?php echo basename(__FILE__); ?>?action=img&amp;img=note" alt="" /></td>
<td>
<span style="color: #ff0000">
<b>Warning:</b> Can not determine the URL of the freshly installed Web Frontend<br />
(file: <?php echo $file ?>).<br />
Please access it manually !
</span>
</td>
</tr>
</table>
<?php
} else {
if ($_GET['step'] == 'install-progress') {
?>
<a href="<?php echo $next;?>" class="green" target="_parent">Start Web Frontend of the PEAR Installer &gt;&gt;</a>
<?php
} else {
?>
<a href="<?php echo $next;?>" class="green">Start Web Frontend of the PEAR Installer &gt;&gt;</a>
<?php
}
}
}
// }}}
// {{{ strip_magic_quotes
function strip_magic_quotes($value)
{
if (ini_get('magic_quotes_gpc')) {
return stripslashes($value);
}
return $value;
};
// }}}
// {{{ showImage
function showImage($img)
{
$images = array(
'smallpear' => array(
'type' => 'gif',
'data' => 'R0lGODlhEQATAMQAAAAAACqUACiTAC2WAC+YAzKZBTSaBsHgszOZADCYADmcB4TCZp3Ohtfrzd/v1+by4PD47DaaAz+fDUijF2WyOlCoHvT58VqtJPn893y+S/v9+f7//f3+/Pz9+////////ywAAAAAEQATAAAFkqAnjiR5NGXqcdpCoapnMVRdWbEHUROVVROYalHJTCaVAKWTcjAUGckgQY04SJAFMhJJIL5e4a5I6X6/gwlkRIwOzucAY9SYZBRvOCKheIwYFxR5enxCLhVeemAHbBQVg4SMIoCCinsKVyIOdlKKAhQcJFpGiWgFQiIYPxeJCQEEcykcDIgDAwYUkjEWB70NGykhADs=',
),
'pearlogo' => array(
'type' => 'gif',
'data' => 'R0lGODlhaAAyAMT/AMDAwP3+/TWaAvD47Pj89vz++zebBDmcBj6fDEekFluvKmu3PvX68ujz4XvBS8LgrNXqxeHw1ZnPaa/dgvv9+cLqj8LmltD2msnuls3xmszwmf7+/f///wAAAAAAAAAAACH5BAEAAAAALAAAAABoADIAQAX/ICCOZGmeaKqubOtWWjwJphLLgH1XUu//C1Jisfj9YLEKQnSY3GaixWQqQTkYHM4AMulNLJFC9pEwIW/odKU8cqTfsWoTTtcomU4ZjbR4ZP+AgYKCG0EiZ1AuiossEhwEXRMEg5SVWQ6MmZqKWD0QlqCUEHubpaYlExwRPRZioZZVp7KzKQoSDxANDLsNXA5simd2FcQYb4YAc2jEU80TmAAIztPCMcjKdg4OEsZJmwIWWQPQI4ikIwtoVQnddgrv8PFlCWgYCwkI+fp5dkvJ/IlUKMCy6tYrDhNIIKLFEAWCTxse+ABD4SClWA0zovAjcUJFi6EwahxZwoGqHhFA/4IqoICkyxQSKkbo0gDkuBXV4FRAJkRCnTgi2P28IcEfk5xpWppykFJVuScmEvDTEETAVJ6bEpypcADPkz3pvKVAICHChkC7siQ08zVqu4Q6hgIFEFZuEn/KMgRUkaBmAQs+cEHgIiHVH5EAFpIgW4+NT6LnaqhDwe/Ov7YOmWZp4MkiAWBIl0kAVsJWuzcYpdiNgddc0E8cKBAu/FElBwagMb88ZZKDRAkWJtkWhHh3wwUbKHQJN3wQAaXGR2LpArv5oFHRR34C7Mf6oLXZNfqBgNI7oOLhj1f8PaGpygHQ0xtP8MDVKwYTSKcgxr9/hS6/pCCAAg5M4B9/sWh1YP9/XSgQWRML/idBfKUc4IBET9lFjggKhDYZAELZJYEBI2BDB3ouNBEABwE8gAwiCcSYgAKqPdEVAG7scM8BPPZ4AIlM+OgjAgpMhRE24OVoBwsIFEGFA7ZkQQBWienWxmRa7XDjKZXhBdAeSmKQwgLuUVLICa6VEKIGcK2mQWoVZHCBXJblJUFkY06yAXlGsPIHBEYdYiWHb+WQBgaIJqqoHFNpgMGB7dT5ZQuG/WbBAIAUEEFNfwxAWpokTIXJAWdgoJ9kRFG2g5eDRpXSBpEIF0oEQFaZhDbaSFANRgqcJoEDRARLREtxOQpsPO906ZUeJgjQB6dZUPBAdwcF8KLXXRVQaKFcsRRLJ6vMiiCNKxRE8ECZKgUA3Va4arOAAqdGRWO7uMZH5AL05gvsjQbg6y4NCjQ1kw8TVGcbdoKGKx8j3bGH7nARBArqwi0gkFJBrZiXBQRbHoIgnhSjcEBKfD7c3HMhz+JIQSY3t8GGKW+SUhfUajxGzKd0IoHBNkNQK86ZYEqdzYA8AHQpqXRUm80oHs1CAgMoBxzRqvzs9CIKECC1JBp7enUpfXHApwVYNAfo16c4IrYPLVdSAJVob7IAtCBFQGHcs/RRdiUDPHA33oADEAIAOw==',
),
'note' => array(
'type' => 'png',
'data' => 'iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAAAAADFHGIkAAAAAmJLR0QAAKqNIzIAAAEESURBVHjaZZIhksMwDEV9voWFSwsLA0MLDf8VdARBUUNBQ1FBHcErZ5M0baXJjOPnb0vfLuMMn3H+lWMgBKL89A1Eq9Q9IrwB+gIOsnMPBR8giMclguQfBGS8x5xIoPQxnxqb4LL/eQ4l2AVNONP2ZshLCqJ3qqzWtT5pNgNnLU4OcNbuiqaLmFmHGhJ0TCMC99+f2wphlhaOYjuQVc0IIzLH2BRWfQoWsNSjct8AVop4rF3belTuVAb3MRj6kLrcTwtIy+g03V1vC57t1XrMzqfP5pln5yLTkk7+5UhstvOni1X3ixLEdf2c36+W0Q7kOb48hnSRLI/XdNPfX4kpMkgP5R+elfdkDPprQgAAAEN0RVh0U29mdHdhcmUAQCgjKUltYWdlTWFnaWNrIDQuMi44IDk5LzA4LzAxIGNyaXN0eUBteXN0aWMuZXMuZHVwb250LmNvbZG6IbgAAAAqdEVYdFNpZ25hdHVyZQAzYmQ3NDdjNWU0NTgwNzAwNmIwOTBkZDNlN2EyNmM0NBTTk/oAAAAOdEVYdFBhZ2UAMjR4MjQrMCswclsJMQAAAABJRU5ErkJggg==',
),
);
Header('Content-Type: image/'.$images[$img]['type']);
echo base64_decode($images[$img]['data']);
};
// }}}
// {{{ displayHTMLProgress
function displayHTMLProgress($progress)
{
if (!(WEBINSTALLER && isset($_SESSION['go-pear']['DHTML']) && $_SESSION['go-pear']['DHTML'])) {
return;
};
$msg = ob_get_contents();
ob_end_clean();
$msg = explode("\n", $msg);
foreach($msg as $key => $value) {
if (preg_match('/ok$/', $value)) {
$value = preg_replace('/(ok)$/', '<span class="green">\1</span>', $value);
};
if (preg_match('/failed$/', $value)) {
$value = preg_replace('/(failed)$/', '<span style="color: #ff0000">\1</span>', $value);
};
if (preg_match('/^install ok:/', $value)) {
//$value = preg_replace('/^(install ok:)/', '<span class="green">\1</span>', $value).'<br />';
//$msg = array($value); // if install succeeded: don't show the irritatingly verbose pear installer
$msg = array('<span class="green">ok</span><br />');
break;
};
if (preg_match('/^Warning:/', $value)) {
$value = '<span style="color: #ff0000">'.$value.'</span>';
};
$msg[$key] = $value;
};
$msg = implode('<br />', $msg);
$msg.='<script type="text/javascript"> parent.setprogress('.((int) $progress).'); </script>';
echo $msg;
ob_start();
};
// }}}
// {{{ displayHTMLDownloadProgress
function displayHTMLDownloadProgress($progress)
{
if (!(WEBINSTALLER && isset($_SESSION['go-pear']['DHTML']) && $_SESSION['go-pear']['DHTML'])) {
return;
};
$msg = ob_get_contents();
ob_end_clean();
echo '<script type="text/javascript"> parent.setdownloadprogress('.((int) $progress).'); </script>';
ob_start();
echo $msg;
};
// }}}
// {{{ displayHTMLSetDownload
function displayHTMLSetDownload($file)
{
if (!(WEBINSTALLER && isset($_SESSION['go-pear']['DHTML']) && $_SESSION['go-pear']['DHTML'])) {
return;
};
$msg = ob_get_contents();
ob_end_clean();
if ($file != null && $file != '') {
echo '<script type="text/javascript"> parent.setdownloadfile("'.$file.'"); </script>';
} else {
echo '<script type="text/javascript"> parent.unsetdownloadfile(); </script>';
}
ob_start();
echo $msg;
};
// }}}
// {{{ win32BrowseForFolder
/*
* Create a vbs script to browse the getfolder dialog, called
* by cscript, if it's available.
* $label is the label text in the header of the dialog box
*
* TODO:
* - Do not show Control panel
* - Replace WSH with calls to w32 as soon as callbacks work
* @Author Pierrre-Alain Joye
*/
function win32BrowseForFolder($label)
{
global $ptmp;
static $wshSaved=false;
static $cscript='';
$wsh_browserfolder = 'Option Explicit
Dim ArgObj, var1, var2, sa, sFld
Set ArgObj = WScript.Arguments
Const BIF_EDITBOX = &H10
Const BIF_NEWDIALOGSTYLE = &H40
Const BIF_RETURNONLYFSDIRS = &H0001
Const BIF_DONTGOBELOWDOMAIN = &H0002
Const BIF_STATUSTEXT = &H0004
Const BIF_RETURNFSANCESTORS = &H0008
Const BIF_VALIDATE = &H0020
Const BIF_BROWSEFORCOMPUTER = &H1000
Const BIF_BROWSEFORPRINTER = &H2000
Const BIF_BROWSEINCLUDEFILES = &H4000
Const OFN_LONGNAMES = &H200000
Const OFN_NOLONGNAMES = &H40000
Const ssfDRIVES = &H11
Const ssfNETWORK = &H12
Set sa = CreateObject("Shell.Application")
var1=ArgObj(0)
Set sFld = sa.BrowseForFolder(0, var1, BIF_EDITBOX + BIF_VALIDATE + BIF_BROWSEINCLUDEFILES + BIF_RETURNFSANCESTORS+BIF_NEWDIALOGSTYLE , ssfDRIVES )
if not sFld is nothing Then
if not left(sFld.items.item.path,1)=":" Then
WScript.Echo sFld.items.item.path
Else
WScript.Echo "invalid"
End If
Else
WScript.Echo "cancel"
End If
';
if( !$wshSaved){
$cscript = $ptmp.DIRECTORY_SEPARATOR."bf.vbs";
$fh = fopen($cscript,"wb+");
fwrite($fh,$wsh_browserfolder,strlen($wsh_browserfolder));
fclose($fh);
$wshSaved = true;
}
exec('cscript '.$cscript.' "'.$label.'" //noLogo',$arPath);
if($arPath[0]=='' || $arPath[0]=='cancel'){
return '';
} elseif ($arPath[0]=='invalid') {
echo "Invalid Path.\n";
return '';
}
return $arPath[0];
}
// }}}
// {{{ win32CreateRegEnv
/*
* Generates a registry addOn for Win32 platform
* This addon set PEAR environment variables
* @Author Pierrre-Alain Joye
*/
function win32CreateRegEnv()
{
global $prefix, $bin_dir, $php_dir, $php_bin, $doc_dir, $data_dir, $test_dir, $temp_dir;
$nl = "\r\n";
$reg ='REGEDIT4'.$nl.
'[HKEY_CURRENT_USER\Environment]'.$nl.
'"PHP_PEAR_SYSCONF_DIR"="'.addslashes($prefix).'"'.$nl.
'"PHP_PEAR_INSTALL_DIR"="'.addslashes($php_dir).'"'.$nl.
'"PHP_PEAR_DOC_DIR"="'.addslashes($doc_dir).'"'.$nl.
'"PHP_PEAR_BIN_DIR"="'.addslashes($bin_dir).'"'.$nl.
'"PHP_PEAR_DATA_DIR"="'.addslashes($data_dir).'"'.$nl.
'"PHP_PEAR_PHP_BIN"="'.addslashes($php_bin).'"'.$nl.
'"PHP_PEAR_TEST_DIR"="'.addslashes($test_dir).'"'.$nl;
$fh = fopen($prefix.DIRECTORY_SEPARATOR.'PEAR_ENV.reg','wb');
if($fh){
fwrite($fh, $reg ,strlen($reg));
fclose($fh);
echo "
* WINDOWS ENVIRONMENT VARIABLES *
For convenience, a REG file is available under $prefix\\PEAR_ENV.reg .
This file creates ENV variables for the current user.
Double-click this file to add it to the current user registry.
";
}
}
// }}}
// {{{ win32DetectPHPSAPI
/*
* Try to detect the kind of SAPI used by the
* the given php.exe.
* @Author Pierrre-Alain Joye
*/
function win32DetectPHPSAPI()
{
global $php_bin,$php_sapi_name;
if (WEBINSTALLER) {
return $php_sapi_name;
}
if($php_bin!=''){
exec($php_bin.' -v', $res);
if(is_array($res)) {
if( isset($res[0]) && strpos($res[0],"(cli)")) {
return 'cli';
}
if( isset($res[0]) && strpos($res[0],"cgi")) {
return 'cgi';
} else {
return 'unknown';
}
}
}
return 'unknown';
}
// }}}
// {{{ getPhpiniPath
/*
* Get the php.ini file used with the current
* process or with the given php.exe
*
* Horrible hack, but well ;)
*
* Not used yet, will add the support later
* @Author Pierre-Alain Joye <paj@pearfr.org>
*/
function getPhpiniPath()
{
$pathIni = get_cfg_var('cfg_file_path');
if( $pathIni && is_file($pathIni) ){
return $pathIni;
}
// Oh well, we can keep this too :)
// I dunno if get_cfg_var() is safe on every OS
if (WINDOWS) {
// on Windows, we can be pretty sure that there is a php.ini
// file somewhere
do {
$php_ini = PHP_CONFIG_FILE_PATH . DIRECTORY_SEPARATOR . 'php.ini';
if ( @file_exists($php_ini) ) break;
$php_ini = 'c:\winnt\php.ini';
if ( @file_exists($php_ini) ) break;
$php_ini = 'c:\windows\php.ini';
} while (false);
} else {
$php_ini = PHP_CONFIG_FILE_PATH . DIRECTORY_SEPARATOR . 'php.ini';
}
if( @is_file($php_ini) ){
return $php_ini;
}
// We re running in hackz&troubles :)
ob_implicit_flush(false);
ob_start();
phpinfo(INFO_GENERAL);
$strInfo = ob_get_contents ();
ob_end_clean();
ob_implicit_flush(true);
if ( php_sapi_name() != 'cli' ) {
$strInfo = strip_tags($strInfo,'<td>');
$arrayInfo = explode("</td>", $strInfo );
$cli = false;
} else {
$arrayInfo = explode("\n",$strInfo);
$cli = true;
}
foreach($arrayInfo as $val){
if ( strpos($val,"php.ini") ) {
if($cli){
list(,$pathIni) = explode('=>',$val);
} else {
$pathIni = strip_tags(trim($val) );
}
$pathIni = trim($pathIni);
if(is_file($pathIni)){
return $pathIni;
}
}
}
return false;
}
// }}}
// {{{ alterPhpIni
/*
* Not optimized, but seems to work, if some nice
* peardev will test it? :)
*
* @Author Pierre-Alain Joye <paj@pearfr.org>
*/
function alterPhpIni($pathIni='')
{
global $php_dir, $prefix;
$iniSep = WINDOWS?';':':';
if( $pathIni=='' ){
$pathIni = getphpinipath();
}
$arrayIni = file($pathIni);
$i=0;
$found=0;
// Looks for each active include_path directives
foreach ( $arrayIni as $iniLine ) {
$iniLine = trim($iniLine);
$iniLine = str_replace(array("\n","\r"),array(),$iniLine);
if( preg_match("/^include_path/",$iniLine) ){
$foundAt[] = $i;
$found++;
}
$i++;
}
if ( $found ) {
$includeLine = $arrayIni[$foundAt[0]];
list(,$currentPath)=explode('=',$includeLine);
$currentPath = trim($currentPath);
if(substr($currentPath,0,1)=='"'){
$currentPath = substr($currentPath,1,strlen($currentPath)-2);
}
$arrayPath = explode($iniSep, $currentPath);
if( $arrayPath[0]=='.' ){
$newPath[0] = '.';
$newPath[1] = $php_dir;
array_shift($arrayPath);
} else {
$newPath[0] = $php_dir;
}
foreach( $arrayPath as $path ){
$newPath[]= $path;
}
} else {
$newPath[0] = '.';
$newPath[1] = $php_dir;
}
$nl = WINDOWS?"\r\n":"\n";
$includepath = 'include_path="'.implode($iniSep,$newPath).'"';
$newInclude = "$nl$nl;***** Added by go-pear$nl".
$includepath.
$nl.";*****".
$nl.$nl;
$arrayIni[$foundAt[0]] = $newInclude;
for( $i=1; $i<$found; $i++){
$arrayIni[$foundAt[$i]]=';'.trim($arrayIni[$foundAt[$i]]);
}
$newIni = implode("",$arrayIni);
if ( !($fh = @fopen($pathIni, "wb+")) ){
$prefixIni = $prefix.DIRECTORY_SEPARATOR."php.ini-gopear";
$fh = fopen($prefixIni, "wb+");
if ( !$fh ) {
echo
"
******************************************************************************
WARNING! I cannot write to $pathIni nor in $prefix/php.ini-gopear. Please
modify manually your php.ini by adding:
$includepath
";
return false;
} else {
fwrite($fh, $newIni, strlen($newIni));
fclose($fh);
echo
"
******************************************************************************
WARNING! I cannot write to $pathIni, but I succesfully created a php.ini
under <$prefix/php.ini-gopear>. Please replace the file <$pathIni> with
<$prefixIni> or modify your php.ini by adding:
$includepath
";
}
} else {
fwrite($fh, $newIni, strlen($newIni));
fclose($fh);
echo "
php.ini <$pathIni> include_path updated.
";
}
return true;
}
?>