1 | <?php |
---|
2 | /** |
---|
3 | * PEAR_Command_Install (install, upgrade, upgrade-all, uninstall, bundle, run-scripts commands) |
---|
4 | * |
---|
5 | * PHP versions 4 and 5 |
---|
6 | * |
---|
7 | * @category pear |
---|
8 | * @package PEAR |
---|
9 | * @author Stig Bakken <ssb@php.net> |
---|
10 | * @author Greg Beaver <cellog@php.net> |
---|
11 | * @copyright 1997-2009 The Authors |
---|
12 | * @license http://opensource.org/licenses/bsd-license.php New BSD License |
---|
13 | * @version CVS: $Id: Install.php 313023 2011-07-06 19:17:11Z dufuz $ |
---|
14 | * @link http://pear.php.net/package/PEAR |
---|
15 | * @since File available since Release 0.1 |
---|
16 | */ |
---|
17 | |
---|
18 | /** |
---|
19 | * base class |
---|
20 | */ |
---|
21 | require_once 'PEAR/Command/Common.php'; |
---|
22 | |
---|
23 | /** |
---|
24 | * PEAR commands for installation or deinstallation/upgrading of |
---|
25 | * packages. |
---|
26 | * |
---|
27 | * @category pear |
---|
28 | * @package PEAR |
---|
29 | * @author Stig Bakken <ssb@php.net> |
---|
30 | * @author Greg Beaver <cellog@php.net> |
---|
31 | * @copyright 1997-2009 The Authors |
---|
32 | * @license http://opensource.org/licenses/bsd-license.php New BSD License |
---|
33 | * @version Release: 1.9.4 |
---|
34 | * @link http://pear.php.net/package/PEAR |
---|
35 | * @since Class available since Release 0.1 |
---|
36 | */ |
---|
37 | class PEAR_Command_Install extends PEAR_Command_Common |
---|
38 | { |
---|
39 | // {{{ properties |
---|
40 | |
---|
41 | var $commands = array( |
---|
42 | 'install' => array( |
---|
43 | 'summary' => 'Install Package', |
---|
44 | 'function' => 'doInstall', |
---|
45 | 'shortcut' => 'i', |
---|
46 | 'options' => array( |
---|
47 | 'force' => array( |
---|
48 | 'shortopt' => 'f', |
---|
49 | 'doc' => 'will overwrite newer installed packages', |
---|
50 | ), |
---|
51 | 'loose' => array( |
---|
52 | 'shortopt' => 'l', |
---|
53 | 'doc' => 'do not check for recommended dependency version', |
---|
54 | ), |
---|
55 | 'nodeps' => array( |
---|
56 | 'shortopt' => 'n', |
---|
57 | 'doc' => 'ignore dependencies, install anyway', |
---|
58 | ), |
---|
59 | 'register-only' => array( |
---|
60 | 'shortopt' => 'r', |
---|
61 | 'doc' => 'do not install files, only register the package as installed', |
---|
62 | ), |
---|
63 | 'soft' => array( |
---|
64 | 'shortopt' => 's', |
---|
65 | 'doc' => 'soft install, fail silently, or upgrade if already installed', |
---|
66 | ), |
---|
67 | 'nobuild' => array( |
---|
68 | 'shortopt' => 'B', |
---|
69 | 'doc' => 'don\'t build C extensions', |
---|
70 | ), |
---|
71 | 'nocompress' => array( |
---|
72 | 'shortopt' => 'Z', |
---|
73 | 'doc' => 'request uncompressed files when downloading', |
---|
74 | ), |
---|
75 | 'installroot' => array( |
---|
76 | 'shortopt' => 'R', |
---|
77 | 'arg' => 'DIR', |
---|
78 | 'doc' => 'root directory used when installing files (ala PHP\'s INSTALL_ROOT), use packagingroot for RPM', |
---|
79 | ), |
---|
80 | 'packagingroot' => array( |
---|
81 | 'shortopt' => 'P', |
---|
82 | 'arg' => 'DIR', |
---|
83 | 'doc' => 'root directory used when packaging files, like RPM packaging', |
---|
84 | ), |
---|
85 | 'ignore-errors' => array( |
---|
86 | 'doc' => 'force install even if there were errors', |
---|
87 | ), |
---|
88 | 'alldeps' => array( |
---|
89 | 'shortopt' => 'a', |
---|
90 | 'doc' => 'install all required and optional dependencies', |
---|
91 | ), |
---|
92 | 'onlyreqdeps' => array( |
---|
93 | 'shortopt' => 'o', |
---|
94 | 'doc' => 'install all required dependencies', |
---|
95 | ), |
---|
96 | 'offline' => array( |
---|
97 | 'shortopt' => 'O', |
---|
98 | 'doc' => 'do not attempt to download any urls or contact channels', |
---|
99 | ), |
---|
100 | 'pretend' => array( |
---|
101 | 'shortopt' => 'p', |
---|
102 | 'doc' => 'Only list the packages that would be downloaded', |
---|
103 | ), |
---|
104 | ), |
---|
105 | 'doc' => '[channel/]<package> ... |
---|
106 | Installs one or more PEAR packages. You can specify a package to |
---|
107 | install in four ways: |
---|
108 | |
---|
109 | "Package-1.0.tgz" : installs from a local file |
---|
110 | |
---|
111 | "http://example.com/Package-1.0.tgz" : installs from |
---|
112 | anywhere on the net. |
---|
113 | |
---|
114 | "package.xml" : installs the package described in |
---|
115 | package.xml. Useful for testing, or for wrapping a PEAR package in |
---|
116 | another package manager such as RPM. |
---|
117 | |
---|
118 | "Package[-version/state][.tar]" : queries your default channel\'s server |
---|
119 | ({config master_server}) and downloads the newest package with |
---|
120 | the preferred quality/state ({config preferred_state}). |
---|
121 | |
---|
122 | To retrieve Package version 1.1, use "Package-1.1," to retrieve |
---|
123 | Package state beta, use "Package-beta." To retrieve an uncompressed |
---|
124 | file, append .tar (make sure there is no file by the same name first) |
---|
125 | |
---|
126 | To download a package from another channel, prefix with the channel name like |
---|
127 | "channel/Package" |
---|
128 | |
---|
129 | More than one package may be specified at once. It is ok to mix these |
---|
130 | four ways of specifying packages. |
---|
131 | '), |
---|
132 | 'upgrade' => array( |
---|
133 | 'summary' => 'Upgrade Package', |
---|
134 | 'function' => 'doInstall', |
---|
135 | 'shortcut' => 'up', |
---|
136 | 'options' => array( |
---|
137 | 'channel' => array( |
---|
138 | 'shortopt' => 'c', |
---|
139 | 'doc' => 'upgrade packages from a specific channel', |
---|
140 | 'arg' => 'CHAN', |
---|
141 | ), |
---|
142 | 'force' => array( |
---|
143 | 'shortopt' => 'f', |
---|
144 | 'doc' => 'overwrite newer installed packages', |
---|
145 | ), |
---|
146 | 'loose' => array( |
---|
147 | 'shortopt' => 'l', |
---|
148 | 'doc' => 'do not check for recommended dependency version', |
---|
149 | ), |
---|
150 | 'nodeps' => array( |
---|
151 | 'shortopt' => 'n', |
---|
152 | 'doc' => 'ignore dependencies, upgrade anyway', |
---|
153 | ), |
---|
154 | 'register-only' => array( |
---|
155 | 'shortopt' => 'r', |
---|
156 | 'doc' => 'do not install files, only register the package as upgraded', |
---|
157 | ), |
---|
158 | 'nobuild' => array( |
---|
159 | 'shortopt' => 'B', |
---|
160 | 'doc' => 'don\'t build C extensions', |
---|
161 | ), |
---|
162 | 'nocompress' => array( |
---|
163 | 'shortopt' => 'Z', |
---|
164 | 'doc' => 'request uncompressed files when downloading', |
---|
165 | ), |
---|
166 | 'installroot' => array( |
---|
167 | 'shortopt' => 'R', |
---|
168 | 'arg' => 'DIR', |
---|
169 | 'doc' => 'root directory used when installing files (ala PHP\'s INSTALL_ROOT)', |
---|
170 | ), |
---|
171 | 'ignore-errors' => array( |
---|
172 | 'doc' => 'force install even if there were errors', |
---|
173 | ), |
---|
174 | 'alldeps' => array( |
---|
175 | 'shortopt' => 'a', |
---|
176 | 'doc' => 'install all required and optional dependencies', |
---|
177 | ), |
---|
178 | 'onlyreqdeps' => array( |
---|
179 | 'shortopt' => 'o', |
---|
180 | 'doc' => 'install all required dependencies', |
---|
181 | ), |
---|
182 | 'offline' => array( |
---|
183 | 'shortopt' => 'O', |
---|
184 | 'doc' => 'do not attempt to download any urls or contact channels', |
---|
185 | ), |
---|
186 | 'pretend' => array( |
---|
187 | 'shortopt' => 'p', |
---|
188 | 'doc' => 'Only list the packages that would be downloaded', |
---|
189 | ), |
---|
190 | ), |
---|
191 | 'doc' => '<package> ... |
---|
192 | Upgrades one or more PEAR packages. See documentation for the |
---|
193 | "install" command for ways to specify a package. |
---|
194 | |
---|
195 | When upgrading, your package will be updated if the provided new |
---|
196 | package has a higher version number (use the -f option if you need to |
---|
197 | upgrade anyway). |
---|
198 | |
---|
199 | More than one package may be specified at once. |
---|
200 | '), |
---|
201 | 'upgrade-all' => array( |
---|
202 | 'summary' => 'Upgrade All Packages [Deprecated in favor of calling upgrade with no parameters]', |
---|
203 | 'function' => 'doUpgradeAll', |
---|
204 | 'shortcut' => 'ua', |
---|
205 | 'options' => array( |
---|
206 | 'channel' => array( |
---|
207 | 'shortopt' => 'c', |
---|
208 | 'doc' => 'upgrade packages from a specific channel', |
---|
209 | 'arg' => 'CHAN', |
---|
210 | ), |
---|
211 | 'nodeps' => array( |
---|
212 | 'shortopt' => 'n', |
---|
213 | 'doc' => 'ignore dependencies, upgrade anyway', |
---|
214 | ), |
---|
215 | 'register-only' => array( |
---|
216 | 'shortopt' => 'r', |
---|
217 | 'doc' => 'do not install files, only register the package as upgraded', |
---|
218 | ), |
---|
219 | 'nobuild' => array( |
---|
220 | 'shortopt' => 'B', |
---|
221 | 'doc' => 'don\'t build C extensions', |
---|
222 | ), |
---|
223 | 'nocompress' => array( |
---|
224 | 'shortopt' => 'Z', |
---|
225 | 'doc' => 'request uncompressed files when downloading', |
---|
226 | ), |
---|
227 | 'installroot' => array( |
---|
228 | 'shortopt' => 'R', |
---|
229 | 'arg' => 'DIR', |
---|
230 | 'doc' => 'root directory used when installing files (ala PHP\'s INSTALL_ROOT), use packagingroot for RPM', |
---|
231 | ), |
---|
232 | 'ignore-errors' => array( |
---|
233 | 'doc' => 'force install even if there were errors', |
---|
234 | ), |
---|
235 | 'loose' => array( |
---|
236 | 'doc' => 'do not check for recommended dependency version', |
---|
237 | ), |
---|
238 | ), |
---|
239 | 'doc' => ' |
---|
240 | WARNING: This function is deprecated in favor of using the upgrade command with no params |
---|
241 | |
---|
242 | Upgrades all packages that have a newer release available. Upgrades are |
---|
243 | done only if there is a release available of the state specified in |
---|
244 | "preferred_state" (currently {config preferred_state}), or a state considered |
---|
245 | more stable. |
---|
246 | '), |
---|
247 | 'uninstall' => array( |
---|
248 | 'summary' => 'Un-install Package', |
---|
249 | 'function' => 'doUninstall', |
---|
250 | 'shortcut' => 'un', |
---|
251 | 'options' => array( |
---|
252 | 'nodeps' => array( |
---|
253 | 'shortopt' => 'n', |
---|
254 | 'doc' => 'ignore dependencies, uninstall anyway', |
---|
255 | ), |
---|
256 | 'register-only' => array( |
---|
257 | 'shortopt' => 'r', |
---|
258 | 'doc' => 'do not remove files, only register the packages as not installed', |
---|
259 | ), |
---|
260 | 'installroot' => array( |
---|
261 | 'shortopt' => 'R', |
---|
262 | 'arg' => 'DIR', |
---|
263 | 'doc' => 'root directory used when installing files (ala PHP\'s INSTALL_ROOT)', |
---|
264 | ), |
---|
265 | 'ignore-errors' => array( |
---|
266 | 'doc' => 'force install even if there were errors', |
---|
267 | ), |
---|
268 | 'offline' => array( |
---|
269 | 'shortopt' => 'O', |
---|
270 | 'doc' => 'do not attempt to uninstall remotely', |
---|
271 | ), |
---|
272 | ), |
---|
273 | 'doc' => '[channel/]<package> ... |
---|
274 | Uninstalls one or more PEAR packages. More than one package may be |
---|
275 | specified at once. Prefix with channel name to uninstall from a |
---|
276 | channel not in your default channel ({config default_channel}) |
---|
277 | '), |
---|
278 | 'bundle' => array( |
---|
279 | 'summary' => 'Unpacks a Pecl Package', |
---|
280 | 'function' => 'doBundle', |
---|
281 | 'shortcut' => 'bun', |
---|
282 | 'options' => array( |
---|
283 | 'destination' => array( |
---|
284 | 'shortopt' => 'd', |
---|
285 | 'arg' => 'DIR', |
---|
286 | 'doc' => 'Optional destination directory for unpacking (defaults to current path or "ext" if exists)', |
---|
287 | ), |
---|
288 | 'force' => array( |
---|
289 | 'shortopt' => 'f', |
---|
290 | 'doc' => 'Force the unpacking even if there were errors in the package', |
---|
291 | ), |
---|
292 | ), |
---|
293 | 'doc' => '<package> |
---|
294 | Unpacks a Pecl Package into the selected location. It will download the |
---|
295 | package if needed. |
---|
296 | '), |
---|
297 | 'run-scripts' => array( |
---|
298 | 'summary' => 'Run Post-Install Scripts bundled with a package', |
---|
299 | 'function' => 'doRunScripts', |
---|
300 | 'shortcut' => 'rs', |
---|
301 | 'options' => array( |
---|
302 | ), |
---|
303 | 'doc' => '<package> |
---|
304 | Run post-installation scripts in package <package>, if any exist. |
---|
305 | '), |
---|
306 | ); |
---|
307 | |
---|
308 | // }}} |
---|
309 | // {{{ constructor |
---|
310 | |
---|
311 | /** |
---|
312 | * PEAR_Command_Install constructor. |
---|
313 | * |
---|
314 | * @access public |
---|
315 | */ |
---|
316 | function PEAR_Command_Install(&$ui, &$config) |
---|
317 | { |
---|
318 | parent::PEAR_Command_Common($ui, $config); |
---|
319 | } |
---|
320 | |
---|
321 | // }}} |
---|
322 | |
---|
323 | /** |
---|
324 | * For unit testing purposes |
---|
325 | */ |
---|
326 | function &getDownloader(&$ui, $options, &$config) |
---|
327 | { |
---|
328 | if (!class_exists('PEAR_Downloader')) { |
---|
329 | require_once 'PEAR/Downloader.php'; |
---|
330 | } |
---|
331 | $a = &new PEAR_Downloader($ui, $options, $config); |
---|
332 | return $a; |
---|
333 | } |
---|
334 | |
---|
335 | /** |
---|
336 | * For unit testing purposes |
---|
337 | */ |
---|
338 | function &getInstaller(&$ui) |
---|
339 | { |
---|
340 | if (!class_exists('PEAR_Installer')) { |
---|
341 | require_once 'PEAR/Installer.php'; |
---|
342 | } |
---|
343 | $a = &new PEAR_Installer($ui); |
---|
344 | return $a; |
---|
345 | } |
---|
346 | |
---|
347 | function enableExtension($binaries, $type) |
---|
348 | { |
---|
349 | if (!($phpini = $this->config->get('php_ini', null, 'pear.php.net'))) { |
---|
350 | return PEAR::raiseError('configuration option "php_ini" is not set to php.ini location'); |
---|
351 | } |
---|
352 | $ini = $this->_parseIni($phpini); |
---|
353 | if (PEAR::isError($ini)) { |
---|
354 | return $ini; |
---|
355 | } |
---|
356 | $line = 0; |
---|
357 | if ($type == 'extsrc' || $type == 'extbin') { |
---|
358 | $search = 'extensions'; |
---|
359 | $enable = 'extension'; |
---|
360 | } else { |
---|
361 | $search = 'zend_extensions'; |
---|
362 | ob_start(); |
---|
363 | phpinfo(INFO_GENERAL); |
---|
364 | $info = ob_get_contents(); |
---|
365 | ob_end_clean(); |
---|
366 | $debug = function_exists('leak') ? '_debug' : ''; |
---|
367 | $ts = preg_match('/Thread Safety.+enabled/', $info) ? '_ts' : ''; |
---|
368 | $enable = 'zend_extension' . $debug . $ts; |
---|
369 | } |
---|
370 | foreach ($ini[$search] as $line => $extension) { |
---|
371 | if (in_array($extension, $binaries, true) || in_array( |
---|
372 | $ini['extension_dir'] . DIRECTORY_SEPARATOR . $extension, $binaries, true)) { |
---|
373 | // already enabled - assume if one is, all are |
---|
374 | return true; |
---|
375 | } |
---|
376 | } |
---|
377 | if ($line) { |
---|
378 | $newini = array_slice($ini['all'], 0, $line); |
---|
379 | } else { |
---|
380 | $newini = array(); |
---|
381 | } |
---|
382 | foreach ($binaries as $binary) { |
---|
383 | if ($ini['extension_dir']) { |
---|
384 | $binary = basename($binary); |
---|
385 | } |
---|
386 | $newini[] = $enable . '="' . $binary . '"' . (OS_UNIX ? "\n" : "\r\n"); |
---|
387 | } |
---|
388 | $newini = array_merge($newini, array_slice($ini['all'], $line)); |
---|
389 | $fp = @fopen($phpini, 'wb'); |
---|
390 | if (!$fp) { |
---|
391 | return PEAR::raiseError('cannot open php.ini "' . $phpini . '" for writing'); |
---|
392 | } |
---|
393 | foreach ($newini as $line) { |
---|
394 | fwrite($fp, $line); |
---|
395 | } |
---|
396 | fclose($fp); |
---|
397 | return true; |
---|
398 | } |
---|
399 | |
---|
400 | function disableExtension($binaries, $type) |
---|
401 | { |
---|
402 | if (!($phpini = $this->config->get('php_ini', null, 'pear.php.net'))) { |
---|
403 | return PEAR::raiseError('configuration option "php_ini" is not set to php.ini location'); |
---|
404 | } |
---|
405 | $ini = $this->_parseIni($phpini); |
---|
406 | if (PEAR::isError($ini)) { |
---|
407 | return $ini; |
---|
408 | } |
---|
409 | $line = 0; |
---|
410 | if ($type == 'extsrc' || $type == 'extbin') { |
---|
411 | $search = 'extensions'; |
---|
412 | $enable = 'extension'; |
---|
413 | } else { |
---|
414 | $search = 'zend_extensions'; |
---|
415 | ob_start(); |
---|
416 | phpinfo(INFO_GENERAL); |
---|
417 | $info = ob_get_contents(); |
---|
418 | ob_end_clean(); |
---|
419 | $debug = function_exists('leak') ? '_debug' : ''; |
---|
420 | $ts = preg_match('/Thread Safety.+enabled/', $info) ? '_ts' : ''; |
---|
421 | $enable = 'zend_extension' . $debug . $ts; |
---|
422 | } |
---|
423 | $found = false; |
---|
424 | foreach ($ini[$search] as $line => $extension) { |
---|
425 | if (in_array($extension, $binaries, true) || in_array( |
---|
426 | $ini['extension_dir'] . DIRECTORY_SEPARATOR . $extension, $binaries, true)) { |
---|
427 | $found = true; |
---|
428 | break; |
---|
429 | } |
---|
430 | } |
---|
431 | if (!$found) { |
---|
432 | // not enabled |
---|
433 | return true; |
---|
434 | } |
---|
435 | $fp = @fopen($phpini, 'wb'); |
---|
436 | if (!$fp) { |
---|
437 | return PEAR::raiseError('cannot open php.ini "' . $phpini . '" for writing'); |
---|
438 | } |
---|
439 | if ($line) { |
---|
440 | $newini = array_slice($ini['all'], 0, $line); |
---|
441 | // delete the enable line |
---|
442 | $newini = array_merge($newini, array_slice($ini['all'], $line + 1)); |
---|
443 | } else { |
---|
444 | $newini = array_slice($ini['all'], 1); |
---|
445 | } |
---|
446 | foreach ($newini as $line) { |
---|
447 | fwrite($fp, $line); |
---|
448 | } |
---|
449 | fclose($fp); |
---|
450 | return true; |
---|
451 | } |
---|
452 | |
---|
453 | function _parseIni($filename) |
---|
454 | { |
---|
455 | if (!file_exists($filename)) { |
---|
456 | return PEAR::raiseError('php.ini "' . $filename . '" does not exist'); |
---|
457 | } |
---|
458 | |
---|
459 | if (filesize($filename) > 300000) { |
---|
460 | return PEAR::raiseError('php.ini "' . $filename . '" is too large, aborting'); |
---|
461 | } |
---|
462 | |
---|
463 | ob_start(); |
---|
464 | phpinfo(INFO_GENERAL); |
---|
465 | $info = ob_get_contents(); |
---|
466 | ob_end_clean(); |
---|
467 | $debug = function_exists('leak') ? '_debug' : ''; |
---|
468 | $ts = preg_match('/Thread Safety.+enabled/', $info) ? '_ts' : ''; |
---|
469 | $zend_extension_line = 'zend_extension' . $debug . $ts; |
---|
470 | $all = @file($filename); |
---|
471 | if (!$all) { |
---|
472 | return PEAR::raiseError('php.ini "' . $filename .'" could not be read'); |
---|
473 | } |
---|
474 | $zend_extensions = $extensions = array(); |
---|
475 | // assume this is right, but pull from the php.ini if it is found |
---|
476 | $extension_dir = ini_get('extension_dir'); |
---|
477 | foreach ($all as $linenum => $line) { |
---|
478 | $line = trim($line); |
---|
479 | if (!$line) { |
---|
480 | continue; |
---|
481 | } |
---|
482 | if ($line[0] == ';') { |
---|
483 | continue; |
---|
484 | } |
---|
485 | if (strtolower(substr($line, 0, 13)) == 'extension_dir') { |
---|
486 | $line = trim(substr($line, 13)); |
---|
487 | if ($line[0] == '=') { |
---|
488 | $x = trim(substr($line, 1)); |
---|
489 | $x = explode(';', $x); |
---|
490 | $extension_dir = str_replace('"', '', array_shift($x)); |
---|
491 | continue; |
---|
492 | } |
---|
493 | } |
---|
494 | if (strtolower(substr($line, 0, 9)) == 'extension') { |
---|
495 | $line = trim(substr($line, 9)); |
---|
496 | if ($line[0] == '=') { |
---|
497 | $x = trim(substr($line, 1)); |
---|
498 | $x = explode(';', $x); |
---|
499 | $extensions[$linenum] = str_replace('"', '', array_shift($x)); |
---|
500 | continue; |
---|
501 | } |
---|
502 | } |
---|
503 | if (strtolower(substr($line, 0, strlen($zend_extension_line))) == |
---|
504 | $zend_extension_line) { |
---|
505 | $line = trim(substr($line, strlen($zend_extension_line))); |
---|
506 | if ($line[0] == '=') { |
---|
507 | $x = trim(substr($line, 1)); |
---|
508 | $x = explode(';', $x); |
---|
509 | $zend_extensions[$linenum] = str_replace('"', '', array_shift($x)); |
---|
510 | continue; |
---|
511 | } |
---|
512 | } |
---|
513 | } |
---|
514 | return array( |
---|
515 | 'extensions' => $extensions, |
---|
516 | 'zend_extensions' => $zend_extensions, |
---|
517 | 'extension_dir' => $extension_dir, |
---|
518 | 'all' => $all, |
---|
519 | ); |
---|
520 | } |
---|
521 | |
---|
522 | // {{{ doInstall() |
---|
523 | |
---|
524 | function doInstall($command, $options, $params) |
---|
525 | { |
---|
526 | if (!class_exists('PEAR_PackageFile')) { |
---|
527 | require_once 'PEAR/PackageFile.php'; |
---|
528 | } |
---|
529 | |
---|
530 | if (isset($options['installroot']) && isset($options['packagingroot'])) { |
---|
531 | return $this->raiseError('ERROR: cannot use both --installroot and --packagingroot'); |
---|
532 | } |
---|
533 | |
---|
534 | $reg = &$this->config->getRegistry(); |
---|
535 | $channel = isset($options['channel']) ? $options['channel'] : $this->config->get('default_channel'); |
---|
536 | if (!$reg->channelExists($channel)) { |
---|
537 | return $this->raiseError('Channel "' . $channel . '" does not exist'); |
---|
538 | } |
---|
539 | |
---|
540 | if (empty($this->installer)) { |
---|
541 | $this->installer = &$this->getInstaller($this->ui); |
---|
542 | } |
---|
543 | |
---|
544 | if ($command == 'upgrade' || $command == 'upgrade-all') { |
---|
545 | // If people run the upgrade command but pass nothing, emulate a upgrade-all |
---|
546 | if ($command == 'upgrade' && empty($params)) { |
---|
547 | return $this->doUpgradeAll($command, $options, $params); |
---|
548 | } |
---|
549 | $options['upgrade'] = true; |
---|
550 | } else { |
---|
551 | $packages = $params; |
---|
552 | } |
---|
553 | |
---|
554 | $instreg = &$reg; // instreg used to check if package is installed |
---|
555 | if (isset($options['packagingroot']) && !isset($options['upgrade'])) { |
---|
556 | $packrootphp_dir = $this->installer->_prependPath( |
---|
557 | $this->config->get('php_dir', null, 'pear.php.net'), |
---|
558 | $options['packagingroot']); |
---|
559 | $instreg = new PEAR_Registry($packrootphp_dir); // other instreg! |
---|
560 | |
---|
561 | if ($this->config->get('verbose') > 2) { |
---|
562 | $this->ui->outputData('using package root: ' . $options['packagingroot']); |
---|
563 | } |
---|
564 | } |
---|
565 | |
---|
566 | $abstractpackages = $otherpackages = array(); |
---|
567 | // parse params |
---|
568 | PEAR::staticPushErrorHandling(PEAR_ERROR_RETURN); |
---|
569 | |
---|
570 | foreach ($params as $param) { |
---|
571 | if (strpos($param, 'http://') === 0) { |
---|
572 | $otherpackages[] = $param; |
---|
573 | continue; |
---|
574 | } |
---|
575 | |
---|
576 | if (strpos($param, 'channel://') === false && @file_exists($param)) { |
---|
577 | if (isset($options['force'])) { |
---|
578 | $otherpackages[] = $param; |
---|
579 | continue; |
---|
580 | } |
---|
581 | |
---|
582 | $pkg = new PEAR_PackageFile($this->config); |
---|
583 | $pf = $pkg->fromAnyFile($param, PEAR_VALIDATE_DOWNLOADING); |
---|
584 | if (PEAR::isError($pf)) { |
---|
585 | $otherpackages[] = $param; |
---|
586 | continue; |
---|
587 | } |
---|
588 | |
---|
589 | $exists = $reg->packageExists($pf->getPackage(), $pf->getChannel()); |
---|
590 | $pversion = $reg->packageInfo($pf->getPackage(), 'version', $pf->getChannel()); |
---|
591 | $version_compare = version_compare($pf->getVersion(), $pversion, '<='); |
---|
592 | if ($exists && $version_compare) { |
---|
593 | if ($this->config->get('verbose')) { |
---|
594 | $this->ui->outputData('Ignoring installed package ' . |
---|
595 | $reg->parsedPackageNameToString( |
---|
596 | array('package' => $pf->getPackage(), |
---|
597 | 'channel' => $pf->getChannel()), true)); |
---|
598 | } |
---|
599 | continue; |
---|
600 | } |
---|
601 | $otherpackages[] = $param; |
---|
602 | continue; |
---|
603 | } |
---|
604 | |
---|
605 | $e = $reg->parsePackageName($param, $channel); |
---|
606 | if (PEAR::isError($e)) { |
---|
607 | $otherpackages[] = $param; |
---|
608 | } else { |
---|
609 | $abstractpackages[] = $e; |
---|
610 | } |
---|
611 | } |
---|
612 | PEAR::staticPopErrorHandling(); |
---|
613 | |
---|
614 | // if there are any local package .tgz or remote static url, we can't |
---|
615 | // filter. The filter only works for abstract packages |
---|
616 | if (count($abstractpackages) && !isset($options['force'])) { |
---|
617 | // when not being forced, only do necessary upgrades/installs |
---|
618 | if (isset($options['upgrade'])) { |
---|
619 | $abstractpackages = $this->_filterUptodatePackages($abstractpackages, $command); |
---|
620 | } else { |
---|
621 | $count = count($abstractpackages); |
---|
622 | foreach ($abstractpackages as $i => $package) { |
---|
623 | if (isset($package['group'])) { |
---|
624 | // do not filter out install groups |
---|
625 | continue; |
---|
626 | } |
---|
627 | |
---|
628 | if ($instreg->packageExists($package['package'], $package['channel'])) { |
---|
629 | if ($count > 1) { |
---|
630 | if ($this->config->get('verbose')) { |
---|
631 | $this->ui->outputData('Ignoring installed package ' . |
---|
632 | $reg->parsedPackageNameToString($package, true)); |
---|
633 | } |
---|
634 | unset($abstractpackages[$i]); |
---|
635 | } elseif ($count === 1) { |
---|
636 | // Lets try to upgrade it since it's already installed |
---|
637 | $options['upgrade'] = true; |
---|
638 | } |
---|
639 | } |
---|
640 | } |
---|
641 | } |
---|
642 | $abstractpackages = |
---|
643 | array_map(array($reg, 'parsedPackageNameToString'), $abstractpackages); |
---|
644 | } elseif (count($abstractpackages)) { |
---|
645 | $abstractpackages = |
---|
646 | array_map(array($reg, 'parsedPackageNameToString'), $abstractpackages); |
---|
647 | } |
---|
648 | |
---|
649 | $packages = array_merge($abstractpackages, $otherpackages); |
---|
650 | if (!count($packages)) { |
---|
651 | $c = ''; |
---|
652 | if (isset($options['channel'])){ |
---|
653 | $c .= ' in channel "' . $options['channel'] . '"'; |
---|
654 | } |
---|
655 | $this->ui->outputData('Nothing to ' . $command . $c); |
---|
656 | return true; |
---|
657 | } |
---|
658 | |
---|
659 | $this->downloader = &$this->getDownloader($this->ui, $options, $this->config); |
---|
660 | $errors = $downloaded = $binaries = array(); |
---|
661 | $downloaded = &$this->downloader->download($packages); |
---|
662 | if (PEAR::isError($downloaded)) { |
---|
663 | return $this->raiseError($downloaded); |
---|
664 | } |
---|
665 | |
---|
666 | $errors = $this->downloader->getErrorMsgs(); |
---|
667 | if (count($errors)) { |
---|
668 | $err = array(); |
---|
669 | $err['data'] = array(); |
---|
670 | foreach ($errors as $error) { |
---|
671 | if ($error !== null) { |
---|
672 | $err['data'][] = array($error); |
---|
673 | } |
---|
674 | } |
---|
675 | |
---|
676 | if (!empty($err['data'])) { |
---|
677 | $err['headline'] = 'Install Errors'; |
---|
678 | $this->ui->outputData($err); |
---|
679 | } |
---|
680 | |
---|
681 | if (!count($downloaded)) { |
---|
682 | return $this->raiseError("$command failed"); |
---|
683 | } |
---|
684 | } |
---|
685 | |
---|
686 | $data = array( |
---|
687 | 'headline' => 'Packages that would be Installed' |
---|
688 | ); |
---|
689 | |
---|
690 | if (isset($options['pretend'])) { |
---|
691 | foreach ($downloaded as $package) { |
---|
692 | $data['data'][] = array($reg->parsedPackageNameToString($package->getParsedPackage())); |
---|
693 | } |
---|
694 | $this->ui->outputData($data, 'pretend'); |
---|
695 | return true; |
---|
696 | } |
---|
697 | |
---|
698 | $this->installer->setOptions($options); |
---|
699 | $this->installer->sortPackagesForInstall($downloaded); |
---|
700 | if (PEAR::isError($err = $this->installer->setDownloadedPackages($downloaded))) { |
---|
701 | $this->raiseError($err->getMessage()); |
---|
702 | return true; |
---|
703 | } |
---|
704 | |
---|
705 | $binaries = $extrainfo = array(); |
---|
706 | foreach ($downloaded as $param) { |
---|
707 | PEAR::staticPushErrorHandling(PEAR_ERROR_RETURN); |
---|
708 | $info = $this->installer->install($param, $options); |
---|
709 | PEAR::staticPopErrorHandling(); |
---|
710 | if (PEAR::isError($info)) { |
---|
711 | $oldinfo = $info; |
---|
712 | $pkg = &$param->getPackageFile(); |
---|
713 | if ($info->getCode() != PEAR_INSTALLER_NOBINARY) { |
---|
714 | if (!($info = $pkg->installBinary($this->installer))) { |
---|
715 | $this->ui->outputData('ERROR: ' .$oldinfo->getMessage()); |
---|
716 | continue; |
---|
717 | } |
---|
718 | |
---|
719 | // we just installed a different package than requested, |
---|
720 | // let's change the param and info so that the rest of this works |
---|
721 | $param = $info[0]; |
---|
722 | $info = $info[1]; |
---|
723 | } |
---|
724 | } |
---|
725 | |
---|
726 | if (!is_array($info)) { |
---|
727 | return $this->raiseError("$command failed"); |
---|
728 | } |
---|
729 | |
---|
730 | if ($param->getPackageType() == 'extsrc' || |
---|
731 | $param->getPackageType() == 'extbin' || |
---|
732 | $param->getPackageType() == 'zendextsrc' || |
---|
733 | $param->getPackageType() == 'zendextbin' |
---|
734 | ) { |
---|
735 | $pkg = &$param->getPackageFile(); |
---|
736 | if ($instbin = $pkg->getInstalledBinary()) { |
---|
737 | $instpkg = &$instreg->getPackage($instbin, $pkg->getChannel()); |
---|
738 | } else { |
---|
739 | $instpkg = &$instreg->getPackage($pkg->getPackage(), $pkg->getChannel()); |
---|
740 | } |
---|
741 | |
---|
742 | foreach ($instpkg->getFilelist() as $name => $atts) { |
---|
743 | $pinfo = pathinfo($atts['installed_as']); |
---|
744 | if (!isset($pinfo['extension']) || |
---|
745 | in_array($pinfo['extension'], array('c', 'h')) |
---|
746 | ) { |
---|
747 | continue; // make sure we don't match php_blah.h |
---|
748 | } |
---|
749 | |
---|
750 | if ((strpos($pinfo['basename'], 'php_') === 0 && |
---|
751 | $pinfo['extension'] == 'dll') || |
---|
752 | // most unices |
---|
753 | $pinfo['extension'] == 'so' || |
---|
754 | // hp-ux |
---|
755 | $pinfo['extension'] == 'sl') { |
---|
756 | $binaries[] = array($atts['installed_as'], $pinfo); |
---|
757 | break; |
---|
758 | } |
---|
759 | } |
---|
760 | |
---|
761 | if (count($binaries)) { |
---|
762 | foreach ($binaries as $pinfo) { |
---|
763 | PEAR::staticPushErrorHandling(PEAR_ERROR_RETURN); |
---|
764 | $ret = $this->enableExtension(array($pinfo[0]), $param->getPackageType()); |
---|
765 | PEAR::staticPopErrorHandling(); |
---|
766 | if (PEAR::isError($ret)) { |
---|
767 | $extrainfo[] = $ret->getMessage(); |
---|
768 | if ($param->getPackageType() == 'extsrc' || |
---|
769 | $param->getPackageType() == 'extbin') { |
---|
770 | $exttype = 'extension'; |
---|
771 | } else { |
---|
772 | ob_start(); |
---|
773 | phpinfo(INFO_GENERAL); |
---|
774 | $info = ob_get_contents(); |
---|
775 | ob_end_clean(); |
---|
776 | $debug = function_exists('leak') ? '_debug' : ''; |
---|
777 | $ts = preg_match('/Thread Safety.+enabled/', $info) ? '_ts' : ''; |
---|
778 | $exttype = 'zend_extension' . $debug . $ts; |
---|
779 | } |
---|
780 | $extrainfo[] = 'You should add "' . $exttype . '=' . |
---|
781 | $pinfo[1]['basename'] . '" to php.ini'; |
---|
782 | } else { |
---|
783 | $extrainfo[] = 'Extension ' . $instpkg->getProvidesExtension() . |
---|
784 | ' enabled in php.ini'; |
---|
785 | } |
---|
786 | } |
---|
787 | } |
---|
788 | } |
---|
789 | |
---|
790 | if ($this->config->get('verbose') > 0) { |
---|
791 | $chan = $param->getChannel(); |
---|
792 | $label = $reg->parsedPackageNameToString( |
---|
793 | array( |
---|
794 | 'channel' => $chan, |
---|
795 | 'package' => $param->getPackage(), |
---|
796 | 'version' => $param->getVersion(), |
---|
797 | )); |
---|
798 | $out = array('data' => "$command ok: $label"); |
---|
799 | if (isset($info['release_warnings'])) { |
---|
800 | $out['release_warnings'] = $info['release_warnings']; |
---|
801 | } |
---|
802 | $this->ui->outputData($out, $command); |
---|
803 | |
---|
804 | if (!isset($options['register-only']) && !isset($options['offline'])) { |
---|
805 | if ($this->config->isDefinedLayer('ftp')) { |
---|
806 | PEAR::staticPushErrorHandling(PEAR_ERROR_RETURN); |
---|
807 | $info = $this->installer->ftpInstall($param); |
---|
808 | PEAR::staticPopErrorHandling(); |
---|
809 | if (PEAR::isError($info)) { |
---|
810 | $this->ui->outputData($info->getMessage()); |
---|
811 | $this->ui->outputData("remote install failed: $label"); |
---|
812 | } else { |
---|
813 | $this->ui->outputData("remote install ok: $label"); |
---|
814 | } |
---|
815 | } |
---|
816 | } |
---|
817 | } |
---|
818 | |
---|
819 | $deps = $param->getDeps(); |
---|
820 | if ($deps) { |
---|
821 | if (isset($deps['group'])) { |
---|
822 | $groups = $deps['group']; |
---|
823 | if (!isset($groups[0])) { |
---|
824 | $groups = array($groups); |
---|
825 | } |
---|
826 | |
---|
827 | foreach ($groups as $group) { |
---|
828 | if ($group['attribs']['name'] == 'default') { |
---|
829 | // default group is always installed, unless the user |
---|
830 | // explicitly chooses to install another group |
---|
831 | continue; |
---|
832 | } |
---|
833 | $extrainfo[] = $param->getPackage() . ': Optional feature ' . |
---|
834 | $group['attribs']['name'] . ' available (' . |
---|
835 | $group['attribs']['hint'] . ')'; |
---|
836 | } |
---|
837 | |
---|
838 | $extrainfo[] = $param->getPackage() . |
---|
839 | ': To install optional features use "pear install ' . |
---|
840 | $reg->parsedPackageNameToString( |
---|
841 | array('package' => $param->getPackage(), |
---|
842 | 'channel' => $param->getChannel()), true) . |
---|
843 | '#featurename"'; |
---|
844 | } |
---|
845 | } |
---|
846 | |
---|
847 | $pkg = &$instreg->getPackage($param->getPackage(), $param->getChannel()); |
---|
848 | // $pkg may be NULL if install is a 'fake' install via --packagingroot |
---|
849 | if (is_object($pkg)) { |
---|
850 | $pkg->setConfig($this->config); |
---|
851 | if ($list = $pkg->listPostinstallScripts()) { |
---|
852 | $pn = $reg->parsedPackageNameToString(array('channel' => |
---|
853 | $param->getChannel(), 'package' => $param->getPackage()), true); |
---|
854 | $extrainfo[] = $pn . ' has post-install scripts:'; |
---|
855 | foreach ($list as $file) { |
---|
856 | $extrainfo[] = $file; |
---|
857 | } |
---|
858 | $extrainfo[] = $param->getPackage() . |
---|
859 | ': Use "pear run-scripts ' . $pn . '" to finish setup.'; |
---|
860 | $extrainfo[] = 'DO NOT RUN SCRIPTS FROM UNTRUSTED SOURCES'; |
---|
861 | } |
---|
862 | } |
---|
863 | } |
---|
864 | |
---|
865 | if (count($extrainfo)) { |
---|
866 | foreach ($extrainfo as $info) { |
---|
867 | $this->ui->outputData($info); |
---|
868 | } |
---|
869 | } |
---|
870 | |
---|
871 | return true; |
---|
872 | } |
---|
873 | |
---|
874 | // }}} |
---|
875 | // {{{ doUpgradeAll() |
---|
876 | |
---|
877 | function doUpgradeAll($command, $options, $params) |
---|
878 | { |
---|
879 | $reg = &$this->config->getRegistry(); |
---|
880 | $upgrade = array(); |
---|
881 | |
---|
882 | if (isset($options['channel'])) { |
---|
883 | $channels = array($options['channel']); |
---|
884 | } else { |
---|
885 | $channels = $reg->listChannels(); |
---|
886 | } |
---|
887 | |
---|
888 | foreach ($channels as $channel) { |
---|
889 | if ($channel == '__uri') { |
---|
890 | continue; |
---|
891 | } |
---|
892 | |
---|
893 | // parse name with channel |
---|
894 | foreach ($reg->listPackages($channel) as $name) { |
---|
895 | $upgrade[] = $reg->parsedPackageNameToString(array( |
---|
896 | 'channel' => $channel, |
---|
897 | 'package' => $name |
---|
898 | )); |
---|
899 | } |
---|
900 | } |
---|
901 | |
---|
902 | $err = $this->doInstall($command, $options, $upgrade); |
---|
903 | if (PEAR::isError($err)) { |
---|
904 | $this->ui->outputData($err->getMessage(), $command); |
---|
905 | } |
---|
906 | } |
---|
907 | |
---|
908 | // }}} |
---|
909 | // {{{ doUninstall() |
---|
910 | |
---|
911 | function doUninstall($command, $options, $params) |
---|
912 | { |
---|
913 | if (count($params) < 1) { |
---|
914 | return $this->raiseError("Please supply the package(s) you want to uninstall"); |
---|
915 | } |
---|
916 | |
---|
917 | if (empty($this->installer)) { |
---|
918 | $this->installer = &$this->getInstaller($this->ui); |
---|
919 | } |
---|
920 | |
---|
921 | if (isset($options['remoteconfig'])) { |
---|
922 | $e = $this->config->readFTPConfigFile($options['remoteconfig']); |
---|
923 | if (!PEAR::isError($e)) { |
---|
924 | $this->installer->setConfig($this->config); |
---|
925 | } |
---|
926 | } |
---|
927 | |
---|
928 | $reg = &$this->config->getRegistry(); |
---|
929 | $newparams = array(); |
---|
930 | $binaries = array(); |
---|
931 | $badparams = array(); |
---|
932 | foreach ($params as $pkg) { |
---|
933 | $channel = $this->config->get('default_channel'); |
---|
934 | PEAR::staticPushErrorHandling(PEAR_ERROR_RETURN); |
---|
935 | $parsed = $reg->parsePackageName($pkg, $channel); |
---|
936 | PEAR::staticPopErrorHandling(); |
---|
937 | if (!$parsed || PEAR::isError($parsed)) { |
---|
938 | $badparams[] = $pkg; |
---|
939 | continue; |
---|
940 | } |
---|
941 | $package = $parsed['package']; |
---|
942 | $channel = $parsed['channel']; |
---|
943 | $info = &$reg->getPackage($package, $channel); |
---|
944 | if ($info === null && |
---|
945 | ($channel == 'pear.php.net' || $channel == 'pecl.php.net')) { |
---|
946 | // make sure this isn't a package that has flipped from pear to pecl but |
---|
947 | // used a package.xml 1.0 |
---|
948 | $testc = ($channel == 'pear.php.net') ? 'pecl.php.net' : 'pear.php.net'; |
---|
949 | $info = &$reg->getPackage($package, $testc); |
---|
950 | if ($info !== null) { |
---|
951 | $channel = $testc; |
---|
952 | } |
---|
953 | } |
---|
954 | if ($info === null) { |
---|
955 | $badparams[] = $pkg; |
---|
956 | } else { |
---|
957 | $newparams[] = &$info; |
---|
958 | // check for binary packages (this is an alias for those packages if so) |
---|
959 | if ($installedbinary = $info->getInstalledBinary()) { |
---|
960 | $this->ui->log('adding binary package ' . |
---|
961 | $reg->parsedPackageNameToString(array('channel' => $channel, |
---|
962 | 'package' => $installedbinary), true)); |
---|
963 | $newparams[] = &$reg->getPackage($installedbinary, $channel); |
---|
964 | } |
---|
965 | // add the contents of a dependency group to the list of installed packages |
---|
966 | if (isset($parsed['group'])) { |
---|
967 | $group = $info->getDependencyGroup($parsed['group']); |
---|
968 | if ($group) { |
---|
969 | $installed = $reg->getInstalledGroup($group); |
---|
970 | if ($installed) { |
---|
971 | foreach ($installed as $i => $p) { |
---|
972 | $newparams[] = &$installed[$i]; |
---|
973 | } |
---|
974 | } |
---|
975 | } |
---|
976 | } |
---|
977 | } |
---|
978 | } |
---|
979 | $err = $this->installer->sortPackagesForUninstall($newparams); |
---|
980 | if (PEAR::isError($err)) { |
---|
981 | $this->ui->outputData($err->getMessage(), $command); |
---|
982 | return true; |
---|
983 | } |
---|
984 | $params = $newparams; |
---|
985 | // twist this to use it to check on whether dependent packages are also being uninstalled |
---|
986 | // for circular dependencies like subpackages |
---|
987 | $this->installer->setUninstallPackages($newparams); |
---|
988 | $params = array_merge($params, $badparams); |
---|
989 | $binaries = array(); |
---|
990 | foreach ($params as $pkg) { |
---|
991 | $this->installer->pushErrorHandling(PEAR_ERROR_RETURN); |
---|
992 | if ($err = $this->installer->uninstall($pkg, $options)) { |
---|
993 | $this->installer->popErrorHandling(); |
---|
994 | if (PEAR::isError($err)) { |
---|
995 | $this->ui->outputData($err->getMessage(), $command); |
---|
996 | continue; |
---|
997 | } |
---|
998 | if ($pkg->getPackageType() == 'extsrc' || |
---|
999 | $pkg->getPackageType() == 'extbin' || |
---|
1000 | $pkg->getPackageType() == 'zendextsrc' || |
---|
1001 | $pkg->getPackageType() == 'zendextbin') { |
---|
1002 | if ($instbin = $pkg->getInstalledBinary()) { |
---|
1003 | continue; // this will be uninstalled later |
---|
1004 | } |
---|
1005 | |
---|
1006 | foreach ($pkg->getFilelist() as $name => $atts) { |
---|
1007 | $pinfo = pathinfo($atts['installed_as']); |
---|
1008 | if (!isset($pinfo['extension']) || |
---|
1009 | in_array($pinfo['extension'], array('c', 'h'))) { |
---|
1010 | continue; // make sure we don't match php_blah.h |
---|
1011 | } |
---|
1012 | if ((strpos($pinfo['basename'], 'php_') === 0 && |
---|
1013 | $pinfo['extension'] == 'dll') || |
---|
1014 | // most unices |
---|
1015 | $pinfo['extension'] == 'so' || |
---|
1016 | // hp-ux |
---|
1017 | $pinfo['extension'] == 'sl') { |
---|
1018 | $binaries[] = array($atts['installed_as'], $pinfo); |
---|
1019 | break; |
---|
1020 | } |
---|
1021 | } |
---|
1022 | if (count($binaries)) { |
---|
1023 | foreach ($binaries as $pinfo) { |
---|
1024 | PEAR::staticPushErrorHandling(PEAR_ERROR_RETURN); |
---|
1025 | $ret = $this->disableExtension(array($pinfo[0]), $pkg->getPackageType()); |
---|
1026 | PEAR::staticPopErrorHandling(); |
---|
1027 | if (PEAR::isError($ret)) { |
---|
1028 | $extrainfo[] = $ret->getMessage(); |
---|
1029 | if ($pkg->getPackageType() == 'extsrc' || |
---|
1030 | $pkg->getPackageType() == 'extbin') { |
---|
1031 | $exttype = 'extension'; |
---|
1032 | } else { |
---|
1033 | ob_start(); |
---|
1034 | phpinfo(INFO_GENERAL); |
---|
1035 | $info = ob_get_contents(); |
---|
1036 | ob_end_clean(); |
---|
1037 | $debug = function_exists('leak') ? '_debug' : ''; |
---|
1038 | $ts = preg_match('/Thread Safety.+enabled/', $info) ? '_ts' : ''; |
---|
1039 | $exttype = 'zend_extension' . $debug . $ts; |
---|
1040 | } |
---|
1041 | $this->ui->outputData('Unable to remove "' . $exttype . '=' . |
---|
1042 | $pinfo[1]['basename'] . '" from php.ini', $command); |
---|
1043 | } else { |
---|
1044 | $this->ui->outputData('Extension ' . $pkg->getProvidesExtension() . |
---|
1045 | ' disabled in php.ini', $command); |
---|
1046 | } |
---|
1047 | } |
---|
1048 | } |
---|
1049 | } |
---|
1050 | $savepkg = $pkg; |
---|
1051 | if ($this->config->get('verbose') > 0) { |
---|
1052 | if (is_object($pkg)) { |
---|
1053 | $pkg = $reg->parsedPackageNameToString($pkg); |
---|
1054 | } |
---|
1055 | $this->ui->outputData("uninstall ok: $pkg", $command); |
---|
1056 | } |
---|
1057 | if (!isset($options['offline']) && is_object($savepkg) && |
---|
1058 | defined('PEAR_REMOTEINSTALL_OK')) { |
---|
1059 | if ($this->config->isDefinedLayer('ftp')) { |
---|
1060 | $this->installer->pushErrorHandling(PEAR_ERROR_RETURN); |
---|
1061 | $info = $this->installer->ftpUninstall($savepkg); |
---|
1062 | $this->installer->popErrorHandling(); |
---|
1063 | if (PEAR::isError($info)) { |
---|
1064 | $this->ui->outputData($info->getMessage()); |
---|
1065 | $this->ui->outputData("remote uninstall failed: $pkg"); |
---|
1066 | } else { |
---|
1067 | $this->ui->outputData("remote uninstall ok: $pkg"); |
---|
1068 | } |
---|
1069 | } |
---|
1070 | } |
---|
1071 | } else { |
---|
1072 | $this->installer->popErrorHandling(); |
---|
1073 | if (!is_object($pkg)) { |
---|
1074 | return $this->raiseError("uninstall failed: $pkg"); |
---|
1075 | } |
---|
1076 | $pkg = $reg->parsedPackageNameToString($pkg); |
---|
1077 | } |
---|
1078 | } |
---|
1079 | |
---|
1080 | return true; |
---|
1081 | } |
---|
1082 | |
---|
1083 | // }}} |
---|
1084 | |
---|
1085 | |
---|
1086 | // }}} |
---|
1087 | // {{{ doBundle() |
---|
1088 | /* |
---|
1089 | (cox) It just downloads and untars the package, does not do |
---|
1090 | any check that the PEAR_Installer::_installFile() does. |
---|
1091 | */ |
---|
1092 | |
---|
1093 | function doBundle($command, $options, $params) |
---|
1094 | { |
---|
1095 | $opts = array( |
---|
1096 | 'force' => true, |
---|
1097 | 'nodeps' => true, |
---|
1098 | 'soft' => true, |
---|
1099 | 'downloadonly' => true |
---|
1100 | ); |
---|
1101 | $downloader = &$this->getDownloader($this->ui, $opts, $this->config); |
---|
1102 | $reg = &$this->config->getRegistry(); |
---|
1103 | if (count($params) < 1) { |
---|
1104 | return $this->raiseError("Please supply the package you want to bundle"); |
---|
1105 | } |
---|
1106 | |
---|
1107 | if (isset($options['destination'])) { |
---|
1108 | if (!is_dir($options['destination'])) { |
---|
1109 | System::mkdir('-p ' . $options['destination']); |
---|
1110 | } |
---|
1111 | $dest = realpath($options['destination']); |
---|
1112 | } else { |
---|
1113 | $pwd = getcwd(); |
---|
1114 | $dir = $pwd . DIRECTORY_SEPARATOR . 'ext'; |
---|
1115 | $dest = is_dir($dir) ? $dir : $pwd; |
---|
1116 | } |
---|
1117 | PEAR::staticPushErrorHandling(PEAR_ERROR_RETURN); |
---|
1118 | $err = $downloader->setDownloadDir($dest); |
---|
1119 | PEAR::staticPopErrorHandling(); |
---|
1120 | if (PEAR::isError($err)) { |
---|
1121 | return PEAR::raiseError('download directory "' . $dest . |
---|
1122 | '" is not writeable.'); |
---|
1123 | } |
---|
1124 | $result = &$downloader->download(array($params[0])); |
---|
1125 | if (PEAR::isError($result)) { |
---|
1126 | return $result; |
---|
1127 | } |
---|
1128 | if (!isset($result[0])) { |
---|
1129 | return $this->raiseError('unable to unpack ' . $params[0]); |
---|
1130 | } |
---|
1131 | $pkgfile = &$result[0]->getPackageFile(); |
---|
1132 | $pkgname = $pkgfile->getName(); |
---|
1133 | $pkgversion = $pkgfile->getVersion(); |
---|
1134 | |
---|
1135 | // Unpacking ------------------------------------------------- |
---|
1136 | $dest .= DIRECTORY_SEPARATOR . $pkgname; |
---|
1137 | $orig = $pkgname . '-' . $pkgversion; |
---|
1138 | |
---|
1139 | $tar = &new Archive_Tar($pkgfile->getArchiveFile()); |
---|
1140 | if (!$tar->extractModify($dest, $orig)) { |
---|
1141 | return $this->raiseError('unable to unpack ' . $pkgfile->getArchiveFile()); |
---|
1142 | } |
---|
1143 | $this->ui->outputData("Package ready at '$dest'"); |
---|
1144 | // }}} |
---|
1145 | } |
---|
1146 | |
---|
1147 | // }}} |
---|
1148 | |
---|
1149 | function doRunScripts($command, $options, $params) |
---|
1150 | { |
---|
1151 | if (!isset($params[0])) { |
---|
1152 | return $this->raiseError('run-scripts expects 1 parameter: a package name'); |
---|
1153 | } |
---|
1154 | |
---|
1155 | $reg = &$this->config->getRegistry(); |
---|
1156 | PEAR::staticPushErrorHandling(PEAR_ERROR_RETURN); |
---|
1157 | $parsed = $reg->parsePackageName($params[0], $this->config->get('default_channel')); |
---|
1158 | PEAR::staticPopErrorHandling(); |
---|
1159 | if (PEAR::isError($parsed)) { |
---|
1160 | return $this->raiseError($parsed); |
---|
1161 | } |
---|
1162 | |
---|
1163 | $package = &$reg->getPackage($parsed['package'], $parsed['channel']); |
---|
1164 | if (!is_object($package)) { |
---|
1165 | return $this->raiseError('Could not retrieve package "' . $params[0] . '" from registry'); |
---|
1166 | } |
---|
1167 | |
---|
1168 | $package->setConfig($this->config); |
---|
1169 | $package->runPostinstallScripts(); |
---|
1170 | $this->ui->outputData('Install scripts complete', $command); |
---|
1171 | return true; |
---|
1172 | } |
---|
1173 | |
---|
1174 | /** |
---|
1175 | * Given a list of packages, filter out those ones that are already up to date |
---|
1176 | * |
---|
1177 | * @param $packages: packages, in parsed array format ! |
---|
1178 | * @return list of packages that can be upgraded |
---|
1179 | */ |
---|
1180 | function _filterUptodatePackages($packages, $command) |
---|
1181 | { |
---|
1182 | $reg = &$this->config->getRegistry(); |
---|
1183 | $latestReleases = array(); |
---|
1184 | |
---|
1185 | $ret = array(); |
---|
1186 | foreach ($packages as $package) { |
---|
1187 | if (isset($package['group'])) { |
---|
1188 | $ret[] = $package; |
---|
1189 | continue; |
---|
1190 | } |
---|
1191 | |
---|
1192 | $channel = $package['channel']; |
---|
1193 | $name = $package['package']; |
---|
1194 | if (!$reg->packageExists($name, $channel)) { |
---|
1195 | $ret[] = $package; |
---|
1196 | continue; |
---|
1197 | } |
---|
1198 | |
---|
1199 | if (!isset($latestReleases[$channel])) { |
---|
1200 | // fill in cache for this channel |
---|
1201 | $chan = &$reg->getChannel($channel); |
---|
1202 | if (PEAR::isError($chan)) { |
---|
1203 | return $this->raiseError($chan); |
---|
1204 | } |
---|
1205 | |
---|
1206 | $base2 = false; |
---|
1207 | $preferred_mirror = $this->config->get('preferred_mirror', null, $channel); |
---|
1208 | if ($chan->supportsREST($preferred_mirror) && |
---|
1209 | ( |
---|
1210 | //($base2 = $chan->getBaseURL('REST1.4', $preferred_mirror)) || |
---|
1211 | ($base = $chan->getBaseURL('REST1.0', $preferred_mirror)) |
---|
1212 | ) |
---|
1213 | ) { |
---|
1214 | $dorest = true; |
---|
1215 | } |
---|
1216 | |
---|
1217 | PEAR::staticPushErrorHandling(PEAR_ERROR_RETURN); |
---|
1218 | if (!isset($package['state'])) { |
---|
1219 | $state = $this->config->get('preferred_state', null, $channel); |
---|
1220 | } else { |
---|
1221 | $state = $package['state']; |
---|
1222 | } |
---|
1223 | |
---|
1224 | if ($dorest) { |
---|
1225 | if ($base2) { |
---|
1226 | $rest = &$this->config->getREST('1.4', array()); |
---|
1227 | $base = $base2; |
---|
1228 | } else { |
---|
1229 | $rest = &$this->config->getREST('1.0', array()); |
---|
1230 | } |
---|
1231 | |
---|
1232 | $installed = array_flip($reg->listPackages($channel)); |
---|
1233 | $latest = $rest->listLatestUpgrades($base, $state, $installed, $channel, $reg); |
---|
1234 | } |
---|
1235 | |
---|
1236 | PEAR::staticPopErrorHandling(); |
---|
1237 | if (PEAR::isError($latest)) { |
---|
1238 | $this->ui->outputData('Error getting channel info from ' . $channel . |
---|
1239 | ': ' . $latest->getMessage()); |
---|
1240 | continue; |
---|
1241 | } |
---|
1242 | |
---|
1243 | $latestReleases[$channel] = array_change_key_case($latest); |
---|
1244 | } |
---|
1245 | |
---|
1246 | // check package for latest release |
---|
1247 | $name_lower = strtolower($name); |
---|
1248 | if (isset($latestReleases[$channel][$name_lower])) { |
---|
1249 | // if not set, up to date |
---|
1250 | $inst_version = $reg->packageInfo($name, 'version', $channel); |
---|
1251 | $channel_version = $latestReleases[$channel][$name_lower]['version']; |
---|
1252 | if (version_compare($channel_version, $inst_version, 'le')) { |
---|
1253 | // installed version is up-to-date |
---|
1254 | continue; |
---|
1255 | } |
---|
1256 | |
---|
1257 | // maintain BC |
---|
1258 | if ($command == 'upgrade-all') { |
---|
1259 | $this->ui->outputData(array('data' => 'Will upgrade ' . |
---|
1260 | $reg->parsedPackageNameToString($package)), $command); |
---|
1261 | } |
---|
1262 | $ret[] = $package; |
---|
1263 | } |
---|
1264 | } |
---|
1265 | |
---|
1266 | return $ret; |
---|
1267 | } |
---|
1268 | } |
---|