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 1000000 -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
@@ -1,186 +1,195 @@
 #!/usr/bin/env perl
 # cvsup - do a cvs update, report results concisely
 #
 # DO NOT EDIT the /cluster/bin/scripts copy of this file --
 # edit ~/kent/src/utils/cvsTools/cvsup instead.
 #
 # $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.
 #
 my @interestingFiles = ('makefile', 'Makefile');
 my @interestingSuffixes = ('c', 'h', 'as', 'sql', 'html', 'ra', 'pl', 'pm',
 			   'csh', 'sh', 'doc', 'txt', 'rb', 'rhtml', 'yml');
 my %interestingSuffixes = map { $_ => 1 } @interestingSuffixes;
 sub isInteresting {
   my $fname = shift(@_);
   foreach my $i (@interestingFiles) {
     if ($fname eq $i) {
       return 1;
     }
   }
   if ($fname =~ m/\.([^.]+)$/) {
     my $suffix = $1;
     if ($interestingSuffixes{$suffix}) {
       return 1;
     }
   }
   return 0;
 }
 
 open(CVSUP, "$cvscmd 2>&1 |") ||
   die "Couldn't open pipe from \"$cvscmd\": $!\n";
 
 my $date = `date`;
 chop($date);
 print "Updating $cvsdir at $date\n\n";
 
 # Pick out the interesting lines of output
 my @additions;
 my @updates;
 my @modifieds;
 my @removals;
 my @patches;
 my @conflicts;
 my @removed;
 my @noncvsInteresting;
 my @noncvs;
 my @unrecognized;
 my $aborted;
 while (<CVSUP>) {
   if      (/^A (\S+)/) {
     push @additions, $1;
   } elsif (/^U (\S+)/) {
     push @updates, $1;
   } elsif (/^M (\S+)/) {
     push @modifieds, $1;
   } elsif (/^R (\S+)/) {
     push @removals, $1;
   } elsif (/^P (\S+)/) {
     push @patches, $1;
   } elsif (/^C (\S+)/) {
     push @conflicts, $1;
   } elsif (/^\? (\S+)/) {
     my $f = $1;
     if (isInteresting($f)) {
       push @noncvsInteresting, $f;
      } else {
       push @noncvs, $f;
     }
   } elsif (/^(\S \S+)/) {
     push @unrecognized, $1;
   } elsif (/^cvs update: (\S+) is no longer in the repository/) {
     push @removed, $1;
   } elsif (/^cvs (update|server): Updating/ ||
 	   /^RCS file: / ||
 	   /^retrieving revision / ||
 	   /^rcsmerge: warning: conflicts during merge/ ||
 	   /^cvs update: conflicts found in/ ||
 	   /^Merging differences between/) {
     next;
   } else {
     print $_;
     if (/^cvs \[update aborted\]:/) {
       $aborted = $_;
     }
   }
 }
 
 # Report them.
 if (defined $aborted) {
   print "\nABORTED:\n$aborted\n";
 }
 if (scalar(@unrecognized) > 0) {
   print "Unrecognized update types:\n";
   foreach my $f (@unrecognized) {
     print "  $f\n";
   }
   print "\n";
 }
 if (scalar(@conflicts) > 0) {
   print "CONFLICTS -- manually edit to resolve:\n";
   foreach my $f (@conflicts) {
     print "  $f\n";
   }
   print "\n";
 }
 if (scalar(@additions) > 0) {
   print "Added (not checked in) files:\n";
   foreach my $f (@additions) {
     print "  $f\n";
   }
   print "\n";
 }
 if (scalar(@removals) > 0) {
   print "Removed (not checked in) files:\n";
   foreach my $f (@removals) {
     print "  $f\n";
   }
   print "\n";
 }
 if (scalar(@modifieds) > 0) {
   print "Modified (possibly merged) files:\n";
   foreach my $f (@modifieds) {
     print "  $f\n";
   }
   print "\n";
 }
 if (scalar(@patches) > 0) {
   print "Patched files:\n";
   foreach my $f (@patches) {
     print "  $f\n";
   }
   print "\n";
 }
 if (scalar(@updates) > 0) {
   print "Updated files:\n";
   foreach my $f (@updates) {
     print "  $f\n";
   }
   print "\n";
 }
 if (scalar(@removed) > 0) {
   print "Files removed by others:\n";
   foreach my $f (@removed) {
     print "  $f\n";
   }
   print "\n";
 }
 if (scalar(@noncvsInteresting) > 0) {
   print "Files/directories not checked in to CVS that look like source:\n";
   foreach my $f (@noncvsInteresting) {
     print "  $f\n";
   }
   print "\n";
 }
 if (scalar(@noncvs) > 0) {
   print "Files/directories not checked in to CVS that don't look like source:\n";
   foreach my $f (@noncvs) {
     print "  $f\n";
   }
   print "\n";
 }
 if (scalar(@conflicts) > 0) {
   print "CONFLICTS -- manually edit to resolve:\n";
   foreach my $f (@conflicts) {
     print "  $f\n";
   }
   print "\n";
 }
 if (defined $aborted) {
   print "ABORTED:\n$aborted\n";
 }
 
 close(CVSUP);
 # Unfortunately $? actually doesn't pass cvs up's exit status... maybe because 
 # of sh's handling of exit statuses in pipes??  Oh well, hopefully error 
 # messages will be clear enough.  
 exit $?;