forked from extern/egroupware
159 lines
4.1 KiB
PHP
Executable File
159 lines
4.1 KiB
PHP
Executable File
#!/usr/bin/php
|
|
<?php
|
|
/**************************************************************************\
|
|
* phpGroupWare *
|
|
* http://www.phpgroupware.org *
|
|
* The file written by Dan Kuykendall <seek3r@phpgroupware.org> *
|
|
* Joseph Engo <jengo@phpgroupware.org> *
|
|
* -------------------------------------------- *
|
|
* This program is free software; you can redistribute it and/or modify it *
|
|
* under the terms of the GNU General Public License as published by the *
|
|
* Free Software Foundation; either version 2 of the License, or (at your *
|
|
* option) any later version. *
|
|
\**************************************************************************/
|
|
|
|
/* $Id$ */
|
|
|
|
/****************************************************************************\
|
|
* Config section *
|
|
\****************************************************************************/
|
|
// Temp paths that can be read and written to
|
|
$tmp_dir = '/tmp';
|
|
// Path of where you want the phpgroupware directory to go. NO trailing /
|
|
$co_dir = '/var/www/html';
|
|
// If you do not have developer access to cvs, change to True
|
|
$cvs_anonymous = True;
|
|
// Only needed if you have developers cvs access
|
|
$cvs_login = '';
|
|
|
|
|
|
// Modules you want to checkout, do NOT add the phpgroupware module
|
|
$co_modules[] = array
|
|
(
|
|
'addbook',
|
|
'addressbook',
|
|
'admin',
|
|
'backup',
|
|
'bookkeeping',
|
|
'bookmarks',
|
|
'brewer',
|
|
'calendar',
|
|
'cart',
|
|
'ccs',
|
|
'cdb',
|
|
'chat',
|
|
'chora',
|
|
'comic',
|
|
'cron',
|
|
'developer_tools',
|
|
'dj',
|
|
'eldaptir',
|
|
'email',
|
|
'etemplate',
|
|
'felamimail'
|
|
'filemanager',
|
|
'forum';
|
|
'ftp',
|
|
'headlines',
|
|
'hr',
|
|
'img',
|
|
'infolog',
|
|
'inv',
|
|
'manual',
|
|
'mediadb',
|
|
'meerkat',
|
|
'messenger',
|
|
'napster',
|
|
'netsaint',
|
|
'news_admin',
|
|
'nntp',
|
|
'notes',
|
|
'packages',
|
|
'phonelog',
|
|
'phpGWShell_Win32_VB',
|
|
'phpgwapi',
|
|
'phpgwnetsaint',
|
|
'phpsysinfo',
|
|
'polls',
|
|
'preferences',
|
|
'projects',
|
|
'property'
|
|
'qmailldap',
|
|
'rbs',
|
|
'registration',
|
|
'setup',
|
|
'sitemgr'
|
|
'skel',
|
|
'soap',
|
|
'squirrelmail',
|
|
'stocks',
|
|
'syncml-server',
|
|
'timetrack',
|
|
'todo',
|
|
'transy',
|
|
'tts',
|
|
'vmailmgr',
|
|
'wap',
|
|
'wcm',
|
|
'weather',
|
|
'xmlrpc'
|
|
);
|
|
|
|
// -- End config section
|
|
|
|
function docvscommand($command, $anonymous_login = False)
|
|
{
|
|
global $tmp_dir, $cvs_anonymous;
|
|
|
|
$fp = fopen($tmp_dir . '/createrelease.exp','w');
|
|
$contents = "#!/usr/bin/expect -f\n";
|
|
$contents .= "send -- \"export CVS_RSH=ssh\"\n";
|
|
$contents .= "set force_conservative 0\n";
|
|
$contents .= "if {\$force_conservative} {\n";
|
|
$contents .= " set send_slow {1 .1}\n";
|
|
$contents .= " proc send {ignore arg} {\n";
|
|
$contents .= " sleep .1\n";
|
|
$contents .= " exp_send -s -- \$arg\n";
|
|
$contents .= " }\n";
|
|
$contents .= "}\n";
|
|
$contents .= "set timeout -1\n";
|
|
$contents .= "spawn $command\n";
|
|
$contents .= "match_max 100000\n";
|
|
|
|
if ($cvs_anonymous && $anonymous_login)
|
|
{
|
|
$contents .= "expect \"CVS password:\"\n";
|
|
$contents .= "send -- \"\\r\"\n";
|
|
}
|
|
|
|
$contents .= "expect eof\n";
|
|
fputs($fp, $contents, strlen($contents));
|
|
fclose($fp);
|
|
system('/usr/bin/expect ' . $tmp_dir . '/createrelease.exp');
|
|
unlink($tmp_dir . '/createrelease.exp');
|
|
}
|
|
|
|
chdir($co_dir);
|
|
if ($cvs_anonymous)
|
|
{
|
|
docvscommand('cvs -d:pserver:anonymous@subversions.gnu.org:443/cvsroot/phpgroupware login',True);
|
|
docvscommand('cvs -d:pserver:anonymous@subversions.gnu.org:443/cvsroot/phpgroupware co phpgroupware',True);
|
|
}
|
|
else
|
|
{
|
|
docvscommand('cvs -d' . $cvs_login . '@subversions.gnu.org:/cvsroot/phpgroupware co phpgroupware');
|
|
}
|
|
|
|
chdir($co_dir . '/phpgroupware');
|
|
|
|
if ($cvs_anonymous)
|
|
{
|
|
docvscommand('cvs -z3 -d:pserver:anonymous@subversions.gnu.org:443/cvsroot/phpgroupware co ' . implode(' ',$co_modules));
|
|
}
|
|
else
|
|
{
|
|
docvscommand('cvs -d' . $cvs_login . '@subversions.gnu.org:/cvsroot/phpgroupware co ' . implode(' ',$co_modules));
|
|
}
|
|
|
|
docvscommand('cvs update -dP');
|