/**
* This helper function parses httpd.conf and adds needed information
* for pearweb to run.
*
* In essence, this takes the contents of docs/apache_setup.txt and
* adds them to httpd.conf with paths replaced that are needed to
* make the thing work.
*
* @param array $answers
* @return boolean
*/
function setupHttpdconf($answers)
{
$eol = defined('PHP_EOL') ? PHP_EOL : (OS_WINDOWS ? "\r\n" : "\n");
if (!realpath($answers['path']) || !file_exists($answers['path'])) {
$this->_ui->outputData('No such file: "' . $answers['path'] . '"');
return false;
}
$httpdconf = file(realpath($answers['path']));
$found = array();
foreach ($httpdconf as $num => $line) {
$line = trim($line);
if (!$line) {
continue;
}
if (strpos($line, '# inserted by pearweb #### (do not remove) start') === 0) {
$found['start'] = $num;
continue;
}
if (strpos($line, '# inserted by pearweb #### (do not remove) end') === 0) {
$found['end'] = $num;
}
}
if (array_key_exists('start', $found) && array_key_exists('end', $found)) {
$one = array_slice($httpdconf, 0, $found['start'] - 1);
$two = array_slice($httpdconf, $found['end'] + 1);
} else {
$one = $httpdconf;
$two = array();
}
// here we go...
$middle = array();
$middle[] = $eol;
$middle[] = '# inserted by pearweb #### (do not remove) start' . $eol;
$middle[] = '<VirtualHost ' . $answers['namehost'] . '>' . $eol;
$middle[] = ' ServerName ' . $answers['pear'] . $eol;
$middle[] = $eol;
// apache requires all path separators to be "/" even on windows
$middle[] = ' DocumentRoot ' . str_replace('\\', '/', '@www-dir@') . '/public_html' . $eol;
$middle[] = ' DirectoryIndex index.php index.html' . $eol;
$middle[] = $eol;
$middle[] = ' php_value include_path .' . PATH_SEPARATOR . str_replace('\\', '/', '@www-dir@') . '/include' . PATH_SEPARATOR . str_replace('\\', '/', '@php-dir@') . $eol;
$middle[] = ' php_value auto_prepend_file pear-prepend.php' . $eol;
$middle[] = ' php_flag magic_quotes_gpc off' . $eol;
$middle[] = ' php_flag magic_quotes_runtime off' . $eol;
$middle[] = ' php_flag register_globals Off' . $eol;
$middle[] = $eol;
$middle[] = ' ErrorDocument 404 /error/404.php' . $eol;
$middle[] = $eol;
$middle[] = ' Alias /package ' . str_replace('\\', '/', '@www-dir@') . '/public_html/package-info.php' . $eol;
$middle[] = ' Alias /user ' . str_replace('\\', '/', '@www-dir@') . '/public_html/account-info.php' . $eol;
$middle[] = ' Alias /sidebar/pear.gif ' . str_replace('\\', '/', '@www-dir@') . '/public_html/gifs/pear_item.gif' . $eol;
$middle[] = ' Alias /distributions/manual/chm /var/lib/pear/chm' . $eol;
$middle[] = ' Alias /reference /var/lib/pear/apidoc' . $eol;
$middle[] = $eol;
$middle[] = ' RedirectPermanent /download-docs.php http://' . $answers['pear'] . '/manual/' . $eol;
$middle[] = ' RedirectPermanent /rss.php http://' . $answers['pear'] . '/feeds/latest.rss' . $eol;
$middle[] = ' RedirectPermanent /weeklynews.php http://' . $answers['pear'] . '/' . $eol;
$middle[] = ' RedirectPermanent /support.php http://' . $answers['pear'] . '/support/' . $eol;
$middle[] = ' RedirectPermanent /credits.php http://' . $answers['pear'] . '/about/credits.php' . $eol;
$middle[] = ' RedirectPermanent /pepr/pepr-overview.php http://' . $answers['pear'] . '/pepr/' . $eol;
$middle[] = $eol;
$middle[] = ' RewriteEngine On' . $eol;
$middle[] = $eol;
$middle[] = ' #' . $eol;
$middle[] = ' # Rewriting rules for the RSS feeds' . $eol;
$middle[] = ' #' . $eol;
$middle[] = $eol;
$middle[] = ' RewriteRule /feeds/(.+)\\.rss$ /feeds/feeds.php?type=$1' . $eol;
$middle[] = $eol;
$middle[] = ' #' . $eol;
$middle[] = ' # Rewriting rule for the API documentation' . $eol;
$middle[] = ' #' . $eol;
$middle[] = $eol;
$middle[] = ' RewriteRule /package/([a-zA-Z0-9_]+)/docs/(.+)($/|$) /reference/$1-$2 [PT]' . $eol;
$middle[] = $eol;
$middle[] = ' #' . $eol;
$middle[] = ' # Rewriting rule for the Bug system' . $eol;
$middle[] = ' #' . $eol;
$middle[] = $eol;
$middle[] = ' RewriteRule /bugs/([0-9]+)/*$ /bugs/bug.php?id=$1 [R]
' . $eol;
$middle[] = $eol;
$middle[] = ' #' . $eol;
$middle[] = ' # Rewriting rule for the manual' . $eol;
$middle[] = ' # throw pecl doc people to the php manual' . $eol;
$middle[] = ' #' . $eol;
$middle[] = $eol;
$middle[] = ' RewriteRule /manual/[a-z]{2}/pecl.([a-zA-Z0-9_-]+)\\.php$ http://www.php.net/$1 [R=301]' . $eol;
$middle[] = $eol;
$middle[] = ' SetEnvIf User-Agent "MS Search 4\\.0 Robot\\)$" badrobot' . $eol;
$middle[] = $eol;
$middle[] = ' <Directory />' . $eol;
$middle[] = ' order deny,allow' . $eol;
$middle[] = ' deny from env=badrobot' . $eol;
$middle[] = ' </Directory>' . $eol;
$middle[] = $eol;
$middle[] = ' <Location /get>' . $eol;
$middle[] = ' ForceType application/x-httpd-php' . $eol;
$middle[] = $eol;
$middle[] = ' Deny From 194.51.105.35' . $eol;
$middle[] = ' </Location>' . $eol;
$middle[] = $eol;
$middle[] = ' <Location /manual>' . $eol;
$middle[] = ' ErrorDocument 404 /error/404-manual.php' . $eol;
$middle[] = ' </Location>' . $eol;
$middle[] = $eol;
$middle[] = ' <Location /bugs/include>' . $eol;
$middle[] = ' deny from all' . $eol;
$middle[] = ' </Location>' . $eol;
$middle[] = $eol;
$middle[] = ' <Location /trackback>' . $eol;
$middle[] = ' DirectoryIndex trackback.php' . $eol;
$middle[] = ' </Location>' . $eol;
$middle[] = $eol;
$middle[] = '</VirtualHost>' . $eol;
$middle[] = '# inserted by pearweb #### (do not remove) end' . $eol;
$one = array_merge($one, $middle);
$httpdconf = array_merge($one, $two);
$this->_ui->outputData('opening ' . $answers['path'] . ' for writing');
$fp = fopen(realpath($answers['path']), 'w');
$this->_ui->outputData('writing data...');
fwrite($fp, implode('', $httpdconf));
fclose($fp);
$this->_ui->outputData('...done');
return true;
}
/**
* Create or upgrade the database needed for pearweb
*
* This helper function scans for previous database versions,
* and upgrades the database based on differences between the
* previous version's schema and the one distributed with this
* version.
*
* If the database has never been created, then it is created.
*
* @param array $answers
* @return boolean
*/
function initializeDatabase($answers)
{
//include_once dirname(__FILE__) . 'include/pear-config.php';
//$a = MDB2_Schema::factory(PEAR_DATABASE_DSN,
$this->dsn = array('phptype' => $answers['driver'], 'username' => $answers['user'], 'password' => $answers['password'], 'hostspec' => $answers['host'], 'database' => $answers['database']);
$a = MDB2_Schema::factory($this->dsn, array('idxname_format' => '%s', 'seqname_format' => 'id', 'quote_identifier' => true));
// for upgrade purposes
if (!file_exists('@www-dir@' . DIRECTORY_SEPARATOR . 'sql' . DIRECTORY_SEPARATOR . '.pearweb-upgrade')) {
if (!mkdir('@www-dir@' . DIRECTORY_SEPARATOR . 'sql' . DIRECTORY_SEPARATOR . '.pearweb-upgrade')) {
$this->_ui->outputData('error - make sure we can create directories');
return false;
}
}
PEAR::staticPushErrorHandling(PEAR_ERROR_RETURN);
$c = $a->parseDatabaseDefinitionFile(realpath('@www-dir@/sql/pearweb_election.xml'));
PEAR::staticPopErrorHandling();
if (PEAR::isError($c)) {
$extra = '';
if (MDB2_Schema::isError($c) || MDB2::isError($c)) {
$extra = "\n" . $c->getUserInfo();
}
$this->_ui->outputData('ERROR: ' . $c->getMessage() . $extra);
return false;
}
$c['name'] = $answers['database'];
$c['create'] = 1;
$c['overwrite'] = 0;
$dir = opendir('@www-dir@/sql/.pearweb-upgrade');
$oldversion = false;
while (false !== ($entry = readdir($dir))) {
if ($entry[0] === '.') {
continue;
}
if (strpos($entry, $answers['database']) === 0) {
// this is one of ours
// strip databasename-
$entry = substr($entry, strlen($answers['database']) + 1);
// strip ".ser"
$entry = substr($entry, 0, strlen($entry) - 4);
// ... and we're left with just the version
if (!$oldversion) {
$oldversion = $entry;
continue;
}
if (version_compare($entry, $oldversion, '>')) {
$oldversion = $entry;
}
}
}
if (!file_exists('@www-dir@/sql/.pearweb-upgrade/' . $answers['database'] . '-@version@.ser')) {
$fp = fopen('@www-dir@/sql/.pearweb-upgrade/' . $answers['database'] . '-@version@.ser', 'w');
fwrite($fp, serialize($c));
fclose($fp);
}
if ($oldversion == '@version@') {
// this is where to change if we need to add a "force upgrade of
// structure" option
// we would uncomment the following line:
//$c['overwrite'] = true;
$oldversion = false;
}
if ($oldversion) {
$curdef = unserialize(file_get_contents('@www-dir@/sql/.pearweb-upgrade/' . $answers['database'] . '-' . $oldversion . '.ser'));
if (!is_array($curdef)) {
$this->_ui->outputData('invalid data returned from previous version');
}
// get a database diff (MDB2_Schema is very useful here)
PEAR::staticPushErrorHandling(PEAR_ERROR_RETURN);
$c = $a->compareDefinitions($c, $curdef);
if (PEAR::isError($c)) {
$this->_ui->outputData($err->getMessage());
$this->_ui->outputData($err->getUserInfo());
$this->_ui->outputData('Unable to automatically update database');
return false;
}
$err = $a->updateDatabase($curdef, $c);
PEAR::staticPopErrorHandling();
} else {
PEAR::staticPushErrorHandling(PEAR_ERROR_RETURN);
$err = $a->createDatabase($c);
PEAR::staticPopErrorHandling();
}
if (PEAR::isError($err)) {
$this->_ui->outputData($err->getUserInfo());
$this->_ui->outputData($err->getMessage());
return false;
}
return true;
}
