diff options
author | allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2000-07-20 12:16:14 +0000 |
---|---|---|
committer | allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2000-07-20 12:16:14 +0000 |
commit | d1c6106567816f846633e16768f8bef8d633a02c (patch) | |
tree | 85643adb38daf54f6482b90955905141aa96fd23 /lib/sbin/checkout.pl | |
parent | bc5248fbd473b83081cd83bfe36b6b4d09a0b6d3 (diff) |
Checkout the README dir in an arrangement before checking out a thorn, this
solves the CVSROOT/Emptydir problem in the Repository file of each arrangement.
git-svn-id: http://svn.cactuscode.org/flesh/trunk@1773 17b73243-c579-4c4c-a9d2-2d5706c11dac
Diffstat (limited to 'lib/sbin/checkout.pl')
-rw-r--r-- | lib/sbin/checkout.pl | 32 |
1 files changed, 29 insertions, 3 deletions
diff --git a/lib/sbin/checkout.pl b/lib/sbin/checkout.pl index f90019a3..c11a837b 100644 --- a/lib/sbin/checkout.pl +++ b/lib/sbin/checkout.pl @@ -284,6 +284,9 @@ sub get_thorns for ($i=$first; $i<$last+1; $i++) { + $arrangement = $name{$i}; + $arrangement =~ s:/[^/]*$::; + &CheckOutREADME("$arrangement/README"); &CheckOut($name{$i}); } } @@ -328,9 +331,10 @@ sub get_thornlist print " $_"; } close LISTS; - print "\n Choose ThornList : "; + print "\nChoose ThornList : "; $thornlist = <>; + print "\n"; chomp($thornlist); if (!-e "thornlists/$thornlist") { @@ -397,6 +401,30 @@ sub CheckOut } #/*@@ +# @routine CheckoutREADME +# @date Sat Jul 20 16:38:52 2000 +# @author Gabrielle Allen +# @desc +# +# @enddesc +# @calls +# @calledby +# @history +# +# @endhistory +# +#@@*/ +sub CheckOutREADME +{ + my($file) = @_; + + open(MODULES,"cvs -z9 -q checkout $file |"); + @dummy = <MODULES>; + close(MODULES); + +} + +#/*@@ # @routine PrintInfo # @date Sat Jul 3 16:38:52 1999 # @author Gabrielle Allen @@ -414,7 +442,6 @@ sub PrintInfo { print "\n"; print "Type \"help\" at any prompt for a description on how\nto use this script\n\n"; - print "Developmental thorns/arrangements are labelled (dev)\n"; print "________________________________________________________________________\n\n"; } @@ -477,7 +504,6 @@ sub RepositoryExists return !$?; - } |