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
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
|
<?php
//
// +----------------------------------------------------------------------+
// | PHP Version 4 |
// +----------------------------------------------------------------------+
// | Copyright (c) 1997-2002 The PHP Group |
// +----------------------------------------------------------------------+
// | This source file is subject to version 2.02 of the PHP license, |
// | that is bundled with this package in the file LICENSE, and is |
// | available at through the world-wide-web at |
// | http://www.php.net/license/2_02.txt. |
// | If you did not receive a copy of the PHP license and are unable to |
// | obtain it through the world-wide-web, please send a note to |
// | license@php.net so we can mail you a copy immediately. |
// +----------------------------------------------------------------------+
// | Authors: Stig Bakken <ssb@fast.no> |
// | Tomas V.V.Cox <cox@idecnet.com> |
// | |
// +----------------------------------------------------------------------+
//
// $Id$
require_once 'PEAR/Common.php';
/**
* Administration class used to make a PEAR release tarball.
*
* TODO:
* - add an extra param the dir where to place the created package
* - finish and test Windows support
*
* @since PHP 4.0.2
* @author Stig Bakken <ssb@fast.no>
*/
class PEAR_Packager extends PEAR_Common
{
// {{{ properties
/** assoc with information about the package */
var $pkginfo = array();
/** name of the package directory, for example Foo-1.0 */
var $pkgdir;
/** directory where PHP code files go */
var $phpdir;
/** directory where PHP extension files go */
var $extdir;
/** directory where documentation goes */
var $docdir;
/** directory where system state information goes */
var $statedir;
/** debug mode (integer) */
var $debug = 0;
/** temporary directory */
var $tmpdir;
/** whether file list is currently being copied */
var $recordfilelist;
/** temporary space for copying file list */
var $filelist;
/** package name and version, for example "HTTP-1.0" */
var $pkgver;
// }}}
// {{{ constructor
function PEAR_Packager($phpdir = PEAR_INSTALL_DIR,
$extdir = PEAR_EXTENSION_DIR,
$docdir = '')
{
$this->PEAR();
$this->phpdir = $phpdir;
$this->extdir = $extdir;
$this->docdir = $docdir;
}
// }}}
// {{{ destructor
function _PEAR_Packager()
{
chdir($this->orig_pwd);
$this->_PEAR_Common();
}
// }}}
// {{{ package()
function package($pkgfile = null)
{
$this->orig_pwd = getcwd();
if (empty($pkgfile)) {
$pkgfile = 'package.xml';
}
$pkginfo = $this->infoFromDescriptionFile($pkgfile);
if (PEAR::isError($pkginfo)) {
return $pkginfo;
}
// XXX This needs to be checked in infoFromDescriptionFile
// or at least a helper method to do the proper checks
if (empty($pkginfo['version'])) {
return $this->raiseError("No version information found in $pkgfile",
null, PEAR_ERROR_TRIGGER, E_USER_ERROR);
}
// TMP DIR -------------------------------------------------
// We allow calls like "pear package /home/user/mypack/package.xml"
if (!@chdir(dirname($pkgfile))) {
return $this->raiseError('Couldn\'t chdir to package.xml dir',
null, PEAR_ERROR_TRIGGER, E_USER_ERROR);
}
$pwd = getcwd();
$pkgfile = basename($pkgfile);
if (isset($pkginfo['release_state']) && $pkginfo['release_state'] == 'snapshot') {
$pkginfo['version'] = date('Ymd');
}
// don't want strange characters
$pkgname = ereg_replace ('[^a-zA-Z0-9._]', '_', $pkginfo['package']);
$pkgversion = ereg_replace ('[^a-zA-Z0-9._\-]', '_', $pkginfo['version']);
$pkgver = $pkgname . '-' . $pkgversion;
// ----- Create the package file list
$filelist = array();
$i = 0;
// ----- Add the package XML file
$filelist[$i++] = $pkgfile;
// Copy files -----------------------------------------------
foreach ($pkginfo['filelist'] as $fname => $atts) {
if (!file_exists($fname)) {
return $this->raiseError("File $fname does not exists");
} else {
$filelist[$i++] = $fname;
}
}
// XXX TODO: Rebuild the package file as the old method did?
// TAR the Package -------------------------------------------
$dest_package = $this->orig_pwd . DIRECTORY_SEPARATOR . "{$pkgver}.tgz";
$tar = new Archive_Tar($dest_package, true);
$tar->setErrorHandling(PEAR_ERROR_PRINT);
if (!$tar->createModify($filelist, $pkgver)) {
return $this->raiseError('an error ocurred during package creation');
}
$this->log(1, "Package $dest_package done");
return $dest_package;
}
// }}}
}
?>
|
