forked from extern/egroupware
154 lines
4.0 KiB
Perl
Executable File
154 lines
4.0 KiB
Perl
Executable File
#!/usr/bin/perl
|
|
############################################################################
|
|
# phpGroupWare #
|
|
# http:#www.phpgroupware.org #
|
|
# The file written by Miles Lott <milosch@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 = '';
|
|
$cvs_password = '';
|
|
|
|
# Modules you want to checkout, do NOT add the phpgroupware module
|
|
@co_modules = (
|
|
'addressbook',
|
|
'admin',
|
|
'backup',
|
|
'bookkeeping',
|
|
'bookmarks',
|
|
'brewer',
|
|
'calendar',
|
|
'cart',
|
|
'ccs',
|
|
'cdb',
|
|
'chat',
|
|
'chora',
|
|
'comic',
|
|
'cron',
|
|
'developer_tools',
|
|
'dj',
|
|
'eldaptir',
|
|
'email',
|
|
'filemanager',
|
|
'forum',
|
|
'ftp',
|
|
'headlines',
|
|
'hr',
|
|
'infolog',
|
|
'inv',
|
|
'manual',
|
|
'mediadb',
|
|
'meerkat',
|
|
'messenger',
|
|
'napster',
|
|
'netsaint',
|
|
'news_admin',
|
|
'nntp',
|
|
'notes',
|
|
'phonelog',
|
|
'phpGWShell_Win32_VB',
|
|
'phpgwapi',
|
|
'phpgwnetsaint',
|
|
'phpsysinfo',
|
|
'phpwebhosting',
|
|
'polls',
|
|
'preferences',
|
|
'projects',
|
|
'qmailldap',
|
|
'rbs',
|
|
'setup',
|
|
'skel',
|
|
'soap',
|
|
'squirrelmail',
|
|
'stocks',
|
|
'syncml-server',
|
|
'timetrack',
|
|
'todo',
|
|
'transy',
|
|
'tts',
|
|
'wap',
|
|
'wcm',
|
|
'weather',
|
|
'xmlrpc'
|
|
);
|
|
|
|
# -- End config section
|
|
|
|
sub docvscommand
|
|
{
|
|
my $command = $_[0];
|
|
my $anonymous_login = $_[1];
|
|
|
|
open(FP, ">$tmp_dir/createrelease.exp");
|
|
$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)
|
|
{
|
|
$contents .= "expect \":\"\n";
|
|
$contents .= "send -- \"" . $cvs_password . "\\r\"\n";
|
|
}
|
|
elsif ($cvs_anonymous and $anonymous_login)
|
|
{
|
|
$contents .= "expect \"CVS password:\"\n";
|
|
$contents .= "send -- \"\\r\"\n";
|
|
}
|
|
|
|
$contents .= "expect eof\n";
|
|
print FP $contents;
|
|
close 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:443/cvsroot/phpgroupware co phpgroupware');
|
|
}
|
|
|
|
chdir($co_dir . '/phpgroupware');
|
|
|
|
if ($cvs_anonymous)
|
|
{
|
|
&docvscommand('cvs -z3 -d:pserver:anonymous@subversions.gnu.org:443/cvsroot/phpgroupware co ' . join(' ',@co_modules));
|
|
}
|
|
else
|
|
{
|
|
&docvscommand('cvs -d' . $cvs_login . '@subversions.gnu.org:443/cvsroot/phpgroupware co ' . join(' ',@co_modules));
|
|
}
|
|
|
|
&docvscommand('cvs update -dP');
|