File install-pear.php of Package php-pear
1
2
while (@ob_end_flush());
3
/* $Id$ */
4
5
error_reporting(1803);
6
7
if (ini_get('date.timezone') === '' && function_exists('date_default_timezone_set')) {
8
date_default_timezone_set('UTC');
9
}
10
11
$pear_dir = dirname(__FILE__);
12
ini_set('include_path', '');
13
if (function_exists('mb_internal_encoding')) {
14
mb_internal_encoding('ASCII');
15
}
16
set_time_limit(0);
17
include_once 'PEAR.php';
18
include_once 'PEAR/Installer.php';
19
include_once 'PEAR/Registry.php';
20
include_once 'PEAR/PackageFile.php';
21
include_once 'PEAR/Downloader/Package.php';
22
include_once 'PEAR/Frontend.php';
23
$a = true;
24
if (!PEAR::loadExtension('xml')) {
25
$a = false;
26
echo "[PEAR] xml extension is required\n";
27
}
28
if (!PEAR::loadExtension('pcre')) {
29
$a = false;
30
echo "[PEAR] pcre extension is required\n";
31
}
32
if (!$a) {
33
return -1;
34
}
35
36
$force = false;
37
$install_files = array();
38
array_shift($argv);
39
$debug = false;
40
for ($i = 0; $i < sizeof($argv); $i++) {
41
$arg = $argv[$i];
42
$bn = basename($arg);
43
if (preg_match('/package-(.*)\.xml$/', $bn, $matches) ||
44
preg_match('/([A-Za-z0-9_:]+)-.*\.(tar|tgz)$/', $bn, $matches)) {
45
$install_files[$matches[1]] = $arg;
46
} elseif ($arg == '-a') {
47
$cache_dir = $argv[$i+1];
48
$i++;
49
} elseif ($arg == '--force') {
50
$force = true;
51
} elseif ($arg == '-dp') {
52
$prefix = $argv[$i+1];
53
$i++;
54
} elseif ($arg == '-ds') {
55
$suffix = $argv[$i+1];
56
$i++;
57
} elseif ($arg == '-d') {
58
$with_dir = $argv[$i+1];
59
$i++;
60
} elseif ($arg == '-b') {
61
$bin_dir = $argv[$i+1];
62
$i++;
63
} elseif ($arg == '-c') {
64
$cfg_dir = $argv[$i+1];
65
$i++;
66
} elseif ($arg == '-w') {
67
$www_dir = $argv[$i+1];
68
$i++;
69
} elseif ($arg == '-p') {
70
$php_bin = $argv[$i+1];
71
$i++;
72
} elseif ($arg == '-o') {
73
$download_dir = $argv[$i+1];
74
$i++;
75
} elseif ($arg == '-t') {
76
$temp_dir = $argv[$i+1];
77
$i++;
78
} elseif ($arg == '-D') {
79
$doc_dir = $argv[$i+1];
80
$i++;
81
} elseif ($arg == '--debug') {
82
$debug = 1;
83
} elseif ($arg == '--extremedebug') {
84
$debug = 2;
85
}
86
}
87
88
$config = PEAR_Config::singleton();
89
90
if (PEAR::isError($config)) {
91
$locs = PEAR_Config::getDefaultConfigFiles();
92
die("ERROR: One of $locs[user] or $locs[system] is corrupt, please remove them and try again");
93
}
94
95
// make sure we use only default values
96
$config_layers = $config->getLayers();
97
foreach ($config_layers as $layer) {
98
if ($layer == 'default') continue;
99
$config->removeLayer($layer);
100
}
101
$keys = $config->getKeys();
102
if ($debug) {
103
$config->set('verbose', 5, 'default');
104
} else {
105
$config->set('verbose', 0, 'default');
106
}
107
// PEAR executables
108
if (!empty($bin_dir)) {
109
$config->set('bin_dir', $bin_dir, 'default');
110
}
111
112
// Cache files
113
if (!empty($cache_dir)) {
114
$config->set('cache_dir', $cache_dir, 'default');
115
}
116
117
// Config files
118
if (!empty($cfg_dir)) {
119
$config->set('cfg_dir', $cfg_dir, 'default');
120
}
121
122
// Web files
123
if (!empty($www_dir)) {
124
$config->set('www_dir', $www_dir, 'default');
125
}
126
127
// Downloaded files
128
if (!empty($download_dir)) {
129
$config->set('download_dir', $download_dir, 'default');
130
}
131
132
// Temporary files
133
if (!empty($temp_dir)) {
134
$config->set('temp_dir', $temp_dir, 'default');
135
}
136
137
// Documentation files
138
if (!empty($doc_dir)) {
139
$config->set('doc_dir', $doc_dir, 'default');
140
}
141
142
// User supplied a dir prefix
143
if (!empty($with_dir)) {
144
$ds = DIRECTORY_SEPARATOR;
145
$config->set('php_dir', $with_dir, 'default');
146
if (empty($doc_dir)) {
147
$config->set('doc_dir', $with_dir . $ds . 'doc', 'default');
148
}
149
$config->set('data_dir', $with_dir . $ds . 'data', 'default');
150
$config->set('test_dir', $with_dir . $ds . 'test', 'default');
151
if (empty($www_dir)) {
152
$config->set('www_dir', $with_dir . $ds . 'htdocs', 'default');
153
}
154
if (empty($cfg_dir)) {
155
$config->set('cfg_dir', $with_dir . $ds . 'cfg', 'default');
156
}
157
if (!is_writable($config->get('cache_dir'))) {
158
include_once 'System.php';
159
$cdir = System::mktemp(array('-d', 'pear'));
160
if (PEAR::isError($cdir)) {
161
$ui->outputData("[PEAR] cannot make new temporary directory: " . $cdir);
162
die(1);
163
}
164
$oldcachedir = $config->get('cache_dir');
165
$config->set('cache_dir', $cdir);
166
}
167
}
168
169
// PHP executable
170
if (!empty($php_bin)) {
171
$config->set('php_bin', $php_bin);
172
}
173
174
// PHP prefix
175
if (isset($prefix)) {
176
if ($prefix != 'a') {
177
if ($prefix[0] == 'a') {
178
$prefix = substr($prefix, 1);
179
}
180
$config->set('php_prefix', $prefix, 'system');
181
}
182
}
183
184
// PHP suffix
185
if (isset($suffix)) {
186
if ($suffix != 'a') {
187
if ($suffix[0] == 'a') {
188
$suffix = substr($suffix, 1);
189
}
190
$config->set('php_suffix', $suffix, 'system');
191
}
192
}
193
194
/* Print PEAR Conf (useful for debuging do NOT REMOVE) */
195
if ($debug) {
196
sort($keys);
197
foreach ($keys as $key) {
198
echo $key . ' ' .
199
$config->getPrompt($key) . ": " . $config->get($key, null, 'default') . "\n";
200
}
201
if ($debug == 2) { // extreme debugging
202
exit;
203
}
204
}
205
// end print
206
207
$php_dir = $config->get('php_dir');
208
$options = array();
209
$options['upgrade'] = true;
210
$install_root = getenv('INSTALL_ROOT');
211
if (!empty($install_root)) {
212
$options['packagingroot'] = $install_root;
213
$reg = new PEAR_Registry($options['packagingroot']);
214
} else {
215
$reg = $config->getRegistry('default');
216
}
217
218
$ui = PEAR_Frontend::singleton('PEAR_Frontend_CLI');
219
if (PEAR::isError($ui)) {
220
die($ui->getMessage());
221
}
222
$installer = new PEAR_Installer($ui);
223
$pkg = new PEAR_PackageFile($config, $debug);
224
225
foreach ($install_files as $package => $instfile) {
226
$info = $pkg->fromAnyFile($instfile, PEAR_VALIDATE_INSTALLING);
227
if (PEAR::isError($info)) {
228
if (is_array($info->getUserInfo())) {
229
foreach ($info->getUserInfo() as $err) {
230
$ui->outputData(sprintf("[PEAR] %s: %s", $package, $err['message']));
231
}
232
}
233
$ui->outputData(sprintf("[PEAR] %s: %s", $package, $info->getMessage()));
234
continue;
235
}
236
$new_ver = $info->getVersion();
237
$downloaderpackage = new PEAR_Downloader_Package($installer);
238
$err = $downloaderpackage->initialize($instfile);
239
if (PEAR::isError($err)) {
240
$ui->outputData(sprintf("[PEAR] %s: %s", $package, $err->getMessage()));
241
continue;
242
}
243
if ($reg->packageExists($package)) {
244
$old_ver = $reg->packageInfo($package, 'version');
245
if (version_compare($new_ver, $old_ver, 'gt')) {
246
$installer->setOptions($options);
247
$dp = array($downloaderpackage);
248
$installer->setDownloadedPackages($dp);
249
$err = $installer->install($downloaderpackage, $options);
250
if (PEAR::isError($err)) {
251
$ui->outputData(sprintf("[PEAR] %s: %s", $package, $err->getMessage()));
252
continue;
253
}
254
$ui->outputData(sprintf("[PEAR] %-15s- upgraded: %s", $package, $new_ver));
255
} else {
256
if ($force) {
257
$options['force'] = true;
258
$installer->setOptions($options);
259
$dp = array($downloaderpackage);
260
$installer->setDownloadedPackages($dp);
261
$err = $installer->install($downloaderpackage, $options);
262
if (PEAR::isError($err)) {
263
$ui->outputData(sprintf("[PEAR] %s: %s", $package, $err->getMessage()));
264
continue;
265
}
266
$ui->outputData(sprintf("[PEAR] %-15s- installed: %s", $package, $new_ver));
267
} else {
268
$ui->outputData(sprintf("[PEAR] %-15s- already installed: %s", $package, $old_ver));
269
}
270
}
271
} else {
272
$options['nodeps'] = true;
273
$installer->setOptions($options);
274
$dp = array($downloaderpackage);
275
$installer->setDownloadedPackages($dp);
276
$err = $installer->install($downloaderpackage, $options);
277
if (PEAR::isError($err)) {
278
$ui->outputData(sprintf("[PEAR] %s: %s", $package, $err->getMessage()));
279
continue;
280
}
281
$ui->outputData(sprintf("[PEAR] %-15s- installed: %s", $package, $new_ver));
282
}
283
if ($package == 'PEAR') {
284
if (is_file($ufile = $config->getConfFile('user'))) {
285
$ui->outputData('Warning! a PEAR user config file already exists from ' .
286
'a previous PEAR installation at ' .
287
"'$ufile'. You may probably want to remove it.");
288
}
289
$config->set('verbose', 1, 'default');
290
if (isset($oldcachedir)) {
291
$config->set('cache_dir', $oldcachedir);
292
}
293
$data = array();
294
foreach ($config->getKeys() as $key) {
295
$data[$key] = $config->get($key);
296
}
297
$cnf_file = $config->getConfFile('system');
298
if (!empty($install_root)) {
299
$cnf_file = $install_root . DIRECTORY_SEPARATOR . $cnf_file;
300
}
301
$config->writeConfigFile($cnf_file, 'system', $data);
302
$ui->outputData('Wrote PEAR system config file at: ' . $cnf_file);
303
$ui->outputData('You may want to add: ' . $config->get('php_dir') . ' to your php.ini include_path');
304
}
305
}
306
307