egroupware_official/doc/cvs_full_checkout.pl

85 lines
3.0 KiB
Perl
Raw Normal View History

2001-09-25 09:10:46 +02:00
#!/usr/bin/perl
############################################################################
# eGroupWare #
# http://www.egroupware.org #
# The file written by Miles Lott <milos@groupwhere.org> #
2001-09-25 09:10:46 +02:00
# -------------------------------------------- #
# 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 egroupware directory to go. NO trailing /
2001-09-25 09:10:46 +02:00
$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 = '';
# -- End config section
sub docvscommand
{
my $command = $_[0];
my $anonymous_login = $_[1];
open(FP, ">$tmp_dir/createrelease.exp");
$contents = "#!/usr/bin/expect -f\n";
2002-02-01 05:17:37 +01:00
$contents .= "send -- \"export CVS_RSH=ssh\"\n";
2001-09-25 09:10:46 +02:00
$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 and $anonymous_login)
2001-09-25 09:10:46 +02:00
{
$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@cvs.sourceforge.net:/cvsroot/egroupware login',True);
&docvscommand('cvs -d:pserver:anonymous@cvs.sourceforge.net:/cvsroot/egroupware co egroupware',True);
2001-09-25 09:10:46 +02:00
}
else
{
&docvscommand('cvs -d' . $cvs_login . '@cvs.sourceforge.net:/cvsroot/egroupware co egroupware');
2001-09-25 09:10:46 +02:00
}
chdir($co_dir . '/egroupware');
2001-09-25 09:10:46 +02:00
if ($cvs_anonymous)
{
&docvscommand('cvs -z3 -d:pserver:anonymous@cvs.sourceforge.net:/cvsroot/egroupware co all');
2001-09-25 09:10:46 +02:00
}
else
{
&docvscommand('cvs -d' . $cvs_login . '@cvs.sourceforge.net:/cvsroot/egroupware co all');
2001-09-25 09:10:46 +02:00
}
&docvscommand('cvs update -dP');