1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
|
<?php
/* $Id$ */
$pear_dir = dirname(__FILE__);
ini_set('include_path', $pear_dir);
##//include_once 'PEAR/Config.php';
include_once 'PEAR.php';
include_once 'PEAR/Installer.php';
include_once 'PEAR/Registry.php';
include_once 'PEAR/Frontend/CLI.php';
##//$config = &PEAR_Config::singleton();
array_shift($argv);
if ($argv[0] == '--force') {
array_shift($argv);
$force = true;
} else {
$force = false;
}
// package => install_file
$install_files = array();
/*
$dp = opendir($pear_dir);
while ($ent = readdir($dp)) {
if (ereg('^package-(.*)\.xml$', $ent, $matches)) {
$install_files[$matches[1]] = $ent;
}
}
closedir($dp);
*/
foreach ($argv as $arg) {
$bn = basename($arg);
if (ereg('^package-(.*)\.xml$', $bn, $matches) ||
ereg('^([A-Za-z0-9_:]+)-.*\.(tar|tgz)$', $bn, $matches)) {
$install_files[$matches[1]] = $arg;
}
}
$config = &PEAR_Config::singleton();
// make sure we use only default values
$config_layers = $config->getLayers();
foreach ($config_layers as $layer) {
if ($layer == 'default') continue;
$config->removeLayer($layer);
}
$config->set('verbose', 0, 'default');
$options = array();
$install_root = getenv("INSTALL_ROOT");
$php_dir = $config->get('php_dir');
if (!empty($install_root)) {
$options['installroot'] = $install_root;
$reg_dir = $install_root . $php_dir;
} else {
$reg_dir = $php_dir;
}
$reg = &new PEAR_Registry($reg_dir);
$ui = &new PEAR_Frontend_CLI();
$installer = &new PEAR_Installer($ui);
$installer->registry = &$reg;
foreach ($install_files as $package => $instfile) {
if ($reg->packageExists($package)) {
$info = $installer->infoFromAny($instfile);
if (PEAR::isError($info)) {
$ui->outputData(sprintf("[PEAR] %s: %s", $package, $info->getMessage()));
continue;
}
$new_ver = $info['version'];
$old_ver = $reg->packageInfo($package, 'version');
if (version_compare($new_ver, $old_ver, 'gt')) {
$options['upgrade'] = true;
$err = $installer->install($instfile, $options);
if (PEAR::isError($err)) {
$ui->outputData(sprintf("[PEAR] %s: %s", $package, $err->getMessage()));
continue;
}
$ui->outputData(sprintf("[PEAR] %-15s- upgraded: %s", $package, $new_ver));
} else {
if (@$argv[1] == '--force') {
$options['force'] = true;
$err = $installer->install($instfile, $options);
if (PEAR::isError($err)) {
$ui->outputData(sprintf("[PEAR] %s: %s", $package, $err->getMessage()));
continue;
}
$ui->outputData(sprintf("[PEAR] %-15s- installed: %s", $package, $new_ver));
} else {
$ui->outputData(sprintf("[PEAR] %-15s- already installed: %s", $package, $old_ver));
}
}
} else {
$options['nodeps'] = true;
$err = $installer->install($instfile, $options);
if (PEAR::isError($err)) {
$ui->outputData(sprintf("[PEAR] %s: %s", $package, $err->getMessage()));
continue;
}
$new_ver = $reg->packageInfo($package, 'version');
$ui->outputData(sprintf("[PEAR] %-15s- installed: %s", $package, $new_ver));
}
}
?>
|
