mirror of
https://github.com/EGroupware/egroupware.git
synced 2024-11-07 16:44:07 +01:00
887 lines
27 KiB
PHP
Executable File
887 lines
27 KiB
PHP
Executable File
#!/usr/bin/php -qC
|
|
<?php
|
|
/**
|
|
* EGroupware - checkout, build and release archives, build Debian and rpm packages
|
|
*
|
|
* @link http://www.egroupware.org
|
|
* @license http://opensource.org/licenses/gpl-license.php GPL - GNU General Public License
|
|
* @author RalfBecker@outdoor-training.de
|
|
* @copyright (c) 2009-14 by Ralf Becker <rb@stylite.de>
|
|
* @version $Id$
|
|
*/
|
|
|
|
if (php_sapi_name() !== 'cli') // security precaution: forbit calling setup-cli as web-page
|
|
{
|
|
die('<h1>checkout-build-archives.php must NOT be called as web-page --> exiting !!!</h1>');
|
|
}
|
|
date_default_timezone_set('Europe/Berlin'); // to get ride of 5.3 warnings
|
|
|
|
$verbose = 0;
|
|
$config = array(
|
|
'packagename' => 'egroupware-epl',
|
|
'version' => '14.2', // '1.6'
|
|
'packaging' => date('Ymd'), // '001'
|
|
'egwdir' => 'egroupware',
|
|
'svndir' => '/tmp/build_root/epl_trunk_buildroot-svn',
|
|
'egw_buildroot' => '/tmp/build_root/epl_trunk_buildroot',
|
|
'sourcedir' => '/srv/obs/download/stylite-epl/egroupware-epl-trunk',
|
|
'svnbase' => 'svn+ssh://svn@dev.egroupware.org/egroupware',
|
|
'stylitebase' => 'svn+ssh://stylite@svn.stylite.de/stylite',
|
|
'svnbranch' => 'trunk', // 'branches/1.6' or 'tags/1.6.001'
|
|
'svnalias' => 'aliases/default-ssh', // default alias
|
|
'aliasdir' => 'egroupware', // directory created by the alias
|
|
'extra' => array('$stylitebase/$svnbranch/stylite', '$stylitebase/$svnbranch/esyncpro'),//, '$stylitebase/$svnbranch/groups'), //,'svn+ssh://stylite@svn.stylite.de/stylite/trunk/eventmgr'),
|
|
'types' => array('tar.bz2','tar.gz','zip'),
|
|
// diverse binaries we need
|
|
'svn' => trim(`which svn`),
|
|
'tar' => trim(`which tar`),
|
|
'mv' => trim(`which mv`),
|
|
'zip' => trim(`which zip`),
|
|
'clamscan' => trim(`which clamscan`),
|
|
'freshclam' => trim(`which freshclam`),
|
|
'gpg' => trim(`which gpg`),
|
|
'editor' => trim(`which vi`),
|
|
'rsync' => trim(`which rsync`).' --progress -e ssh --exclude "*-stylite-*" --exclude "*-esyncpro-*"',
|
|
'composer' => ($composer=trim(`which composer.phar`)) ? $composer.' install --ignore-platform-reqs' : '',
|
|
'packager' => 'build@stylite.de',
|
|
'obs' => './obs',
|
|
'obs_package_alias' => '', // name used in obs package, if different from packagename
|
|
'changelog' => false, // eg. '* 1. Zeile\n* 2. Zeile' for debian.changes
|
|
'changelog_packager' => 'Ralf Becker <rb@stylite.de>',
|
|
'editsvnchangelog' => '* ',
|
|
'svntag' => 'tags/$version.$packaging',
|
|
'release' => 'ralfbecker,egroupware@frs.sourceforge.net:/home/frs/project/e/eg/egroupware/eGroupware-$version/eGroupware-$version.$packaging/',
|
|
'copychangelog' => '$sourcedir/README', //'ralfbecker,egroupware@frs.sourceforge.net:/home/frs/project/e/eg/egroupware/README',
|
|
'skip' => array(),
|
|
'run' => array('editsvnchangelog','svntag','checkout','copy','virusscan','create','sign','obs','copychangelog'),
|
|
'patchCmd' => '# run cmd after copy eg. "cd $egw_buildroot; patch -p1 /path/to/patch"',
|
|
);
|
|
|
|
// process config from command line
|
|
$argv = $_SERVER['argv'];
|
|
$prog = array_shift($argv);
|
|
|
|
while(($arg = array_shift($argv)))
|
|
{
|
|
if ($arg == '-v' || $arg == '--verbose')
|
|
{
|
|
++$verbose;
|
|
}
|
|
elseif($arg == '-h' || $arg == '--help')
|
|
{
|
|
usage();
|
|
}
|
|
elseif(substr($arg,0,2) == '--' && isset($config[$name=substr($arg,2)]))
|
|
{
|
|
$value = array_shift($argv);
|
|
switch($name)
|
|
{
|
|
case 'extra': // stored as array and allow to add/delete items with +/- prefix
|
|
case 'types':
|
|
case 'skip':
|
|
case 'run':
|
|
if ($value[0] == '+')
|
|
{
|
|
$config[$name] = array_unique(array_merge($config[$name],preg_split('/[ ,]+/',substr($value,1))));
|
|
}
|
|
elseif ($value[0] == '-')
|
|
{
|
|
$config[$name] = array_diff($config[$name],preg_split('/[ ,]+/',substr($value,1)));
|
|
}
|
|
else
|
|
{
|
|
$config[$name] = array_unique(preg_split('/[ ,]+/',$value));
|
|
}
|
|
break;
|
|
|
|
case 'svntag':
|
|
case 'release':
|
|
case 'copychangelog':
|
|
$config[$name] = $value;
|
|
if ($value) array_unshift($config['run'],$name);
|
|
break;
|
|
|
|
case 'editsvnchangelog':
|
|
$config[$name] = $value ? $value : true;
|
|
if (!in_array('editsvnchangelog',$config['run']))
|
|
{
|
|
array_unshift($config['run'],'editsvnchangelog');
|
|
}
|
|
break;
|
|
|
|
case 'obs':
|
|
if (!is_dir($value))
|
|
{
|
|
usage("Path '$value' not found!");
|
|
}
|
|
if (!in_array('obs',$config['run'])) $config['run'][] = 'obs';
|
|
// fall through
|
|
default:
|
|
$config[$name] = $value;
|
|
break;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
usage("Unknown argument '$arg'!");
|
|
}
|
|
}
|
|
if ($verbose > 1)
|
|
{
|
|
echo "Using following config:\n";
|
|
print_r($config);
|
|
}
|
|
$svn = $config['svn'];
|
|
|
|
foreach(array_diff($config['run'],$config['skip']) as $func)
|
|
{
|
|
chdir(dirname(__FILE__)); // make relative filenames work, if other command changes dir
|
|
call_user_func('do_'.$func);
|
|
}
|
|
|
|
/**
|
|
* Release sources by rsync'ing them to a distribution / download directory
|
|
*/
|
|
function do_release()
|
|
{
|
|
global $config,$verbose;
|
|
|
|
$target = config_translate('release'); // allow to use config vars like $svnbranch in module
|
|
$cmd = $config['rsync'].' '.$config['sourcedir'].'/*'.$config['version'].'.'.$config['packaging'].'* '.$target;
|
|
if ($verbose) echo $cmd."\n";
|
|
passthru($cmd);
|
|
}
|
|
|
|
/**
|
|
* Fetch a config value allowing to use config vars like $svnbranch in it
|
|
*
|
|
* @param string $name
|
|
* @param string $value =null value to use, default $config[$name]
|
|
*/
|
|
function config_translate($name, $value=null)
|
|
{
|
|
global $config;
|
|
|
|
if (!isset($value)) $value = $config[$name];
|
|
if (is_string($value) && strpos($value, '$') !== false)
|
|
{
|
|
$translate = array();
|
|
foreach($config as $n => $val)
|
|
{
|
|
if (is_string($val)) $translate['$'.$n] = $val;
|
|
}
|
|
$value = strtr($value, $translate);
|
|
}
|
|
return $value;
|
|
}
|
|
|
|
/**
|
|
* Copy changelog by rsync'ing it to a distribution / download directory
|
|
*/
|
|
function do_copychangelog()
|
|
{
|
|
global $config;
|
|
|
|
$changelog = __DIR__.'/debian.changes';
|
|
$cmd = $config['rsync'].' '.$changelog.' '.config_translate('copychangelog');
|
|
passthru($cmd);
|
|
}
|
|
|
|
/**
|
|
* Query changelog from svn and let user edit it
|
|
*/
|
|
function do_editsvnchangelog()
|
|
{
|
|
global $config,$svn;
|
|
|
|
echo "Querying changelog from SVN\n";
|
|
if (!isset($config['modules']))
|
|
{
|
|
get_modules_per_repro();
|
|
}
|
|
// query changelog per repo
|
|
$changelog = '';
|
|
foreach($config['modules'] as /*$repo =>*/ $modules)
|
|
{
|
|
$branch_url = '';
|
|
$revision = null;
|
|
foreach($modules as $path => $url)
|
|
{
|
|
$module = basename($path);
|
|
$burl = substr($url,0,-strlen($module)-1);
|
|
if (empty($branch_url) || $burl != $branch_url)
|
|
{
|
|
if (empty($branch_url)) $url = $branch_url = $burl;
|
|
//if (count($config['modules']) > 1) $changelog .= $url."\n";
|
|
$changelog .= get_changelog_from_svn($url,$config['editsvnchangelog'],$revision);
|
|
}
|
|
}
|
|
}
|
|
$logfile = tempnam('/tmp','checkout-build-archives');
|
|
file_put_contents($logfile,$changelog);
|
|
$cmd = $config['editor'].' '.escapeshellarg($logfile);
|
|
passthru($cmd);
|
|
$config['changelog'] = file_get_contents($logfile);
|
|
// remove trailing newlines
|
|
while (substr($config['changelog'],-1) == "\n")
|
|
{
|
|
$config['changelog'] = substr($config['changelog'],0,-1);
|
|
}
|
|
// allow user to abort, by deleting the changelog
|
|
if (strlen($config['changelog']) <= 2)
|
|
{
|
|
die("\nChangelog must not be empty --> aborting\n\n");
|
|
}
|
|
// commit changelog
|
|
$changelog = __DIR__.'/debian.changes';
|
|
if (file_exists($changelog))
|
|
{
|
|
file_put_contents($changelog, update_changelog(file_get_contents($changelog)));
|
|
$cmd = $svn." commit -m 'Changelog for $config[version].$config[packaging]' ".$changelog;
|
|
run_cmd($cmd);
|
|
}
|
|
// update obs changelogs (so all changlogs are updated in case of a later error and changelog step can be skiped)
|
|
do_obs(true); // true: only update debian.changes in obs checkouts
|
|
}
|
|
|
|
/**
|
|
* Read changelog for given branch from (last) tag or given revision from svn
|
|
*
|
|
* @param string $branch_url ='svn+ssh://svn@svn.stylite.de/egroupware/branches/Stylite-EPL-10.1'
|
|
* @param string $log_pattern =null a preg regular expression or start of line a log message must match, to be returned
|
|
* if regular perl regular expression given only first expression in brackets \\1 is used,
|
|
* for a start of line match, only the first line is used, otherwise whole message is used
|
|
* @param string $revision =null from which to HEAD the log should be retrieved, default search revision of latest tag in ^/tags
|
|
* @param string $prefix ='* ' prefix, which if not presend should be added to all log messages
|
|
*/
|
|
function get_changelog_from_svn($branch_url, $log_pattern=null, &$revision=null, $prefix='* ')
|
|
{
|
|
//echo __FUNCTION__."('$branch_url','$log_pattern','$revision','$prefix')\n";
|
|
global $config,$verbose,$svn;
|
|
|
|
if (is_null($revision))
|
|
{
|
|
list($tags_url,$branch) = preg_split('#/(branches/|trunk)#',$branch_url);
|
|
if (empty($branch)) $branch = $config['version'];
|
|
$tags_url .= '/tags';
|
|
$pattern=str_replace('Stylite-EPL-10\.1',preg_quote($branch),'/tags\/(Stylite-EPL-10\.1\.[0-9.]+)/');
|
|
$matches = null;
|
|
$revision = get_last_svn_tag($tags_url,$pattern,$matches);
|
|
$tag = $matches[1];
|
|
}
|
|
elseif(!is_numeric($revision))
|
|
{
|
|
$revision = get_last_svn_tag($tags_url,$tag=$revision);
|
|
}
|
|
$cmd = $svn.' log --xml -r '.escapeshellarg($revision.':HEAD').' '.escapeshellarg($branch_url);
|
|
if (($v = $verbose))
|
|
{
|
|
echo "Querying SVN for log from r$revision".($tag ? " ($tag)" : '').":\n$cmd\n";
|
|
$verbose = false; // otherwise no $output!
|
|
}
|
|
$output = array();
|
|
run_cmd($cmd,$output);
|
|
$verbose = $v;
|
|
array_shift($output); // remove the command
|
|
|
|
$xml = simplexml_load_string($output=implode("\n",$output));
|
|
$message = '';
|
|
$pattern_len = strlen($log_pattern);
|
|
$prefix_len = strlen($prefix);
|
|
foreach($xml as $log)
|
|
{
|
|
$msg = $log->msg;
|
|
if ($log_pattern[0] == '/' && preg_match($log_pattern,$msg,$matches))
|
|
{
|
|
$msg = $matches[1];
|
|
}
|
|
elseif($log_pattern && $log_pattern[0] != '/' && substr($msg,0,$pattern_len) == $log_pattern)
|
|
{
|
|
list($msg) = explode("\n",$msg);
|
|
}
|
|
elseif($log_pattern)
|
|
{
|
|
continue; // no match --> ignore
|
|
}
|
|
if ($prefix_len && substr($msg,0,$prefix_len) != $prefix) $msg = $prefix.$msg;
|
|
$message .= $msg."\n";
|
|
}
|
|
if ($verbose) echo $message;
|
|
|
|
return $message;
|
|
}
|
|
|
|
/**
|
|
* Get revision of last svn tag matching a given pattern in the log message
|
|
*
|
|
* @param string $tags_url
|
|
* @param string $pattern which has to be contained in the log message (NOT the tag itself)
|
|
* or (perl) regular expression against which log message is matched
|
|
* @param array &$matches=null on return matches of preg_match
|
|
* @return int revision of last svn tag matching pattern
|
|
*/
|
|
function get_last_svn_tag($tags_url,$pattern,&$matches=null)
|
|
{
|
|
global $verbose,$svn;
|
|
|
|
$cmd = $svn.' log --xml --limit 40 '.escapeshellarg($tags_url);
|
|
if (($v = $verbose))
|
|
{
|
|
echo "Querying SVN for last tags\n$cmd\n";
|
|
$verbose = false; // otherwise no $output!
|
|
}
|
|
$output = array();
|
|
run_cmd($cmd,$output);
|
|
$verbose = $v;
|
|
array_shift($output); // remove the command
|
|
|
|
$xml = simplexml_load_string($output=implode("\n",$output));
|
|
foreach($xml as $log)
|
|
{
|
|
//print_r($log);
|
|
if ($pattern[0] != '/' && strpos($log->msg,$pattern) !== false ||
|
|
$pattern[0] == '/' && preg_match($pattern,$log->msg,$matches))
|
|
{
|
|
if ($verbose) echo "Revision {$log['revision']} matches".($matches?': '.$matches[1] : '')."\n";
|
|
return (int)$log['revision'];
|
|
}
|
|
}
|
|
return null;
|
|
}
|
|
|
|
/**
|
|
* Copy archive files to obs checkout and commit them
|
|
*
|
|
* @param boolean $only_update_changelog =false true update debian.changes, but nothing else, nor commit it
|
|
*/
|
|
function do_obs($only_update_changelog=false)
|
|
{
|
|
global $config,$verbose;
|
|
|
|
if (!is_dir($config['obs']))
|
|
{
|
|
usage("Path '$config[obs]' not found!");
|
|
}
|
|
if ($verbose) echo $only_update_changelog ? "Updating OBS changelogs\n" : "Updating OBS checkout\n";
|
|
run_cmd('osc up '.$config['obs']);
|
|
|
|
$n = 0;
|
|
foreach(new RecursiveIteratorIterator(new RecursiveDirectoryIterator($config['obs'])) as $path)
|
|
{
|
|
if (basename(dirname($path)) == '.osc' ||
|
|
!preg_match('/\/('.preg_quote($config['packagename']).
|
|
($config['obs_package_alias'] ? '|'.preg_quote($config['obs_package_alias']) : '').
|
|
')[a-z-]*-('.preg_quote($config['version']).'|trunk)/',$path))
|
|
{
|
|
continue;
|
|
}
|
|
$matches = null;
|
|
if (preg_match('/\/('.preg_quote($config['packagename']).'[a-z-]*)-'.preg_quote($config['version']).'\.[0-9.]+[0-9](\.tar\.(gz|bz2))$/',$path,$matches) &&
|
|
file_exists($new_name=$config['sourcedir'].'/'.$matches[1].'-'.$config['version'].'.'.$config['packaging'].$matches[2]))
|
|
{
|
|
if (basename($path) != basename($new_name))
|
|
{
|
|
unlink($path);
|
|
if ($verbose) echo "rm $path\n";
|
|
}
|
|
copy($new_name,dirname($path).'/'.basename($new_name));
|
|
if ($verbose) echo "cp $new_name ".dirname($path)."/\n";
|
|
++$n;
|
|
}
|
|
// if we have no changelog (eg. because commands run separate), try parsing it from changelog file
|
|
if (empty($config['changelog']))
|
|
{
|
|
$config['changelog'] = parse_current_changelog();
|
|
}
|
|
// updating dsc, spec and changelog files
|
|
if (!$only_update_changelog && (substr($path,-4) == '.dsc' || substr($path,-5) == '.spec') ||
|
|
!empty($config['changelog']) && basename($path) == 'debian.changes')
|
|
{
|
|
$content = $content_was = file_get_contents($path);
|
|
|
|
if (substr($path,-4) == '.dsc' || substr($path,-5) == '.spec')
|
|
{
|
|
$content = preg_replace('/^Version: '.preg_quote($config['version']).'\.[0-9.]+[0-9]/m','Version: '.$config['version'].'.'.$config['packaging'],$content);
|
|
}
|
|
if (substr($path,-4) == '.dsc')
|
|
{
|
|
$content = preg_replace('/^(Debtransform-Tar: '.preg_quote($config['packagename']).'[a-z-]*)-'.
|
|
preg_quote($config['version']).'\.[0-9.]+[0-9](\.tar\.(gz|bz2))$/m',
|
|
'\\1-'.$config['version'].'.'.$config['packaging'].'\\2',$content);
|
|
}
|
|
if (basename($path) == 'debian.changes' && strpos($content,$config['version'].'.'.$config['packaging']) === false)
|
|
{
|
|
$content = update_changelog($content);
|
|
}
|
|
if (!empty($config['changelog']) && substr($path,-5) == '.spec' &&
|
|
($pos_changelog = strpos($content,'%changelog')) !== false)
|
|
{
|
|
$pos_changelog += strlen("%changelog\n");
|
|
$content = substr($content,0,$pos_changelog).' *'.date('D M d Y').' '.$config['changelog_packager']."\n".
|
|
$config['changelog']."\n".substr($content,$pos_changelog);
|
|
}
|
|
if ($content != $content_was)
|
|
{
|
|
file_put_contents($path,$content);
|
|
if ($verbose) echo "Updated $path\n";
|
|
++$n;
|
|
}
|
|
}
|
|
}
|
|
if ($n && !$only_update_changelog)
|
|
{
|
|
echo "$n files updated in OBS checkout ($config[obs]), commiting them now...\n";
|
|
//run_cmd('osc status '.$config['obs']);
|
|
run_cmd('osc addremove '.$config['obs'].'/*');
|
|
run_cmd('osc commit -m '.escapeshellarg('Version: '.$config['version'].'.'.$config['packaging'].":\n".$config['changelog']).' '.$config['obs']);
|
|
}
|
|
}
|
|
|
|
/**
|
|
* Parse current changelog from debian.changes file
|
|
*
|
|
* @return string changelog entries without header and footer lines
|
|
*/
|
|
function parse_current_changelog()
|
|
{
|
|
global $config;
|
|
|
|
$changelog = file_get_contents(__DIR__.'/debian.changes');
|
|
$lines = explode("\n", $changelog, 100);
|
|
foreach($lines as $n => $line)
|
|
{
|
|
if (preg_match($preg='/^'.preg_quote($config['packagename']).' \('.preg_quote($config['version'].'.'.$config['packaging']).'/', $line))
|
|
{
|
|
$n += empty($lines[$n+1]) ? 2 : 1; // overead empty line behind header
|
|
$logentry = '';
|
|
while($lines[$n]) // entry is terminated by empty line
|
|
{
|
|
$logentry .= (substr($lines[$n], 0, 2) == ' ' ? substr($lines[$n], 2) : $lines[$n])."\n";
|
|
++$n;
|
|
}
|
|
return substr($logentry, 0, -1); // remove training "\n"
|
|
}
|
|
}
|
|
return null; // paragraph for current version NOT found
|
|
}
|
|
|
|
/**
|
|
* Update content of debian changelog file with new content from $config[changelog]
|
|
*
|
|
* @param string $content existing changelog content
|
|
* @return string updated changelog content
|
|
*/
|
|
function update_changelog($content)
|
|
{
|
|
global $config;
|
|
|
|
list($header) = explode("\n", $content);
|
|
$new_header = preg_replace('/\('.preg_quote($config['version']).'\.[0-9.]+[0-9](.*)\)/','('.$config['version'].'.'.$config['packaging'].'\\1)', $header);
|
|
if (substr($config['changelog'],0,2) != ' ') $config['changelog'] = ' '.implode("\n ",explode("\n",$config['changelog']));
|
|
$content = $new_header."\n\n".$config['changelog'].
|
|
"\n\n -- ".$config['changelog_packager'].' '.date('r')."\n\n".$content;
|
|
|
|
return $content;
|
|
}
|
|
|
|
/**
|
|
* Sign sha1sum file
|
|
*/
|
|
function do_sign()
|
|
{
|
|
global $config;
|
|
|
|
if (substr($config['sourcedir'],0,2) == '~/') // sha1_file cant deal with '~/rpm'
|
|
{
|
|
$config['sourcedir'] = getenv('HOME').substr($config['sourcedir'],1);
|
|
}
|
|
$sumsfile = $config['sourcedir'].'/sha1sum-'.$config['packagename'].'-'.$config['version'].'.'.$config['packaging'].'.txt';
|
|
|
|
if (!file_exists($sumsfile))
|
|
{
|
|
echo "sha1sum file '$sumsfile' not found!\n";
|
|
return;
|
|
}
|
|
// signing it
|
|
if (empty($config['gpg']) || !file_exists($config['gpg']))
|
|
{
|
|
if (!empty($config['gpg'])) echo "{$config['gpg']} not found --> skipping signing sha1sum file!\n";
|
|
return;
|
|
}
|
|
echo "Signing sha1sum file:\n";
|
|
if (file_exists($sumsfile.'.asc')) unlink($sumsfile.'.asc');
|
|
$cmd = $config['gpg'].' --local-user '.$config['packager'].' --clearsign '.$sumsfile;
|
|
run_cmd($cmd);
|
|
unlink($sumsfile); // delete the unsigned file
|
|
}
|
|
|
|
/**
|
|
* Create archives
|
|
*/
|
|
function do_create()
|
|
{
|
|
global $config;
|
|
|
|
if (!file_exists($config['sourcedir'])) mkdir($config['sourcedir'],0755,true);
|
|
if (substr($config['sourcedir'],0,2) == '~/') // sha1_file cant deal with '~/rpm'
|
|
{
|
|
$config['sourcedir'] = getenv('HOME').substr($config['sourcedir'],1);
|
|
}
|
|
$sumsfile = $config['sourcedir'].'/sha1sum-'.$config['packagename'].'-'.$config['version'].'.'.$config['packaging'].'.txt';
|
|
$sums = '';
|
|
|
|
chdir($config['egw_buildroot']);
|
|
|
|
if($config['extra'])
|
|
{
|
|
foreach($config['extra'] as $key => $module)
|
|
{
|
|
if (strpos($module,'/') !== false) $config['extra'][$key] = basename($module);
|
|
}
|
|
$exclude_extra = ' --exclude=egroupware/'.implode(' --exclude=egroupware/',$config['extra']);
|
|
}
|
|
foreach($config['types'] as $type)
|
|
{
|
|
echo "Creating $type archives\n";
|
|
$tar_type = $type == 'tar.bz2' ? 'j' : 'z';
|
|
|
|
$file = $config['sourcedir'].'/'.$config['packagename'].'-'.$config['version'].'.'.$config['packaging'].'.'.$type;
|
|
switch($type)
|
|
{
|
|
case 'tar.bz2':
|
|
case 'tar.gz':
|
|
$cmd = $config['tar'].' --owner=root --group=root -c'.$tar_type.'f '.$file.' '.$exclude_extra.' egroupware';
|
|
break;
|
|
case 'zip':
|
|
$cmd = $config['mv'].' egroupware/'.implode(' egroupware/',$config['extra']).' . ;';
|
|
$cmd .= $config['zip'].' -q -r -9 '.$file.' egroupware ;';
|
|
$cmd .= $config['mv'].' '.implode(' ',$config['extra']).' egroupware';
|
|
break;
|
|
}
|
|
run_cmd($cmd);
|
|
$sums .= sha1_file($file)."\t".basename($file)."\n";
|
|
|
|
foreach($config['extra'] as $module)
|
|
{
|
|
$file = $config['sourcedir'].'/'.$config['packagename'].'-'.$module.'-'.$config['version'].'.'.$config['packaging'].'.'.$type;
|
|
switch($type)
|
|
{
|
|
case 'tar.bz2':
|
|
case 'tar.gz':
|
|
$cmd = $config['tar'].' --owner=root --group=root -c'.$tar_type.'f '.$file.' egroupware/'.$module;
|
|
break;
|
|
case 'zip':
|
|
$cmd = $config['zip'].' -q -r -9 '.$file.' egroupware/'.$module;
|
|
break;
|
|
}
|
|
run_cmd($cmd);
|
|
$sums .= sha1_file($file)."\t".basename($file)."\n";
|
|
}
|
|
}
|
|
// writing sha1sum file
|
|
file_put_contents($sumsfile,$sums);
|
|
}
|
|
|
|
/**
|
|
* Scan checkout for viruses, if clamscan is installed (not fatal if not!)
|
|
*/
|
|
function do_virusscan()
|
|
{
|
|
global $config,$verbose;
|
|
|
|
if (!file_exists($config['clamscan']) || !is_executable($config['clamscan']))
|
|
{
|
|
echo "Virusscanner '$config[clamscan]' not found --> skipping virus scan!\n";
|
|
return;
|
|
}
|
|
// try updating virus database
|
|
if (file_exists($config['freshclam']))
|
|
{
|
|
echo "Updating virus signatures\n";
|
|
$cmd = '/usr/bin/sudo '.$config['freshclam'];
|
|
if (!$verbose && function_exists('posix_getuid') && posix_getuid()) echo $cmd."\n";
|
|
$output = null;
|
|
run_cmd($cmd,$output,1); // 1 = ignore already up to date database
|
|
}
|
|
echo "Starting virusscan\n";
|
|
$cmd = $config['clamscan'].' --quiet -r '.$config['egw_buildroot'];
|
|
run_cmd($cmd);
|
|
echo "Virusscan successful (no viruses found).\n";
|
|
}
|
|
|
|
/**
|
|
* Copy non .svn parts to egw_buildroot and fix permissions and ownership
|
|
*/
|
|
function do_copy()
|
|
{
|
|
global $config;
|
|
|
|
// copy everything, but .svn dirs from svndir to egw_buildroot
|
|
echo "Copying non-svn dirs to buildroot\n";
|
|
$cmd = '/usr/bin/rsync -r --delete --exclude .svn '.$config['svndir'].'/'.$config['aliasdir'].' '.$config['egw_buildroot'];
|
|
run_cmd($cmd);
|
|
|
|
if (($cmd = config_translate('patchCmd')) && $cmd[0] != '#')
|
|
{
|
|
echo "Running $cmd\n";
|
|
run_cmd($cmd);
|
|
}
|
|
// fix permissions
|
|
echo "Fixing permissions\n";
|
|
chdir($config['egw_buildroot'].'/'.$config['aliasdir']);
|
|
run_cmd('/bin/chmod -R a-x,u=rwX,g=rX,o=rX .');
|
|
run_cmd('/bin/chmod +x */*cli.php phpgwapi/cron/*.php svn-helper.php doc/rpm-build/*.php');
|
|
}
|
|
|
|
/**
|
|
* Checkout or update EGroupware
|
|
*
|
|
* Ensures an existing checkout is from the correct branch! Otherwise it get's deleted
|
|
*/
|
|
function do_checkout()
|
|
{
|
|
global $config,$svn;
|
|
|
|
echo "Starting svn checkout/update\n";
|
|
if (!file_exists($config['svndir']))
|
|
{
|
|
mkdir($config['svndir'],0755,true);
|
|
}
|
|
elseif (!is_dir($config['svndir']) || !is_writable($config['svndir']))
|
|
{
|
|
throw new Exception("svn checkout directory '{$config['svndir']} exists and is NO directory or NOT writable!");
|
|
}
|
|
chdir($config['svndir']);
|
|
|
|
// do we use a just created tag --> list of taged modules
|
|
if ($config['svntag'])
|
|
{
|
|
if (!isset($config['modules']))
|
|
{
|
|
get_modules_per_repro();
|
|
}
|
|
$config['svntag'] = config_translate('svntag'); // in case svntag command did not run, translate tag name
|
|
|
|
if (file_exists($config['aliasdir']))
|
|
{
|
|
system('/bin/rm -rf .svn '.$config['aliasdir']); // --> remove the whole checkout, as we dont implement switching tags
|
|
clearstatcache();
|
|
}
|
|
foreach($config['modules'] as $repo => $modules)
|
|
{
|
|
$cmd = $svn.' co ';
|
|
foreach($modules as $path => $url)
|
|
{
|
|
if ($path == $config['aliasdir'])
|
|
{
|
|
$cmd = $svn.' co '.$repo.'/'.$config['svntag'].'/'.$path;
|
|
run_cmd($cmd);
|
|
chdir($path);
|
|
$cmd = $svn.' co ';
|
|
continue;
|
|
}
|
|
if(file_exists($config['aliasdir']))
|
|
{
|
|
die("'egroupware' applications must be first one in externals!\n");
|
|
}
|
|
$cmd .= ' '.$repo.'/'.$config['svntag'].'/'.basename($path);
|
|
}
|
|
run_cmd($cmd);
|
|
}
|
|
}
|
|
// regular branch update, without tag
|
|
else
|
|
{
|
|
$svnbranch = $config['svnbase'].'/'.$config['svnbranch'];
|
|
if (file_exists($config['aliasdir']))
|
|
{
|
|
// check if correct branch
|
|
$cmd = 'LANG=C '.$svn.' info';
|
|
$output = $ret = null;
|
|
exec($cmd,$output,$ret);
|
|
foreach($output as $line)
|
|
{
|
|
if ($ret || substr($line,0,5) == 'URL: ')
|
|
{
|
|
$url = substr($line,5);
|
|
if ($ret || substr($url,0,strlen($svnbranch)) != $svnbranch) // wrong branch (or no svn dir)
|
|
{
|
|
echo "Checkout is of wrong branch --> deleting it\n";
|
|
system('/bin/rm -rf .svn '.$config['aliasdir']); // --> remove the whole checkout
|
|
clearstatcache();
|
|
}
|
|
break;
|
|
}
|
|
}
|
|
}
|
|
$url = $svnbranch.'/'.$config['svnalias'];
|
|
$cmd = $svn.' co '.$url.' .';
|
|
run_cmd($cmd);
|
|
|
|
chdir($config['aliasdir']);
|
|
foreach($config['extra'] as $module)
|
|
{
|
|
$module = config_translate(null, $module); // allow to use config vars like $svnbranch in module
|
|
$url = strpos($module,'://') === false ? $svnbranch.'/' : '';
|
|
$url .= $module;
|
|
$cmd = $svn.' co '.$url;
|
|
run_cmd($cmd);
|
|
}
|
|
}
|
|
// do composer install to fetch dependencies
|
|
if ($config['composer'])
|
|
{
|
|
run_cmd($config['composer']);
|
|
}
|
|
}
|
|
|
|
/**
|
|
* Get module name per svn repro
|
|
*
|
|
* @return array with $repro_url => array(module1, ..., moduleN) pairs
|
|
*/
|
|
function get_modules_per_repro()
|
|
{
|
|
global $config,$svn,$verbose;
|
|
|
|
// process alias/externals
|
|
$svnbranch = $config['svnbase'].'/'.$config['svnbranch'];
|
|
$url = $svnbranch.'/'.$config['svnalias'];
|
|
$cmd = $svn.' propget svn:externals --strict '.$url;
|
|
if ($verbose) echo $cmd."\n";
|
|
$output = $ret = null;
|
|
exec($cmd,$output,$ret);
|
|
$config['modules'] = array();
|
|
foreach($output as $line)
|
|
{
|
|
$line = trim($line);
|
|
if (empty($line) || $line[0] == '#') continue;
|
|
list($path,$url) = preg_split('/[ \t\r\n]+/',$line);
|
|
$matches = null;
|
|
if (!preg_match('/([a-z+]+:\/\/[a-z@.]+\/[a-z]+)\/(branches|tags|trunk)/',$url,$matches)) die("Invalid SVN URL: $url\n");
|
|
$repo = $matches[1];
|
|
if ($repo == 'http://svn.egroupware.org/egroupware') $repo = 'svn+ssh://svn@dev.egroupware.org/egroupware';
|
|
$config['modules'][$repo][$path] = $url;
|
|
}
|
|
// process extra modules
|
|
foreach($config['extra'] as $module)
|
|
{
|
|
$module = config_translate(null, $module); // allow to use config vars like $svnbranch in module
|
|
$url = strpos($module,'://') === false ? $svnbranch.'/' : '';
|
|
$url .= $module;
|
|
if (strpos($module,'://') !== false) $module = basename($module);
|
|
if (!preg_match('/([a-z+]+:\/\/[a-z@.]+\/[a-z]+)\/(branches|tags|trunk)/',$url,$matches)) die("Invalid SVN URL: $url\n");
|
|
$repo = $matches[1];
|
|
if ($repo == 'http://svn.egroupware.org/egroupware') $repo = 'svn+ssh://svn@dev.egroupware.org/egroupware';
|
|
$config['modules'][$repo][$config['aliasdir'].'/'.$module] = $url;
|
|
}
|
|
return $config['modules'];
|
|
}
|
|
|
|
/**
|
|
* Create svn tag or branch
|
|
*/
|
|
function do_svntag()
|
|
{
|
|
global $config,$svn;
|
|
|
|
if (empty($config['svntag'])) return; // otherwise we copy everything in svn root!
|
|
|
|
$config['svntag'] = config_translate('svntag'); // allow to use config vars like $version in tag
|
|
|
|
echo "Creating SVN tag $config[svntag]\n";
|
|
if (!isset($config['modules']))
|
|
{
|
|
get_modules_per_repro();
|
|
}
|
|
// create tags (per repo)
|
|
foreach($config['modules'] as $repo => $modules)
|
|
{
|
|
$cmd = $svn.' cp --parents -m '.escapeshellarg('Creating '.$config['svntag']).' '.implode(' ',$modules).' '.$repo.'/'.$config['svntag'].'/';
|
|
run_cmd($cmd);
|
|
}
|
|
}
|
|
|
|
/**
|
|
* Runs given shell command, exists with error-code after echoing the output of the failed command (if not already running verbose)
|
|
*
|
|
* @param string $cmd
|
|
* @param array &$output=null $output of command, only if !$verbose !!!
|
|
* @param int|array $no_bailout =null exit code(s) to NOT bail out
|
|
* @return int exit code of $cmd
|
|
*/
|
|
function run_cmd($cmd,array &$output=null,$no_bailout=null)
|
|
{
|
|
global $verbose;
|
|
|
|
if ($verbose)
|
|
{
|
|
echo $cmd."\n";
|
|
$ret = null;
|
|
system($cmd,$ret);
|
|
}
|
|
else
|
|
{
|
|
$output[] = $cmd;
|
|
exec($cmd,$output,$ret);
|
|
}
|
|
if ($ret && !in_array($ret,(array)$no_bailout))
|
|
{
|
|
if (!$verbose) echo implode("\n",$output)."\n";
|
|
throw new Exception("Error during '$cmd' --> aborting",$ret);
|
|
}
|
|
return $ret;
|
|
}
|
|
|
|
/**
|
|
* Format array or other types as (one-line) string, eg. for error_log statements
|
|
*
|
|
* @param mixed $var variable to dump
|
|
* @return string
|
|
*/
|
|
function array2string($var)
|
|
{
|
|
switch (($type = gettype($var)))
|
|
{
|
|
case 'boolean':
|
|
return $var ? 'TRUE' : 'FALSE';
|
|
case 'string':
|
|
return "'$var'";
|
|
case 'integer':
|
|
case 'double':
|
|
case 'resource':
|
|
return $var;
|
|
case 'NULL':
|
|
return 'NULL';
|
|
case 'object':
|
|
case 'array':
|
|
return str_replace(array("\n",' '/*,'Array'*/),'',print_r($var,true));
|
|
}
|
|
return 'UNKNOWN TYPE!';
|
|
}
|
|
|
|
/**
|
|
* Give usage information and an optional error-message, before stoping program execution with exit-code 90 or 0
|
|
*
|
|
* @param string $error =null optional error-message
|
|
*/
|
|
function usage($error=null)
|
|
{
|
|
global $prog,$config;
|
|
|
|
echo "Usage: $prog [-h|--help] [-v|--verbose] [options, ...]\n\n";
|
|
echo "options and their defaults:\n";
|
|
foreach($config as $name => $default)
|
|
{
|
|
if (is_array($default)) $default = implode(' ',$default);
|
|
echo '--'.str_pad($name,20).$default."\n";
|
|
}
|
|
if ($error)
|
|
{
|
|
echo "$error\n\n";
|
|
exit(90);
|
|
}
|
|
exit(0);
|
|
}
|
|
|