src/utils/cvsTools/cvsup 1.4

Index: src/utils/cvsTools/cvsup
===================================================================
RCS file: /projects/compbio/cvsroot/kent/src/utils/cvsTools/cvsup,v
retrieving revision 1.3
retrieving revision 1.4
diff -b -B -U 4 -r1.3 -r1.4
--- src/utils/cvsTools/cvsup	31 Aug 2007 04:23:49 -0000	1.3
+++ src/utils/cvsTools/cvsup	16 Jul 2009 01:09:32 -0000	1.4
@@ -7,10 +7,19 @@
 # $Id$
 
 use warnings;
 use strict;
+use File::Spec;
 
 my $cvsdir = join(' ', @ARGV) || '.';
+
+my $abs_path = File::Spec->rel2abs($cvsdir);
+if ($abs_path eq "/hive/groups/encode/dcc/pipeline/hgEncodeSubmit") {
+  print "do not use CVSUP in ENCODE production sandbox because of uncontrolled updating. 
+     Use this instead:\ncvs status |& cvsStatusFilter | grep -v Up-to-date\n";
+  exit 0;
+  }
+
 my $cvscmd = "cvs up -d -P $cvsdir";
 
 #
 # isInteresting: return true if it looks like source that should be checked in.