You can grant this permission by logging on to the server and issuing the following command:
+mkdir '.dirname($temp_dir).' && chmod 0777 '.dirname($temp_dir).'
You can grant this permission by logging on to the server and issuing the following command:
+chmod 0777 '.$temp_dir.'
You can grant this permission by logging on to the server and issuing the following command:
+mkdir '.dirname($dir).' && chmod 0777 '.dirname($dir).'
You can grant this permission by logging on to the server and issuing the following command:
+chmod 0777 '.$dir.'
You can grant this permission by logging on to the server and issuing the following command:
+chmod 0777 '.$dir.'
You can grant this permission by logging on to the server and issuing the following command:
+chmod 0777 '.$file.'
"; + } + ob_start(); + } +} + +if (!WEBINSTALLER) { + $msg = "The following PEAR packages are bundled with PHP: " . + implode(', ', array_keys($pfc_packages)); + print "\n" . wordwrap($msg, 75) . ".\n"; + print "Would you like to install these as well? [Y/n] : "; + $install_pfc = !stristr(fgets($tty, 1024), "n"); + $install_optional_packages = array(); + print "\n"; +} + +#### +# Download +#### + +if (function_exists('set_include_path')) { + set_include_path($ptmp); +} else { + ini_set('include_path', $ptmp); +} + +if (!extension_loaded('zlib') && !WEBINSTALLER) { // In Web context we could be in multithread env which makes dl() end up with a fatal error. + if (WINDOWS) { + @dl('php_zlib.dll'); + } elseif (PHP_OS == 'HP-UX') { + @dl('zlib.sl'); + } elseif (PHP_OS == 'AIX') { + @dl('zlib.a'); + } else { + @dl('zlib.so'); + } +} +if (!extension_loaded('zlib')) { + $urltemplate = 'http://pear.php.net/get/%s?uncompress=yes'; + $have_gzip = null; +} else { + $urltemplate = 'http://pear.php.net/get/%s'; + $have_gzip = true; +} + +print "Loading zlib: ".($have_gzip ? 'ok' : 'failed')."\n"; + +if (!$have_gzip) { + print "Downloading uncompressed packages\n"; +}; + +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 (is_dir($php_dir)) { + $nobootstrap = true; + foreach ($bootstrap_files as $file => $url) { + $nobootstrap &= is_file($php_dir.'/'.$file); + } +} + +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 (is_dir($php_dir)) { + $noextract = @include_once 'PEAR/Registry.php'; + + if ($noextract) { + $registry = new PEAR_Registry($php_dir); + foreach ($bootstrap_pkgs as $pkg) { + $noextract &= $registry->packageExists($pkg); + } + } +} + +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($prefix."/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($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) { + $pkg_basename = substr($pkg, 0, strpos($pkg, '-')); + + if (in_array($pkg, $installer_packages)) { + $options = array('nodeps' => true); + } else { + $options = array('onlyreqdeps' => 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; + } + + $pkg_basename = substr($pkg, 0, strpos($pkg, '-')); + 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"; +*/ +unset($config, $registry, $install); +displayHTMLProgress($progress = 99); + + +// Base installation finished + +ini_restore("include_path"); + +if (!WEBINSTALLER) { + $sep = WINDOWS ? ';' : ':'; + $include_path = explode($sep, ini_get('include_path')); + if (WINDOWS) { + $found = false; + $t = strtolower($php_dir); + foreach($include_path as $path) { + if ($t==strtolower($path)) { + $found = true; + break; + } + } + } else { + $found = in_array($php_dir, $include_path); + } + if (!$found) { + print " +****************************************************************************** +WARNING! The include_path defined in the currently used php.ini does not +contain the PEAR PHP directory you just specified: +<$php_dir> +If the specified directory is also not in the include_path used by +your scripts, you will have problems getting any PEAR packages working. +"; + + if ( $php_ini = getPhpiniPath() ) { + print "\n\nWould you like to alter php.ini <$php_ini>? [Y/n] : "; + $alter_phpini = !stristr(fgets($tty, 1024), "n"); + if( $alter_phpini ) { + alterPhpIni($php_ini); + } else { + if (WINDOWS) { + print " +Please look over your php.ini file to make sure +$php_dir is in your include_path."; + } else { + print " +I will add a workaround for this in the 'pear' command to make sure +the installer works, but please look over your php.ini or Apache +configuration to make sure $php_dir is in your include_path. +"; + } + + } + } + + print " +Current include path : ".ini_get('include_path')." +Configured directory : $php_dir +Currently used php.ini (guess) : $php_ini +"; + + print "Press Enter to continue: "; + fgets($tty, 1024); + } + + $pear_cmd = $bin_dir . DIRECTORY_SEPARATOR . 'pear'; + $pear_cmd = WINDOWS ? strtolower($pear_cmd).'.bat' : $pear_cmd; + + // check that the installed pear and the one in tha path are the same (if any) + $pear_old = which(WINDOWS ? 'pear.bat' : 'pear', $bin_dir); + if ($pear_old && ($pear_old != $pear_cmd)) { + // check if it is a link or symlink + $islink = WINDOWS ? false : is_link($pear_old) ; + if ($islink && readlink($pear_old) != $pear_cmd) { + print "\n** WARNING! The link $pear_old does not point to the " . + "installed $pear_cmd\n"; + } elseif (is_writable($pear_old) && !is_dir($pear_old)) { + rename($pear_old, "{$pear_old}_old"); + print "\n** WARNING! Backed up old pear to {$pear_old}_old\n"; + } else { + print "\n** WARNING! Old version found at $pear_old, please remove it or ". + "be sure to use the new $pear_cmd command\n"; + } + } + + print "\nThe 'pear' command is now at your service at $pear_cmd\n"; + + // Alert the user if the pear cmd is not in PATH + $old_dir = $pear_old ? dirname($pear_old) : false; + if (!which('pear', $old_dir)) { + print " +** The 'pear' command is not currently in your PATH, so you need to +** use '$pear_cmd' until you have added +** '$bin_dir' to your PATH environment variable. + +"; + + print "Run it without parameters to see the available actions, try 'pear list' +to see what packages are installed, or 'pear help' for help. + +For more information about PEAR, see: + + http://pear.php.net/faq.php + http://pear.php.net/manual/ + +Thanks for using go-pear! + +"; + } +} + +if (WEBINSTALLER) { + print "\n".'Writing WebFrontend file ... '; + @unlink($webfrontend_file); //Delete old one + copy ( $doc_dir.DIRECTORY_SEPARATOR. + 'PEAR_Frontend_Web'.DIRECTORY_SEPARATOR. + 'docs'.DIRECTORY_SEPARATOR. + 'index.php.txt', + $webfrontend_file + ); + print "ok\n"; + + if ($_GET['step'] == 'install-progress') { + displayHTMLProgress($progress = 100); + ob_end_clean(); + displayHTMLInstallationSummary(); + displayHTMLFooter(); + } else { + $out = ob_get_contents(); + + $out = explode("\n", $out); + foreach($out as $line => $value) { + if (preg_match('/ok$/', $value)) { + $value = preg_replace('/(ok)$/', '\1', $value); + }; + if (preg_match('/^install ok:/', $value)) { + $value = preg_replace('/^(install ok:)/', '\1', $value); + }; + if (preg_match('/^Warning:/', $value)) { + $value = ''.$value.''; + }; + $out[$line] = $value; + }; + $out = nl2br(implode("\n",$out)); + ob_end_clean(); + + displayHTML('install', $out); + } + // Little hack, this will be fixed in PEAR later + if ( WINDOWS ) { + clearstatcache(); + @unlink($bin_dir.DIRECTORY_SEPARATOR.'.tmppear'); + } + exit; +} + +// Little hack, this will be fixed in PEAR later +if ( WINDOWS ) { + clearstatcache(); + @unlink($bin_dir.DIRECTORY_SEPARATOR.'.tmppear'); +} + +if (WINDOWS && !WEBINSTALLER) { + win32CreateRegEnv(); +} +// 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('
Can\'t use the \'~\' symbol for homedir substitution, write the directory out in full.
'); + } 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 = dirname(__FILE__); + } else { + $prefix = $_prefix; + } + $bin_dir = '$prefix/bin'; + #$php_dir = '$prefix/share/pear'; + $php_dir = '$prefix/PEAR'; + $doc_dir = '$php_dir/docs'; + $data_dir = '$php_dir/data'; + $test_dir = '$php_dir/tests'; + $temp_dir = '$prefix/temp'; + + // check if the user has installed PHP with PHP or GNU layout + if (@is_dir("$prefix/lib/php/.registry")) { + $php_dir = '$prefix/lib/php'; + } elseif (@is_dir("$prefix/share/pear/lib/.registry")) { + $php_dir = '$prefix/share/pear/lib'; + $doc_dir = '$prefix/share/pear/docs'; + $data_dir = '$prefix/share/pear/data'; + $test_dir = '$prefix/share/pear/tests'; + } elseif (@is_dir("$prefix/share/php/.registry")) { + $php_dir = '$prefix/share/php'; + } + } +} + +// }}} +// {{{ displayHTMLHeader + +function displayHTMLHeader() +{ +?> + + + +|
+ |
+ + + | ++ Go-PEAR Installer + | +
|
+ Version + |
+ ||
+
|
+ + |
+
|
+
+
+ Installation Completed ! +
+ +|
+
+ Note: To use PEAR without any problems you need to add your + PEAR Installation path () + to your include_path. + + Using a .htaccess file or directly edit httpd.conf would be working solutions + for Apache running servers, too. + + |
+
+ For more information about PEAR, see:
+ PEAR FAQ
+ PEAR Manual
+
+ Thanks for using go-pear!
+
+ +
|
+
+ Warning: Can not determine the URL of the freshly installed Web Frontend + (file: ). + Please access it manually ! + + |
+
'; + //$msg = array($value); // if install succeeded: don't show the irritatingly verbose pear installer + $msg = array('ok
'); + break; + }; + if (preg_match('/^Warning:/', $value)) { + $value = ''.$value.''; + }; + $msg[$key] = $value; + }; + $msg = implode('
', $msg); + + $msg.=''; + + 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 ''; + + 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 ''; + } else { + echo ''; + } + + 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