cvs: qaweb /tools fetchCVS.pl

bmcadams Sat Aug 12 15:29:05 2000 EDT Modified files: /qaweb/tools fetchCVS.pl Log: Finished script, testing now. Only thing I need to do is clean up the cvs logins so it doesn't require user login. Index: qaweb/tools/fetchCVS.pl diff -u qaweb/tools/fetchCVS.pl:1.1 qaweb/tools/fetchCVS.pl:1.2 --- qaweb/tools/fetchCVS.pl:1.1 Fri Aug 11 17:42:07 2000 +++ qaweb/tools/fetchCVS.pl Sat Aug 12 15:29:05 2000 @@ -9,27 +9,94 @@ # print our header .. -print "PHP QA Team fetchCVS $Revision: 1.1 $\n"; -print "$Id: fetchCVS.pl,v 1.1 2000/08/12 00:42:07 bmcadams Exp $\n"; +system("clear"); + +print "PHP QA Team fetchCVS " . '$Revision: 1.2 $' . "\n"; +print '$Id: fetchCVS.pl,v 1.2 2000/08/12 22:29:05 bmcadams Exp $\n'; print "-------------------------------------------------------\n"; -print "Brendan W. McAdams <bmcadams@php.net>\n"; +print "Brendan W. McAdams <bmcadams\@php.net>\n"; # Check for our 3 required tools ... -$autoconf = system("which autoconf"); -$automake = system("which automake"); -$libtool = system("which libtool"); -$cvs = system("which cvs"); +$autoconf = which autoconf; +$automake = which automake; +$libtool = which libtool; +$cvs = which cvs; + +chomp($autoconf); +chomp($automake); +chomp($libtool); +chomp($cvs); if (!$autoconf) { - die "The build process requires GNU autoconf v2.13 or greater, available via ftp from ftp.gnu.org\n"; + die "The build process requires GNU autoconf v2.13 or greater, available via ftp from ftp.gnu.org\n Please install this application and ensure that it is in your system path.\n"; } elsif (!$automake) { - die "The build process requires GNU automake v1.4 or greater, available via ftp from ftp.gnu.org\n"; + die "The build process requires GNU automake v1.4 or greater, available via ftp from ftp.gnu.org\n Please install this application and ensure that it is in your system path.\n"; } elsif (!$libtool) { + + die "The build process requires GNU libtool v1.3.3 or greater, available via ftp from ftp.gnu.org\n Please install this application and ensure that it is in your system path.\n"; + +} elsif (!$cvs) { + + die "The build process requires CVS v1.10 or greater, available via web from http://www.cyclic.com\n Please install this application and ensure that it is in your system path.\n"; + +} + +print "Please input the directory you wish to sync the PHP tree into.\n"; +print "(We will sync into <directory>/php4)\n"; + +$directory = <STDIN>; # get the directory + +chomp($directory); + +if (-e $directory) { # if the dir exists - die "The build process requires GNU libtool v1.3.3 or greater, available via ftp from ftp.gnu.org\n"; + chdir($directory); # go to the dir + +} else { + print "Can't find $directory so I'm creating it...\n"; + + mkdir($directory); # make the directory + chdir($directory); # go to the new dir + } + +print "Please login to the PHP repository (the password is phpfi)\n"; + +system("$cvs -d :pserver:cvsread\@cvs.php.net:/repository login"); + +print "Syncing the PHP4 source in $directory/php4 ...\n"; + +@php_sync = $cvs -d :pserver:cvsread\@cvs.php.net:/repository checkout php4; + +foreach $line (@php_sync) { # catch and print each line so we know when the sync is done + + print $line; + +} + +print "Please login to the Zend repository (the password is zend)\n"; + +system("$cvs -d :pserver:cvsread\@cvs.zend.com:/repository login"); + +print "Syncing the Zend source in $directory/php4/Zend ...\n"; + +@zend_sync = $cvs -d :pserver:cvsread\@cvs.zend.com:/repository checkout Zend; + +foreach $line (@zend_sync) { # catch and print each line so we know when the sync is done + + print $line; + +} + +@tsrm_sync = $cvs -d :pserver:cvsread\@cvs.zend.com:/repository checkout TSRM; + +foreach $line (@tsrm_sync) { # catch and print each line so we know when the sync is done + + print $line; + +}